假定有如下的 Sub 过程 : Sub s fun(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