[填空题] Sub subl(x As Single, ByVal y As Single) t=x x=t/y y=t Mod y End Sub Private Sub Form_Cli

[填空题] 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) 。