若有如下sub过程：Sub sfun(x As Single y As Single)

问题补充：

单项选择题:

若有如下sub过程：

Sub sfun(x As Single, y As Single)

t=x

x=t/y

y=t Mod y

End Sub

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

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

解析： 由题意可知sfun函数实现求除数和求余数的功能，所以最终结果是1.25和1。