[单项选择]有如下程序：
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（　） "的相关试题:

[单项选择]有如下程序： 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， 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 SubForm_Click（　）
Dim check As Boolean，n As Integer
check=False
n=0
Do
Do While n＜10
n=n+1
If n=5 Then
check=True
Exit Do
End if
Print n；
Loop
Loop Until check = True
End Sub
程序运行后，输出的结果是 ______ 。
A. 1 2 3
B. 1 2 3 4
C. 1 2 3 4 5
D. 1 2 3 4 5 6

查看答案

[单项选择]给出下面的程序：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 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
程序运行后，单击窗体，输出结果为______。

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click( ) 　　　　Dim i As Integer 　　　　For i=1 To 2 　　　　　　DS 　　　　Next i 　　　End Sub 　　　Sub DS( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　X=X + 1 　　　　y=y + 1 　　　　m=m &"*”：n=n&"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是( )。
A. * p表示的是指针变量p的地址
B. p表示的是变量a的地址，而不是变量a的值
C. * p表示的是指针变量p的值
D. * p只能用来说明p是一个指针变量

查看答案

我来回答:

提交

更多"有如下程序： Private Sub Form_Click（ ） "的相关试题:

更多"有如下程序： Private Sub Form_Click（　） "的相关试题: