问题详情

试题33

若有如下Sub过程：

Sub sfun(x As Single , y As Single)

t=x

x=t/y

y=t Mod y

End Sub

在窗口中添加一个命令按钮Command33，对应的事件过程如下：

Private Sub Command32_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