更多"阅读下面的程序: 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 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_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 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 CounterEnd Sub 程序最后弹出的消息对话框的内容是______。
A. True
B. False
C. 20
D. 10
[单项选择]有如下程序: 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 m, n As Integer
m = InputBox("请输入M的值")
m = Val(m)
m1 = m
n = InputBox("请输入N的值")
n = Val(n)
n1 = n
Do While n<>0
remin = m Mod n
m = n
n = remin
Loop
Print m1, n1, m
End Sub
程序运行后,单击窗体,在输入对话框中分别输入16和24,则程序在窗体上的输出结果为________。
A. 16 24 4
B. 16 24 8
C. 24 16 6
D. 24 16 8