VB 编写输入两个正整数求他们的最大的最大公约数

2025-03-29 01:55:55

推荐回答（1个）

回答1：

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

VB 编写 输入两个正整数 求他们的最大的最大公约数

VB 编写输入两个正整数求他们的最大的最大公约数