有没有求两个数的最大公约数和最小公倍数的vb代码？谢谢！

Public Function zuidagy() As Integer
Dim m, n, r, t As Integer
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
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
Return n
End Function
Public Function zuixiaogb() As Integer
Dim m, n, r, t, nm As Integer
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
Return nm / n
End Function
Public Function zuidazuixiao()
Dim m, n, r, t, nm As Integer
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("最大公约数为" & n)
MsgBox("最小公倍数为" & nm / n)
Return 0
End Function

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/jyryf2fxvvyyje2f23.html