vb程序Mod Do '辗转相除法求最大公约数 R = MM Mod NN MM = NN NN = R Loop While R 0 在执行除法运算解决方案

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 12:09:35
vb程序Mod Do '辗转相除法求最大公约数 R = MM Mod NN MM = NN NN = R Loop While R 0 在执行除法运算解决方案

vb程序Mod Do '辗转相除法求最大公约数 R = MM Mod NN MM = NN NN = R Loop While R 0 在执行除法运算解决方案
vb程序Mod Do '辗转相除法求最大公约数 R = MM Mod NN MM = NN NN = R Loop While R 0 在执行除法运算
解决方案

vb程序Mod Do '辗转相除法求最大公约数 R = MM Mod NN MM = NN NN = R Loop While R 0 在执行除法运算解决方案
Private Sub Command1_Click()
Dim MM%, NN%, R%
MM = InputBox("请输入第一个整数")
NN = InputBox("请输入第二个整数")
Print MM, NN
If MM < NN Then R = MM: MM = NN: NN = R
R = MM Mod NN
Do While R 0
MM = NN: NN = R: R = MM Mod NN
Loop
Print "最大公约数:" & NN
End Sub