[单项选择]给出下面的程序：
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 Command1_ Click"的相关试题:

[单项选择]给出下面的程序：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 CounterEnd Sub 程序最后弹出的消息对话框的内容是______。
A. True
B. False
C. 20
D. 10

查看答案

[单项选择]给出下面程序：
Private Sub Command1_Click（　）
Dim x，y，z
X=False
For Each y In 2
If y．Text="Hello" Then
x=True
Exit For
End If
Next y
End Sub
下面描述正确的是
A. 退出For Each…Next循环的条件是x=True
B. 退出For Each…Next循环的条件是x=False
C. 程序检查y对象的Text属性，等于“”时退出For Each…Next循环
D. 程序逐一查找在z中的对象，不确切并判断其Text属性，文本框中的内容等于“Hello”时退出For Each…Next循环

查看答案

[单项选择]阅读下面的程序：
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=Fadtse
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 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=Tree 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 程序运行后，单击窗体，输出结果为【9】。

查看答案

[多项选择]下面程序： Private Sub Form_Click（　） Dim x，y，z As Integer x=5 Y=7 z=0 Call P1(x,y,z) Print Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub 运行后的输出结果为______。
A. 0
B. 12
C. Str(z)
D. 显示错误信息

查看答案

我来回答:

提交