试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省台州市2017-2018学年高二上学期信息技术第一次月考试题
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
执行这部分流程后，变量x，y的值分别是（ ）
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s1 As String, s2 As String, c As String
s1=Text1.Text
s2=” ”
n=Len(s1)
For i=1 To n
c=Mid(s1,i,1)
s2=c+s2
Next i
Text2.Text=s2
For i= 1 To 10
b(i)=0
For i= 1 To 5
For j= 1 To 10
If b(i) <a(j) Then
b(i)=a(j)
t=j
End If
Next j
a(t)=0
List 1.Additem Str(b(i) )
其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List 1中依次输出的数据是（ ）
s=0
For k=1 To 5
s=s * k
Next k
Print s
试题篮
