vb最大公约数与最小公倍数

Private Sub Command1_click()
Dim a As inter, b As Integer, r As Integer, maxv As Integer, minv As Integer
Me.Cls
'最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
maxv = IIf(a > b, a, b)
minv = IIf(a < b, a, b)
Do
r = maxv Mod minv: maxv = minv: minv = r
Loop While (r <> 0)
'最小公倍数
minv = a * b / maxv
Print "最大公约数 =" & Str(maxv) & Space(2) & "最小公倍数=" & Str(minv)
End Sub

有吗?
private sub form1_click()
print "最大公约数"
print "最小公倍数"
end sub
嘿嘿!