高中VB程序题用辗转相除法求最大公约数.已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1,num2,r分别表示被除数m、除数n和余数)①求num1/num2的余数r；②若r=0,则执行第⑤步
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/27 12:56:27
高中VB程序题用辗转相除法求最大公约数.已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1,num2,r分别表示被除数m、除数n和余数)①求num1/num2的余数r；②若r=0,则执行第⑤步
高中VB程序题
用辗转相除法求最大公约数.
已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1,num2,r分别表示被除数m、除数n和余数)
①求num1/num2的余数r；
②若r=0,则执行第⑤步；
③将num2的值放在num1中,将r的值放在num2中；
④重新执行第①步；
⑤输出最大公约数num2.
下列Visual Basic程序用于求三个正整数的最大公约数.程序界面如图所示,在文本框Text1、Text2和Text3中分别输入三个数a、b和c,单击"求最大公约数"按钮（Command1）后,在文本框Text4中输出a、b、c的最大公约数y.
Function temp(num1 as Integer,num2 as Integer) as Integer
Dim r as Integer ' 此函数用于计算两个正整数的最大公约数
r = num1 Mod num2
Do While ①
num1 = num2
num2 = r
r = num1 Mod num2
Loop
temp = num2
End Function
Private Sub Command1_Click()
Dim a as Integer,b as Integer,c as Integer,x as Integer,y as Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x = ②
y = temp(x,c)
Text4.Text = Str(y)
End Sub
（1）解决此问题的算法是 .（选填：解析法 或 枚举法）
在程序①和②划线处,填入适当的语句或表达式,把程序补充完整：
（2）程序中①划线处应填入___________________.
（3）程序中②划线处应填入___________________.
高中VB程序题用辗转相除法求最大公约数.已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1,num2,r分别表示被除数m、除数n和余数)①求num1/num2的余数r；②若r=0,则执行第⑤步
枚举法
r0
temp(a,temp(b,c))