用辗转相除法求最大公约数.已知用辗转相除法求两个正整数m、n的最大公约数的算法如下:(用num1,num2,r
用辗转相除法求最大公约数.已知用辗转相除法求两个正整数m、n的最大公约数的算法如下:(用num1,num2,r
用辗转相除法求最大公约数.
已知用辗转相除法求两个正整数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)程序中②划线处应填入___________________.
(1)解决此问题的算法是 解析法 .(选填:解析法或枚举法)
在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:
(2)程序中①划线处应填入 r 0 .
(3)程序中②划线处应填入 temp(a,b) .