试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省东阳高级中学2018-2019学年高二下学期信息技术开学考试试卷
s = Text1.Text
List1.Clear
len1 = Len(s) ‘①
For i = 1 To len1 ‘②
For j = 1 To len1- i ‘③
List1.AddItem Mid(s, j, i) ‘④
Next j
Next i
运行时发现未输出所有子串，则修改（ ）
图1
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（ ）
For i=1 To 3
k=“”
Fori-1 To 2*i-1
k=k+“*”
List1.AddItem k
该程序运行后，在列表框List1中显示的是（ ）
Dim i As Integer ——1
Dim s As Integer ——2
s=1 ——3
For i=1 To 10
s=s*i ——4
Print s
Dim a(1 To 10) As Integer，b(1 To 10) As Integer
k = 0
For i = 10 To 1 Step -1
Do While b(i) <> 0 k = k + 1
a(k) = i: b(i) = b(i) - 1
Loop
若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（ ）
试题篮
