vb求最大公约数

最大公约数：

Dim j As Integer, t As Integer, m As Integer, n As Integer Dim s As Integer, i As Integer, k As Integer

s = 1

m = InputBox("请输入m：")

n = InputBox("请输入n：")

Print "输入的两个数是："; m; "和"; n

If m > n Then

i = m: m = n: n = i

End If

If m = n Then

Print "最大公约数和最小公倍数都是"; m

Exit Sub

ElseIf n Mod m = 0 Then

Print "它们的最大公约数是"; m

print "它们的最小公倍数是"; n

Exit Sub

End If

k = m

t = n

Do While k <> 0

t = t Mod k

j = t: t = k: k = j

Loop

Print "它们的最大公约数是"; t;

m = m / t

n = n / t

s = m * n * t

Print "它们的最小公倍数是";