有下列函数过程：

F．unction fun1(ByVal x As Integer,ByVal y As Integer)As Integer

D．o While y＜＞0

reminder=x Mod y

x=y

y=reminder

Loop

fun1=x

E．nd Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。

Private Sub Command1_Click()

D．im a As Integer

D．im b As Integer

a=100

b=25

x=fun1(a,B)Print x

E．nd Sub

A．0

B．25

C．50

D．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 aA．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

[单选题]有下列函数过程：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

[单选题]（27）有下列函数过程（ ）。 Function fun1(By Val x As Integer,By Valy As Integer) As Integer Do While y<>0 reminder=x Mody x=y y=reminnder Loop Fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a

[单选题]有如下函数过程： 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=

[单选题]有如下函数过程： 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=

[单选题]有如下函数过程： Function Fun(By Val x As Integer，By Val y As Integer)As Integer Do While Y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer，b As Integer a=100:b=25 x=Fun(a,B) Prin

[单选题]（ 25 ）设有以下函数过程F．unction fun(a As Integer,b As Integer)D．im c As IntegerIf a<b Thenc=a:a=b:b=cE．nd Ifc=0D．oc=c+aLoop Until c Mod b=0fun=cE．nd function若调用函数 fun 时的实际参数都是自然数，则函数返回的是A． ） a 、 b 的最大公约数B． ） a 、 b 的最小公倍数C． ） a 除以 b 的余数D． ） a 除以 b 的商的整数部分

[单选题]设有以下函数过程：F．unction fun(a As Integer，b As Integer)D．im c As IntegerIf a＜b Thenc=a：a=b：b=CE．nd IFc=0D．oc=c+aLoop Until c Mod b=0fun=cE．nd Function若调用函数fun时的实际参数都是自然数，则函数返回的是（ ）。A．a、b的最大公约数B．a、b的最小公倍数C．a除以b的余数D．a除以b的商的整数部分

[单选题]设有以下函数过程：F．unction fun(a As Integer，b As Integer)D．im c As IntegerIf a<b Thene=a：a=b：b=cE．nd Ifc=0D．oc=C+aroop Until c Mod b=0fun=cE．nd Function若调用函数fun时的实际参数都是自然数，则函数返回的是A．a、b的最大公约数B．a、b的最小公倍数C．a除以b的余数D．a除以b的商的整数部分