vb程序补充欧几里德的辗转相除算法是计算最大公因子的优秀算法,其原理是：若a=bq+r,则a和b的最大公因子等于b和r的最大公因子绝对值（都为整数）比如求1406和646的最大公因子,可使用如下

Question

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 “最大公约数＝”; ③
① ② ③

Answer 1

Private Sub Command1_Click()Dim A As Long,B As Long,R As LongA = InputBox("请输入A的值")B = InputBox("请输入B的值")DoR = A Mod BA = BB = RLoop Until R = 0Print "最大公约数＝"; AEnd Sub