下面是求最大公约数的函数的首部 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))
下面是求最大公约数的函数的首部 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))
参考答案和解析
迭代算法
相关考题：
（ 27 ）要想在过程 Proc 调用后返回形参 x 和 Y 的变化结果，下列定义语句中正确的是A ） Sub Proc （ x as Integer,y as Integer ）B ） Sub Proc （ ByVal x as Integer, y as Integer ）C ） Sub Proc （ x as Integer,Byval y as Integer ）D ） Sub Proc （ Byval x as Integer, Byval y as Integer ）
有下列函数过程：Function funl(ByVal x As Integer, ByVal y As Integer) Do While y 0 Reminder=x Mody x=y y=reminder Loop Funl=xEnnd Function在下列按钮单击事件中调用该函数，则该程序的运行结果是 Privatr Sub Commandl_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a,b) Print x End SubA.0 B.25 C.50 D.100
有如下函数过程：Function HFC（ByVal x As Integer, ByVal y As Integer） As IntegerDo While y 0sic=x / yx=yy=sicLoopHFC=xEnd Function以下是该函数的调用过程，该程序的运行结果是Private Sub Command1_Click（）Dim a As IntegerDim b As Integera=12b=2x=HFC（a, B．Print xEnd Sub（ ）。A．0B．6C．2D．80
下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是 （ ）。A．Function CT（ByVal a As Integer）If a Mod 2=0 ThenReturn 0ElseReturn 1End ifEnd FunctionB．Function CT（ByVal a As Integer）If a Mod 2=0 ThenCT=0ElseCT=1End ifEnd FunctionC．Function CT（ByVal a As Integer）If a Mod 2=0 ThenCT=1ElseCT=0End ifEnd FunctionD．Function CT（ByVal a As Integer）If a Mod 2=0 ThenReturn 1ElseReturn 0End ifEnd Function
下列函数过程的作用是计算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
（ 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 Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。A．0B．12C．Str(z)D．显示错误信息
下面是求最大公约数的函数的首部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))
有如下函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer) As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a AS Integer Dim b As Integer a=100 b=25 x=fun1(a,B) Print x End SubA．0B．25C．50D．100
数组A在子过程或函数中定义为形参,正确的语句是( )。 A、Private Sub sele(ByVal A( ) As integer)B、Private Function sale(A() As Integer) As StringC、Private Sub sale(A() As Integer) As IntegerD、Private Sub sale(A(i) As Integer)
下面程序：Private Sub Form_Click()Dim x，y，z As Integerx＝5y＝7z＝0Call P1(x，y，z)Print Str(z)End SubSub P1(ByVal a As Integer, ByVal b As Integer, c As integer)c＝a＋bEnd Sub运行后的输出结果为A．0B．12C．Str(z)D．显示错误信息
有以下函数过程： Function Gys (ByVal x As Integer， ByVal y As Integer) As Integer Do While y＜＞0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a，B)Print x End SubA．0B．10C．50D．100
有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，B)Print x End SubA．0B．25C．50D．100
有如下函数过程。Function UNC(ByVal x As Integer，ByVal y As Integer)As IntegerDo While y＜＞0S=x/yx=yy=SLoopUNC=xEnd Function以下事件调用该函数，程序运行结果是【 】。Private Sub Command1_Click()Dim a As IntegerDim b As Integera=12b=2x=UNC(a，b)Print xEnd Sub
下面是求最大公约数的函数的首部（ ）。 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))
有如下事件过程： Function UNC (ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 sic=x/y x=y y=sic Loop UNC=x End Function 以下是该函数的调用过程，该程序的运行结果是 PriVate Sub COmmand1_Click() Dim a As Integer Dim b As Integer a=12 b=2 x=UNC (a，B)Print x End SubA．0B．6C．2D．80
有下列函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x MOd y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim aA．0B．25C．50D．100
下列子过程语句的说明正确的是( )。A．Sub fl(ByVal x() As Integer)B．Sub fl(x%())As IntegerC．Function fl%(fl%)D．Function fl%(x As Integer)
下面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
要想在过程Proc调用后返回形参x和Y的变化结果，下列定义语句中正确的是（ ）。【考点5过程调用与参数传递】A.Sub Proc（x as Integer，Y as Integer）B.Sub Proc（ByVal x as Integer，Y as Integer）C.Sub Proc（x as Integer，ByVal Y as Integer）D.Sub Proc（ByVal x as Integer，ByVal Y as Integer）
下面是求最大公约数的函数的首部： 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))
有如下函数过程： Function gys(ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 reminder = x Mod y x=y y=reminder Loop gys=x End Function以下是调用该函数的事件过程，该程序的运行结果是______。 Private Sub Command7_Click() Dim s As Integer Dim b As Integer a=100 b=25 x=gys(a，B)Print x End SubA． 0B．25C．50D．100
有如下函数过程： Function Fun (By Val x As Ingeger, ByVal y As Integer)As Integer Do While…y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a，b)Print x End SubA．0B．25C．50D．100
有下列函数过程：Function funl(ByVal x As Integer, ByVal y As Integer) Do While y 0 Reminder=x Mody x=y y=reminder Loop Funl=xEnnd Function在下列按钮单击事件中调用该函数，则该程序的运行结果是 Privatr Sub Commandl_Click() Dim a As IntegerDim b As Integer a=100 b=25 x=funl(a,b) Print x End SubA.0B.25C.50D.100
有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y ＜ ＞ 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是 Private Sub Command1 _ Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，B)Print x End SubA．0B．6C．2D．80
有以下函数过程： Function Gys(ByVal x As Integer，ByVal y As Integer)As Integer Do While y＜ 0 Remender=x Mod v x=y Y=Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer a=50 b=10 x=Cys(a，B)Print x End subA．0B．10C．50D．100
有如下函数过程： Function fun1 (ByVal x As Integer, ByVal y As Integer) As Integer Do While y ＜＞ 0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调节器用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a,b)Print x End SubA．0B．25C．5OD．100