更多"有如下程序： Private Sub Form_Click（ ） "的相关试题:
[单项选择]有如下程序： 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 Tree
D. 10 False
[单项选择]有如下程序：
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
[单项选择]有如下程序： 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
[填空题]阅读下面的程序：
Private Sub Form_Click（ ）
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
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
End Sub
程序运行后，单击窗体，输出结果为 _________。
[单项选择]阅读下面的程序：
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
[单项选择]阅渎下面的程序：
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
[单项选择]给出下面的程序：
Private Sub Command1_ 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
MsgBox Counter
End Sub
程序最后弹出的消息对话框的内容是______。
A. True
B. False
C. 20
D. 10
[填空题]阅读下面的程序：
PriVate Sub Form_C1ick（ ）
Dim Check As Booleau，Counter As Integer
Check=True
Counter=5
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
End Sub
程序运行后，单击窗体，输出结果为______。
