如果存在如下过程：Private Function FMax（a（） As Integer）Dim First As Integer, Last As Integer, i As IntegerFirst=LBound（A）Last=UBound（A）Max=a（First）For i=First To LastIf a（i） > Max Then Max=a（i）Next iFMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_

题目

如果存在如下过程：

Private Function FMax（a（） As Integer）

Dim First As Integer, Last As Integer, i As Integer

First=LBound（A）

Last=UBound（A）

Max=a（First）

For i=First To Last

If a（i） > Max Then Max=a（i）

Next i

FMax=Max

End 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=FMax（m）

Print c

End Sub

单击命令按钮，其输出结果为 【12】 。

相似考题

1.在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）Dim i As IntegerFor i=LBound（oldCopy（） ） To UBound（oldCopy（） ）newCopy（i） =oldCopy（i）Next iEnd SubPrivate Sub Command1_Click（）Dim m（10） As Integer, n（10） As IntegerFor i=1 To 10m（i） =i  iNext iCall BTC（m, n）Print n（5）End Sub程序运行后，单击命令按钮输出结果为（ ）。A．0B．2C．10D．25

2.如果存在如下过程:Private Function Fun(a() As Integer)Dim First As Integer, Last As Integer, i As IntegerFirst=LBound(a)Last=UBound(a)Max=a(First)For i=First To LastIf a(i) > Max Then Max=a(i)NextFun=MaxEnd Function在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()ReDim m(1 To 4) As Integerm(1)=20: m(2)=30: m(3)=50: m(4)=100c=Fun(m)Print cEnd Sub单击命令按钮,其输出结果为 【 】。

3.设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（ ）。A.Private Sub p(a As Integer)B.Private Sub p(a（ ）As Integer)C.Private Sub p(a(10)As Integer)D.Private Sub p(a(n)As Integer)

4.下列子过程语句中正确的是 A.Sub f1(By Val()As Integer) B.Sub f1(n()As Integer)As Integer C.Function f1(f1 As Integer)As Integer D.Function f1(By Val f As Integer)

更多“如果存在如下过程: PrivateFunctionFMax(a()AsInteger) DimFirstAsInteger,LastAsInteg ”相关问题

  • 第1题：

    数组A在子过程或函数中定义为形参,正确的语句是( )。

    A、Private Sub sele(ByVal A( ) As integer)

    B、Private Function sale(A() As Integer) As String

    C、Private Sub sale(A() As Integer) As Integer

    D、Private Sub sale(A(i) As Integer)


    参考答案：C

  • 第2题：

    在窗体上画一个命令按钮，然后编写如下事件过程： Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) Dim i AS Integer For i=LBound(oldCopy( ))To UBound(oldCopy( )) newCopy(i)=oldCopy(i) Next i End Sub Private Sub Command1 _ Click( ) Dimm(10) As Integer，n(10)As Integer For i=1 To 10 m(i) =i*i Next i Call BTC(m，n) Print n(5) End Sub 程序运行后，单击命令按钮输出结果为

    A．0

    B．2

    C．10

    D．25


    正确答案：D
    解析：在此题中定义了一个数据拷贝函数，用数组来保存数据，在主调过程中，先用For…Next循环语句给m()赋给，然后调用BTC函数，将m()中的数据赋给n()，最后输出n(5)。在数据拷贝函数中，用了函数LBound(oldCopy())和UBound(old-Copy())分别获得数组的下界和上界，控制循环次数。用newCopy(i)=oldCopy(i)赋值语句，将m数组中的数据赋给n数组。因为m(5)=25，数组n与数组m等价，所以n(5)也是25。

  • 第3题：

    下面定义过程语句说明合法的是______。

    A．Sub f1(ByVal n(2) As Integer)

    B．Sub f1(ByVal n() As Integer) As Integer

    C．Function f1(ByVal f1 As Integer) As Integer

    D．Function f1(ByVal n As Integer)


    A

  • 第4题：

    设程序中有如下数组定义和过程调用语句：

    Dim a(10) as integer

    ……

    Call p(a)

    如下过程定义中，正确的是

    A)Private Sub p(a as integer)

    B)Private Sub p(a() as integer)

    C)Private Sub p(a(10) as integer)

    D)Private Sub p(a(n) as integer)


    正确答案：B
    【答案】：B
    【知识点】：以数组作为参数时形式参数的定义形式
    【解析】：形式参数为数组时，表达示为sub name( array() as integer[string......])，并不需要指明元素个数，但小括号不能省略。故本题选B。

  • 第5题：

    设程序中有如下数组定义和过程调用语句： Dim a（10) As Integer …… Call p（a) 如下过程定义中，正确的是

    A．Private Sub p(a As Integer)

    B．Private Sub p(a() As Integer)

    C．Private Sub p(a(10) As Integer)

    D．Private Sub p(a(n) As Integer)


    B 【答案】：B 【知识点】：以数组作为参数时形式参数的定义形式 【解析】：形式参数为数组时，表达示为sub name( array() as integer[string......])，并不需要指明元素个数，但小括号不能省略。故本题选B。

相关内容