试题 试卷
题型：单选题 题类：常考题 难易度：普通
上海市浦东新区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#}
试题篮
图1
图2
‘①
‘②
