单项选择题

有如下程序：
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() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。

A．7 9
B．34 0
C．9 7
D．死循环

单项选择题

设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1. Text= Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sinqle) Print 程序设计 End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print Visual Basic ; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上最示的内容是

A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计

相关试题