Question

请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数。

如上标题，用VB程序实现

Answer 1

Dim m As Integer, n As Integer
Private Sub Command1_Click()
m = Val(InputBox("输入正整数"))
n = Val(InputBox("输入正整数"))
If n * m = 0 Then
MsgBox "两数任何一个数都不能为0!"
Exit Sub
End If
End Sub

Private Sub Command2_Click()
Dim r As Integer, s As Integer
r = m: s = 1
Do Until m Mod r = 0 And n Mod r = 0 '最大公约数
r = r - 1
Loop
Do Until s Mod m = 0 And s Mod n = 0 '最小公倍数
s = s + 1
Loop
Text1.Text = "最大公约数是：" & r & "最小公倍数是：" & s
End Sub

Answer 2

最大公约数和最小公倍数？是什么概念，我想不起来了