（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=100 b=25 x=funl(a,b) Print x End 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

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

[单选题]有如下函数过程:F．unction Fun(By Val x As Ingeger, ByVal y As Integer)As IntegerD．o While … y <>0reminder=x Mod yx=yy=reminderLoopF．un=xE．nd Function以下是调用该函数的事件过程,该程序的运行结果是Private Sub Command1D．im a As IntegerD．im b As Integera=100:b=25x=Fun(a,b)Print

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

[单选题]有如下函数过程：F．unction Fun(By Val x As Ingeger，ByVal y As Integer) As IntegerD．O While …y＜＞0reminder=x Mod yx=yy=reminderLoopF．un=xE．nd Function以下是调用该函数的事件过程，该程序的运行结果是Private Sub Command1_Click()D．im a As IntegerD．im b As Integera=100:b=25x=Fun(a,B)Print

[单选题]有如下函数过程。F．unction Fun(By Val x As Integer,By Val y As Integer)As IntegerD．o While y<>0reminder=x Mod yx=yy=reminderLoopF．un=xE．nd Function以下调用函数的事件过程,该程序的运行结果是Private Sub Command7_Click()D．im a As Integer,b As Integera=100:b=25x=Fun(a,B)Print 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

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

[单选题]设有以下函数过程：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的商的整数部分

[单选题]函数过程如下： FUNCTION FUN( N AS STRING)AS STRING DIM N1 AS STRING FOR I=1 TO LEN(N) N1 =UCASE(MID(N,I, 1)) + N1 NEXT I FUN: N1 END FUNCTION 则S=FUN("uvwxyz")的输出结果为( )。A．uvwxyzB．zyxwvuC．UVWXYZD．ZYXWVU