网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
求两数的最大公约数
function gcd(a,b:integer):integer;
参考答案
更多 “ 求两数的最大公约数function gcd(a,b:integer):integer; ” 相关考题
考题
单击命令按钮执行下列程序，其输出结果是。 Private Sub Commana1_Click() Dim a As Integer,b As Integer,c As Integer a = 3 b = 4 c = 5 Print SecProc(c,b,a) End Sub Function FirProc(x As Integer,y As Integer,z As Integer) FirProc = 2 * x + y + 3 * z End Function Function SecProc(x As Integer,y As Integer,z As Integer) SecProc = FirProc(z,x,y) + x End FunctionA. 20 B. 22 C. 28 D. 30
考题
单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click（）Dim a As Integer, b As Integer, c As Integera=2: b=3: c=4Print P2（c, b, A．End SubPrivate Function P1（x As Integer, y As Integer, z As Integer）P1=2 * x + y + 3 * zEnd FunctionPrivate Function P2（x As Integer, y As Integer, z As Integer）P2=P1（z, x, y） + xEnd Function （ ）。A．21B．19C．17D．34
考题
下列函数过程的作用是计算x和y的最大公约数。请填空。Private Sub Command1_ Click()Dim x As Integer, y As Integer, Result As Integerx = InputBox (“请输入第一个数”)y = InputBox (“请输入第二个数”)Result =______Print x; "和"; y; "的最大公约数为: "; ResultEnd SubPrivate Function GYS (ByVal A As Integer, ByVal B As Integer)Dim T As IntegerT = A Mod BDo While ______A = BB = TT = A Mod BLoop______End Function
考题
（ 25 ）设有以下函数过程Function fun(a As Integer,b As Integer)Dim c As IntegerIf ab Thenc=a:a=b:b=cEnd Ifc=0Doc=c+aLoop Until c Mod b=0fun=cEnd function若调用函数 fun 时的实际参数都是自然数，则函数返回的是A ） a 、 b 的最大公约数B ） a 、 b 的最小公倍数C ） a 除以 b 的余数D ） a 除以 b 的商的整数部分
考题
（ 22 ）下面是求最大公约数的函数的首部Function gcd ( ByVal x As Integer, ByVal y As Integer ) As Integer若要输出 8 、 12 、 16 这 3 个数的最大公约数，下面正确的语句是A ） Print gcd ( 8,12 ) ， gcd ( 12,16 ) ， gcd ( 16,8 )B ） Print gcd ( 8 , 12 , 16 )C ） Print gcd ( 8 ) ， gcd ( 12 ) ， gcd ( 16 )D ） Print gcd ( 8 , gcd ( 12,16 ))
考题
下列程序运行后，单击命令按钮，窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click()A．23B．19C．21D．22
考题
单击命令按钮时，下列程序代码的执行结果为( )。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z，x，y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End SubA．21B．19C．17D．34
考题
下列子过程语句中正确的是 A.Sub f1(By Val()As Integer) B.Sub f1(n()As Integer)As Integer C.Function f1(f1 As Integer)As Integer D.Function f1(By Val f As Integer)
考题
下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer，ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是A．Print ged(8，12)，gcd(12，16)，gcd(16，8)B．Print ged(8，12，16)C．Print gcd(8)，gcd(12)，gcd(16)D．Print gcd(8，gcd(12，16))
考题
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=2：b=3：C=4 Print P2(c，b，A)End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer，y As Integer，z As Integer) P2=P1(z，x，y) + X End FunctionA．21B．19C．17D．34
考题
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc(c，b，A)End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x As Integer，y As hteger，z As Integer) SecProc=FirProc(z，x，y)+x+7 End FunctionA．20B．25C．37D．32
考题
下列过程语句中正确的是( )。A．Sub fl(By Val () As Integer)B．Sub fl(n() As Integer)As IntegerC．Function fl(fl As Integer)As IntegerD．Function fl(By Val f As Integer)
考题
单击命令按钮时，下列程序代码的执行结果为 ( ) Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer, y As Integer, z As Integer) SecProc＝FirProc(z, x, y)+x End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a＝2 :b=3 :c=4 Print SecProc(c, b,A)End SubA．21B．19C．17D．34
考题
单击一次窗体之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 4 Print Value(a, b,C)End Sub Function Num(x As Integer, y As Integer, z As Integer) Num = x * x + y * y + z * z End Function Function Value(x As Integer, y As Integer, z As Integer) Value = Num(x, y, z) + 2 * x End FunctionA．21B．23C．19D．35
考题
设有以下函数过程： Function fun(a As Integer，b As Integer) Dim c As Integer If ab Then c=a：a=b：b=C End IF c=0 Do c=c+a Loop Until c Mod b=0 fun=c End Function 若调用函数fun时的实际参数都是自然数，则函数返回的是（ ）。A.a、b的最大公约数B.a、b的最小公倍数C.a除以b的余数D.a除以b的商的整数部分
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click () Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 Print fun2 (c, b,A)End Sub Private Function funl (x As Integer, y As Integer, z As Integer) fun1 = 2 * x + y + 3 * z End Function Private Function fun2(x As Integer, y As Integer, z As Integer) fun2 = fun1(z, x, y)+ x End Function程序运行后，单击命令按钮，则窗体上显示的内容是A．7B．14C．17D．30
考题
下列子过程语句中正确的是( )。A．Sub f1(ByVal() As Integer)B．Sub f1(n() As Integer)As IntegerC．Function f1(f1 As Integer)As IntegerD．Function f1(ByVa1 f as Integer)
考题
下面是求最大公约数的函数的首部（ ）。 Function fun(By Val x As integer．ByVal Y As Integer)As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是A. Print fun(8，12)，fun(12，16)，fun(16，8)B. Prilit fun(8，12，16)C. print fun (8，12)，fun(12，16)，fun(16)D. Print fun(8，fun(12，16))
考题
以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 Private Function p1(x As Integer，y As Integel，z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer，y As Integer，z As Integer) p2=p1(2，y，x)+x End Function Private SubCommandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c，b，A)End SubA．19B．21C．22D．23
考题
下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是A．Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 0 ElSe Return 1 End if End FunctionB．Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=0 Else CT=1 End if End FunctionC．Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=1 Else CT=0 End if End FunctionD．Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 1 Else Return 0 End if End Function
考题
下面是求最大公约数的函数的首部： Function gcd(ByVal X As Integer，ByVal y As Integer)As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是（ ）。A.Print gcd(8，12)，gcd(12，16)，gcd(16，8)B.Print gcd(8，12，16)C.Print gcd(8)，gcd(12)，gcd(16)D.Print gcd(8，gcd(12，16))
考题
单击命令按钮时，下列程序代码的执行结果为______。 Private Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim C As Integer a=2 b = 3 c = 4 Print SecProc(c，b，A) End SubA． 21B．19C．17D．34
考题
设有以下函数过程：Function fun(a As Integer，b As Integer)Dim c As IntegerIf a＜b Thenc=a：a=b：b=CEnd IFc=0Doc=c+aLoop Until c Mod b=0fun=cEnd Function若调用函数fun时的实际参数都是自然数，则函数返回的是（ ）。A.a、b的最大公约数B.a、b的最小公倍数C.a除以b的余数D.a除以b的商的整数部分
考题
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3:b :4:c =5 Print SecProc ( c, b,A)End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc:2 * x + y + 3 * z+2 End Function Function SecProc( x As Integer, y As Integer, z As Integer) SecProc = FirProc ( z, x, y) + x + 7 End FunctionA．20B．25C．37D．32
热门标签
最新试卷
