Question

VB中函数的定义和调用，求两个数最大公约数和最小公倍数，急~~~

求M和N的最大公约数和最小公倍数（要求将此运算变为SUB过程）M和N由用户文本框输入，谢谢~~~~

Answer 1

Sub 最小公倍数和最大公约数()
Dim m As Integer, n As Integer
Dim m1 As Integer, n1 As Integer
Dim t As Integer
m = InputBox("输入自然数m：")
n = InputBox("输入自然数n：")
m1 = m
n1 = n
If m1 < n1 Then
m1 = n
n1 = m '交换m和n的值
End If
Do
r = m1 Mod n1
If r = 0 Then Exit Do
m1 = n1
n1 = r
Loop
str1 = m & "," & n & "的最大公约数=" & n1 & vbCrLf
str1 = str1 & "最小公倍数=" & m * n / n1
MsgBox str1
End Sub

Answer 2

《Visual Basic程序设计简明教程》上有这个例子