试题 试卷
题型：单选题 题类：常考题 难易度：普通
新疆沙雅县第二中学2018-2019学年高一上学期信息技术期末考试试卷
Private Sub Form_Click( )
Dim x as Integer, n as Integer
x=1
n=0
Do While x < 20
n=n+1
x=x * 3
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
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,文本框Text1的内容为“Happy2017”。执行程序后，变量n的值为（ ）
试题篮
