求做VB：给定任意两个正整数,求其对大公约数和最小公倍数有两个command和一个text,点击第一个command时,利用input输入两个正整数,点击第二个command是计算出其最大公约数和最小公倍数,并显示在

Question

求做VB：给定任意两个正整数,求其对大公约数和最小公倍数
有两个command和一个text,点击第一个command时,利用input输入两个正整数,点击第二个command是计算出其最大公约数和最小公倍数,并显示在text文本框里.

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