有下列函数过程：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 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)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=

[单选题]有下列函数过程：F．unction fun1(ByVal x As Integer,ByVal y As Integer)As IntegerD．o While y＜＞0reminder=x Mod yx=yy=reminderLoopfun1=xE．nd Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。Private Sub Command1_Click()D．im a As IntegerD．im b As Integera=100b=25x=fun1(a,B)

[单选题]有下列函数过程： 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 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 lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为Commandl，编写事件过程调用该函数，输出结果为 ( )。 Private Sub Commandl_lick()A．25B．35C．45D．55

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

[单选题]有下列函数过程：F．unction Func2(a As Integer,b As Integer)As IntegerStaticm As Integer,i As Integerm=0i=2a=i+m+1b=i+a+bF．unc2=mE．nd Function在窗体上画一个命令按钮，然后编写下列事件过程：Private Sub Command1_Click()D．im p As Integer,k As Inmger,m As Integerk=4m=1p=Func2(k,m)Prim k;

[单选题]（27）下列函数过程 Function Func（a As Integer,b As Integer）As Integer Static m As Integer,i As Integer M=0 i=2 A=i+m+1 b=i+a+b Func2=m End Function Private Sub Command1_Click() Dim p As Integer,k As Integer,m As Integer k=4 m=1 P=Func2(k,m) Print k;m End Sub

[单选题]（ 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 的商的整数部分