距离交会法测设点位，计算工作量较大，适用于没有经纬仪而只有钢尺的情况下，但要求场地平整。

假定有如下的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．1n1

B．1.25和1

C．1.25和4

D．5和4