VB编程高手进 ~~~急

编写程序，利用Sub过程，计算两个整数的最大公约数和最小公倍数。
要求：两个整数的输入与最大公约数、最小公倍数的输出由事件过程完成。
我是VB初学者，啥也不会。各位高手帮帮我啊！！
我要的是SUB过程，要建立过程

答案一：
Private Sub Command1_Click()
Dim m, n As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
mn = m * n
If m < n Then
t = m
m = n
n = t
End If
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Text3.Text = CStr(n)
Text4.Text = CStr(mn / n)
End Sub
=========================

4个text

2个label

1个command
答案二：
Private Sub Command1_Click()

Rem 求两个数x,y的最大公约数和最小公倍数

Dim x%, y%, z%

x = InputBox("请输入第一个数：")

y = InputBox("请输入第二个数：")

z = x * y

Print x, y

Print

Do Until x = y

If x > y Then x = x - y Else y = y - x

Loop

Print "这两个数的最大公约数是："

Print x

Print "这两个数的最小公倍数是："