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