单选题：假设有如下的Sub过程： Sub sfun(x As Single，y As Single)t=xx=t/yy=t

假设有如下的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 b Assingle
DimbAssingle
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