Sub subl(x As Single, ByVal y As Single)
t=x
x=t/y
y=t Mod y
End Sub
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
sub1 a,b
Print "a="；a，"b="；b
End Sub
程序运行后，单击命令按钮，则a= (6) ，b= (7) 。