下列函数过程的作用是计算x和y的最大公约数。请填空。

Private Sub Command1_ Click()

D．im x As Integer, y As Integer, Result As Integer

x = InputBox (“请输入第一个数”)

y = InputBox (“请输入第二个数”)

Result =______

Print x; "和"; y; "的最大公约数为: "; Result

E．nd Sub

Private Function GYS (ByVal A As Integer, ByVal B As Integer)

D．im T As Integer

T = A Mod B

D．o While ______

A． = B

B． = T

T = A Mod B

Loop

______

E．nd Function

[单选题]下面是求最大公约数的函数的首部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 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))

[单选题]48与108的最大公约数是（）A . 6B . 8C . 24D . 12

[单选题]（ 22 ）下面是求最大公约数的函数的首部F．unction 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

[单选题]编写下列事件过程和函数过程：Private Sub Commandl Click()D．im num(1 To 6)As Singlenum(1)=103:num(2)=190:num(3)=0num(4)=32:num(5)=-56:num(6)=100PrintPrint p2(6,num())E．nd SubPrivate Function p2(ByVal n As Integer,number()As Single)As Integerp2=number(1)F．or j=2 To n

[单选题]以下程序是用来计算两个非负数之间的最大公约数我们假设x,y中最大的那个数的长度为n，基本运算时间复杂度为O(1)，那么该程序的时间复杂度为()A．O(1)B．O(logn)C．O(n)D．O(n^2)

[试题]求两数的最大公约数function gcd(a,b:integer):integer;

[单选题]（26）编写下列事件过程和函数过程Private Sub Command1_Click() Dim num（1 TO 6）As Single Num(1)=103:Num(2)=190:Num(3)=0: Num(4)=32:Num(5)=-56:Num(6)=100: Print Print p2(6,num()) End Sub Private Function p2(By Val n Integer,number()As Single)As Integer P2=number(1) For

[单选题]编写如下事件过程和函数过程： Private Sub Form_Chck() DimBum(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 Bum(4)=32:num(5)=-56:num(6)=100 Print Pdnt p2(6,hum()) End Sub Private Function p2(ByVal n As Integer,number()As Single)As Integer p2=A．-56B．0C．103D．190

[单选题]编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1