vb6.0使用的时候出现问题

Private Sub Form_load()
Dim a As Integer
Dim b As Integer
a = InputBox("输入一个数")
b = InputBox("输入另一个数")
Do
If a < b Then
x = a
a = b
b = x
End If
r = a Mod b
a = r
Loop Until r = 0
Print "它们的最大公约数是"; b
End Sub

今天做了这个一个东西,但是在运行的时候运算不出结果.
结果是空的.
但是如果改成

Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
a = InputBox("输入一个数")
b = InputBox("输入另一个数")
Do
If a < b Then
x = a
a = b
b = x
End If
r = a Mod b
a = r
Loop Until r = 0
Print "它们的最大公约数是"; b
End Sub

就可以使用了^^求助
急用,在线等!谢谢

vb6.0使用的时候出现问题 VB6.0的问题？ vb6.0的问题 VB6.0的选项卡控件使用问题 关于VB6.0的问题 关于VB6.0 Sendkeys语句的使用 使用GHOST的时候出现问题 怎样使用VB6.0 vb6运行会出现问题 VB6.0中使用line input #1循环赋值给数组的问题.