更多"有如下程序: 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=Fadtse
EXit Do
End If
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后,单击窗体,输出结果为 ______。
[填空题]阅读下面的程序:
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 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