Private Sub Command1_Click()

　　Dim a As Single

　　Dim b As Single

　　a=5: b=4

　　Call S(a, b)

　　End Sub

　　Sub S(x As Single, y As Single)

　　t=x

　　x=t \ y

　　y=t Mod y

　　End Sub

　　在调用运行上述程序后，a和b的值分别为