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 "它们的最小公倍数是"; s

Function GYS(lNum1 As Long, lNum2 As Long) As Long
Dim i As Long
For i = lNum1 To 1 Step -1
If lNum1 Mod i = 0 And lNum2 Mod i = 0 Then
GYS = i
Exit For
End If
Next
End Function

Funct