单项选择题

阅读下面的程序：
Private Sub Form_Click()
Dim Check， Counter
Check=True
Counter=0
Do
Do While Counter ＜ 20
Counter=Counter + 1
If Counter=10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter， Check
End Sub
程序运行后，单击窗体，输出的结果为

A．15 0
B．20 -1
C．10 True
D．10 False

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x，s) Sum=Sum+ s Next X Print Sum End Sub Private Sub subl(y，w) w = 1 For i=1 To y w = w * i Next i End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．5
B．120
C．153
D．160

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．54321
B．4
C．54321
D．0

相关试题