作业帮 > 数学 > 作业

vb程序 补充欧几里德的辗转相除算法是计算最大公因子的优秀算法,其原理是:若 a=bq+r,则a和b的最大公因子等于b和

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/16 22:39:35
vb程序 补充
欧几里德的辗转相除算法是计算最大公因子的优秀算法,其原理是:若 a=bq+r,则a和b的最大公因子等于b和r的最大公因子绝对值(都为整数)
比如求1406和646的最大公因子,可使用如下计算步骤:1406=2*646+114 →646=5*114+76 →114=1*76+38 →76=2*38+0 ,所以1406和646的最大公因子为38.程序如下,请在空白处填上合适内容.
Dim A as Long,B as Long,R as Long
A=inputbox(“请输入A的值”)
B=inputbox(“请输入B的值”)
Do
R= ①
A=B
B=R
Loop Until ②
Print “最大公约数=”; ③
① ② ③
Private Sub Command1_Click()
Dim A As Long,B As Long,R As Long
A = InputBox("请输入A的值")
B = InputBox("请输入B的值")
Do
R = A Mod B
A = B
B = R
Loop Until R = 0
Print "最大公约数="; A
End Su