VB编程用欧几里得算法求俩个正整数的最大公约数
答案:1 悬赏:0 手机版
解决时间 2021-11-28 17:02
- 提问者网友：孤山下
- 2021-11-28 13:02
VB编程用欧几里得算法求俩个正整数的最大公约数
最佳答案
- 五星知识达人网友：像个废品
- 2021-11-28 13:52
Private Sub Form_Click()
Dim m%, n%, t%, i%, r%
m = InputBox("请输入一个数字m")
n = InputBox("请输入一个数字n")
If m < n Then t = m: m = n: n = t
r = n
Do While n > 0 And m > 0 And r <> 0
r = m Mod n
m = n
n = r
Loop
Print "m,n的最大公约数为"; m
End Sub
Dim m%, n%, t%, i%, r%
m = InputBox("请输入一个数字m")
n = InputBox("请输入一个数字n")
If m < n Then t = m: m = n: n = t
r = n
Do While n > 0 And m > 0 And r <> 0
r = m Mod n
m = n
n = r
Loop
Print "m,n的最大公约数为"; m
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯