For i=0 To 7
Print i
Next I
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)
Next i
执行该程序段后,文本框Text1显示的内容为( )
Const n = 6
Dim a (1 To n) As Integer
Dim i As Integer, j As Integer, t As Integer
Randomize For i = 1 To n
a (i) = Int (Rnd * 20 + 11)
Next i
Do While True
For i = 1 To n-1
If a(i) > a(i +1) Then Exit For
Next i
If i < n Then
For i = 1 To n
j = Int(Rnd * 6) + 1
t = a(3): a(3)=a(i): a(i) = t
Next i
Else
Exit Do
End if
Loop
上述程序段执行后,a(1)到a(6)的值可能是( )
n=0
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c>=“0”And c<=“9”Then m=1 Else m=2
a(m)=a(m)+1
If a(m)=1 Then n=n+1
Next i
数组a中各元素的初始值都为0,文本框Textl中的内容为“Happy2017”。执行该程序段后,变量n的值为( )