试题 试卷
题型：单选题 题类：常考题 难易度：困难
浙江省台州中学2016-2017学年高一下学期信息技术第四次统练试题
For i = 1 To 10
If a(i) >= 0 Then
n=n+1
List1.AddItem Str(a(i))
Else
m=m+1
List2.AddItem Str(a(i))
Next
则该程序段出错的原因是缺少了（ ）
Dim n As Integer，s As String
n = 64 :s = ""
Do While n > 0
s = Str(n Mod 7) + s
n = n \ 7
Loop
执行该程序段后，变量s的值是（ ）
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 10 '①
b = 20 '②
Text1.Text = "a+b=" + Val(a + b) '③
End Sub '④
试题篮
