作业帮 > 综合 > 作业

VB编程用欧几里得算法求俩个正整数的最大公约数

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/31 05:02:17
VB编程用欧几里得算法求俩个正整数的最大公约数
VB编程用欧几里得算法求俩个正整数的最大公约数
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 Su