单选题假定有如下Sub过程。
Sub sfun(x As Single，y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程。
Private Sub Command1_Click()
Dim a as single
Dim b as single
a=5
b=4
sfun a，b
MsgBox a ＆ chr(10)+chr(13) ＆ b
End Sub
则单击按钮后的输出结果是( )。
A) 1和1 B) 1.25和1 C) 1.25和4 D) 5和4

【正确答案】 B

【答案解析】[解析] 此题考查考生对VBA中SUB过程中参数传递及对表达式运算的了解程度。在主过程中，变量a及变量b分别被赋值为5和4，然后调用SUB过程，在该过程中，变量x被赋值为a除以b的商1.25，而变量y则被赋值为a除以b的余数1，SUB过程结束后，参数返回，重新对变量a和b赋值，所以MsgBox所显示的值应当为1.25和1，故选项B)为正确答案。