求VB程序设计 输入两个数，求最大公约数和最小公倍数

Answer 1

m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
nm = n * m
If m < n Then t = m: m = n: n = t
    r = m Mod n
    Do While (r <> 0)
         m = n
         n = r
         r = m Mod n
    Loop
   MsgBox ("最小公倍数为" & nm / n)

Answer 2

Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, a1 As Integer, b1 As Integer
a = Val(InputBox("a="))
b = Val(InputBox("b="))
a1 = a: b1 = b
If a > b Then c = a: a = b: b = c
Do Until b1 Mod a1 = 0
c = b1 Mod a1
b1 = a1
a1 = c
Loop
Print "最大公约数="; a1
Print "最小公倍数="; a * b / a1
End Sub

Answer 3

Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, a1 As Integer, b1 As Integer
a = Val(InputBox("a="))
b = Val(InputBox("b="))
a1 = a: b1 = b
If a > b Then c = a: a = b: b = c
Do Until b1 Mod a1 = 0
c = b1 Mod a1
b1 = a1
a1 = c
Loop
Print "最大公约数="; a1
Print "最小公倍数="; a * b / a1
End Sub

Answer 4

http://jingyan.baidu.com/article/84b4f565c645e560f6da32ed.html
供参考