求最大公约数和最小公倍数

[vb]代码库

Private Sub Form_Click()
 x = Val(InputBox("请输入第一个数："))
 y = Val(InputBox("请输入第二个数："))
 If x < y Then
     t = x
     x = y
     y = t
 End If
 x 1 = x
 y1 = y
 Print x, y
 Do While y <> 0
    r = x Mod y
    x = y
    y = r
 Loop
 Print "最大公约数为："; x
 Print "最小公倍数为："; x1 *y1 / x
End Sub