更多"给出下面程序： Private Sub Command1_Click"的相关试题:
[单项选择]给出下面程序：
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 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 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 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_Click（ ）
Dim x,y，z As Integer
x=5
y=7
2=0
Call P1(x,y，z)
Print Str(z)
End Sub
Sub P1(By Va1 a As Integer，By Va1 b As Integer，c As Integer)
c=a+b
EndSub
运行后的输出结果为_________。
A. 0
B. 12
C. Str(z)
D. 显示错误信息
[填空题]
阅读下面的程序：
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 x,y,z As Integer
x=5
y=7
z=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(By Val a As Integer, By Val b As Integer, c As Integer)
c=a+b
End Sub
运行后的输出结果为______。
A. 0
B. 12
C. Str(2)
D. 显示错误信息
[单项选择]下面程序：
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. Sb(z)
D. 显示错误信息
[多项选择]下面程序：
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. 显示错误信息
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(
[单项选择]下面程序运行后的结果是( )。
Private Sub Form_Click（ ）
Dim s As Integer，k As Integer,i As Integer，n As Integer
s=1
fori=1 to 3
forj=i to 3
for k=j to istep-1
s=s*k
nextk,J,i
print s
End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]阅读下面的程序：
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_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
