题目内容
（请给出正确答案）
假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为 ______。
A．5 4
B．1 1
C．1.25 4
D．1.25 1
如果结果不匹配，请 联系老师 获取答案
更多“假定有如下的Sub过程： Sub S（x As Single…”相关的问题
设有如下程序 Private Sub Fom1_Click() Dim s As Integer，b As Integer a=20：b=50 p1 a，b p2 a，b p3 a，b Print"a="；a，"b=";b End Sub Sub pl(x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer，y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a=【 】和b=【 】。
窗体中有一个命令按钮Command1，其Click事件过程如下。
PriVate Sub Coranland1_Click()
For i=1 To 4
x=3
For j=2 To 3
x=3
For k=1 To 2
x=x+2
Next k
Next j
Next i
MsgBox x
End Sub
窗体运行后，单击命令按钮，消息框输出的结果是______。
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
For i＝1 To 4
x＝4
For j＝1 To 3
x＝3
Fork＝1 To 2
x＝x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是()。
A．7
B．15
C．157
D．528
窗体下面有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x = -1 a=InputBox("请输入第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为______。
在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dima As Variant
a=Array(1，2，3，4)
j=1
Fori=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是()。
A、4321
B、12
C、34
D、1234
Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label
1.Caption = x
Label
2.Caption = y
End Sub
Private Sub Proc(ByVal a As Integer, ByVal b
As Integer)
x = a * a
y = b + b
End Sub
运行程序后， 则两个标签中显示的内容分别是
A.5和3
B.25和3
C.25和6
D.5和6
