试题 试卷
题型:单选题 题类:常考题 难易度:普通
上海市浦东新区2019-2020学年高一下学期信息技术6月综合练习试卷(二)
① 已知5个电阻阻值,求它们并联后的阻值
② 求某个同学期中考试各科成绩总分
③ 求某个班级期中考试某门科目的最高成绩
④ 根据三个系数a、b、c的值,求一元二次方程ax2+bx+c=0的解
图1
图2
Private Sub Command1_Click
Dim x, y As Integer
Dim n As Integer
Dim s As String
x = Val(Text1.Text): y = Val(Text2.Text)
n = Val(Text3.Text)
s = s + Str(x \ y)
s = s + "."
k = x Mod y
For i = 1 To n
‘①
‘②
Next i
Label1.Caption = "商为: " + s
End Sub
①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}
试题篮