UC知道VB 编写 输入两个正整数 求他们的最大的最大公约数
来源：百度知道 编辑：UC知道 时间：2024/05/10 10:56:03
要求M比N大（用M做被除数） 如果输入M比N大时则两者的值进行交换
（用DO``` LOOP Until 语句来完成或则DO```LOOP While）
（用DO``` LOOP Until 语句来完成或则DO```LOOP While）
Private Sub Command1_Click()
Dim m As Long, n As Long, s As Long
m = Val(InputBox("请输入一个正整数M!!"))
n = Val(InputBox("请输入一个正整数N!!"))
Print m; "和"; n; "的最大公约数为:";
If m < n Then
s = m: m = n: n = s
End If
Do
s = m Mod n
m = n
n = s
Loop While s <> 0
'如果换一下可以为:Loop Until s = 0
Print m
End Sub