（23）设有以下函数过程

Private Function Fun(a() As Integer, b As String) As Integer

...

E．nd Function

若已有变量声明：

D．im x(5）As Integer, n As Integer, ch As String

则下面正确的过程调用语句是

A．）x(o)＝Fun(x, "ch")

B．）n＝Fun(n, ch

C．）Call Fun x, "ch"

D．）n＝Fun(x(5), ch)

[单选题]设有以下函数过程Private Function Fun(a()As Integer，b As String)As IntegerE．hd Function若已有变量声明：D．im x(5)As Integer，n As Integer，ch As String则下面正确的过程凋用语句是A．x(0)=Fun(x，“ch”)B．n=Fun(n，ch)C．Call Fun x，“ch”D．n=Fun(x(5)，ch)

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

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

[单选题]（33）假定有以下函数过程：F．unction Fun(S As String)As StringD．im s1 As StringF．or i=1 To Len(S)s1=LCase(Mid(S, i, 1))+s1Next iF．un=s1E．nd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )D．im Str1 As String, Str2 As StringStr1=InputBox("请输入一个字符串")S

[单选题]假定有以下函数过程：F．unction Fun(S As String)As StringD．im sl As StringF．ori=1 ToLen(S)sl=Lease(Mid(S，i，1))+s1NextiF．un=s1E．nd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl Click(、D．im Str1 As String．Str2 As StringStrl=InputBox(”请输入一个字符串”)Stf2=Fun(Strl)

[单选题]假定有以下函数过程： Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() DimStrl As String，Str2 As StrA．abcdefgB．ABCDEFGC．gfedcbaD．GFEDCBA

[单选题]假定有以下函数过程：Function Fun（S As String）As StringDim Sl AS StringFor i＝1 TO Len（S）sl=UCase（Mid（S，i，1））+slNext iFun＝s1End Function则Str2= Fun（"abcdefg"）的输出结果为（ ）。A． abcdefg B．ABCDEFGC．gfedcba D．GFEDCBA

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