假定有如下的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 打开窗体运行后,单击命令按钮,消息框的两行输出内容分别为