试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省“温州十五校联合体”2018-2019学年高二下学期信息技术期中考试试卷
Private Sub Text1_Change()
Dim a, i As Integer
a= Val(Text1.Text)
For i = 2 To 6 Step 2
If a<= 15 Then a = a + i
Next i
Text1.Text = Str(a)
End Sub
若在文本框Text1中输入2，执行该程序段，For语句的循环次数为（ ）
该同学绘制了该程序的流程图，如下图所示：
Private Sub Form_Load()
x=1
For i=1 To 5
x=x*i
For i= 1 To 6
a(i)=i+1
该程序段运行后数组元素a(3)的值是：（ ）
Do While i <= n
x = Int(Rnd() * 9) + 1 If x Mod 2 = 1 Then
a(i) = x Else
a(n) = x n = n - 1
End If
i = i + 1 Loop
数组元素的初值均为 0，执行该程序段后，在下列选项中 a(1)至 a(5)各元素值不可能的是（ ）
Private Sub Command 1_Click()
Dim i As Integer
Dim t As Integer
Dim s As String
i = 1:t = 1:n = Text1.Text
List1.Clear
Do While t< = n
s = s + “*”
If i = t Then
List1.AddItem s
t = t + 1
i=0
i = i + 1
Loop
a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"
For i = 1 To 2
For j = 1 To 5 - i
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.text=a(j)
执行该程序段后，文本框Text1显示的内容为（ ）
试题篮
