作业帮 > 综合 > 作业

vb程序Mod Do '辗转相除法求最大公约数 R = MM Mod NN MM = NN NN = R Loop Wh

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 14:29:06
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 Wh
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 Su