更多"阅读下面的程序：
Private Sub Form_Click("的相关试题:
[填空题]阅读下面的程序：
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_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 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
[填空题]阅读下面的程序：
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 Command1_Click( )
Dim i As Integer，k As Integer
k=2
For i=1 To 3
Print H(k)；
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a+1
b=b+1
H=a*b+j
End Function
程序运行后，单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356
[单项选择]阅读下列程序：
Private Sub Form Click（ ）
Dim i As Integer， sum As Integer
For i = 2 To 10
If i Mod 2 ＜＞ 0 Then
Print i；
Else
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，在窗体上的输出结果是
A. 3 5 7 9 30
B. 1 3 5 7 9
C. 2 4 6 8 20
D. 11 15 17 19 20
