如果存在如下过程:

Private Function Fun(a() As Integer)

D．im First As Integer, Last As Integer, i As Integer

F．irst=LBound(a)

Last=UBound(a)

Max=a(First)

F．or i=First To Last

If a(i) > Max Then Max=a(i)

Next

F．un=Max

E．nd Function

在窗体上添加一个命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

ReDim m(1 To 4) As Integer

m(1)=20: m(2)=30: m(3)=50: m(4)=100

c=Fun(m)

Print c

E．nd Sub

单击命令按钮,其输出结果为 [ ]。

[单选题]（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, chC．）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)

[主观题]如果存在如下过程：Private Function FMax（a（） As Integer）D．im First As Integer, Last As Integer, i As IntegerF．irst=LBound（A）Last=UBound（A）Max=a（First）F．or i=First To LastIf a（i） > Max Then Max=a（i）Next iF．Max=MaxE．nd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private

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

[单选题]（ 30 ）有如下通用过程：Public Function Fun(xStr As String) As StringD．im tStr As String ,strL As IntegertStr= ” ”strL=Len(xStr)i=strL/2D．o While i<=strLtStr=tStr & Mid(xStr,i+1,1)i=i+1LoopF．un=tStr & tStrE．nd Function在窗体上画一个名称为 Text1 的文本框和一个名称为 Com

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