编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As

题目

编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．6

B．12

C．24

D．47

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

设程序中有如下数组定义和过程调用语句： 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。

第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题：

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

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。

第4题：

若在窗体设计过程中，命令按钮Command0的事件属性设置如下图所示，则含义是（）。

A.只能为“进入”事件和“单击”事件编写事件过程

B.不能为“进入”事件和“单击”事件编写事件过程

C.“进入”事件和“单击”事件执行的是同一事件过程

D.已经为“进入”事件和“单击”事件编写了事件过程

正确答案：D
进入事件和单击事件已经具备了事件过程。

第5题：

设程序中有如下数组定义和过程调用语句： 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)

正确答案：B
B。【解析】本题考查的是过程的调用，根据题干在定义中不许定义一个a数组，其中a数组不能定长，所以答案为B。

第6题：

如果存在如下过程:

Private Function Fun(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)

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=Fun(m)

Print c

End Sub

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

正确答案：100
100 解析：在程序Sub中定义了一个含4个元素的数组,并且分别给它们赋值,数组上界是4,下界为1;将数组m作为实参调用Fmax事件过程,并将数组m的地址传递给数组a,即此时数组a与m共用一个存储空间;将数组的上界和下界分别赋给变量Last和First,在赋值表达式中分别调用了LBound()函数求数组下界,及UBound()函数求数组的上界;在循环语句中,变量的初始值为数组的下界为1,终值为数组的上界为4,循环体是一个条件语句,如果a(i) 中的值大于Max,那么就将a(i)的值赋给Max,当循环结束后,将Max作为函数的返回值,所以此事件过程的功能即为求数组中的最大值。

第7题：

若在窗体设计过程中，命令按钮CornmanelO的事件属性设置如下图所示，则含义是

A．只能为“进入”事件和“单击”事件编写事件过程

B．不能为“进入”事件和“单击”事件编写事件过程

C．“进入”事件和“单击”事件执行的是同一事件过程

D．已经为“进入”事件和“单击”事件编写了事件过程

正确答案：D

第8题：

设有如下通用过程： Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程： Private Sub Commandl_Click() Dim arr(5)As Integer,n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是______。

A． 30

B．25

C．20

D．15

正确答案：A
解析：参数的传送分为两种：一种是按值传送(ByVal)，一种是按地址传送(ByRef)，而ByRef是默认的传送方式。按值传送时，不影响实参的值，而按地址传送则影响实参的值。本题中的参数都是按默认方式来传送的，即按地址传送，所以调用过程Fun后n的值被改变。而在Commandl的Click事件中，数组被赋值为 2、4、6、8、10，故n=2+4+6+8+10=30。

第9题：

在窗体上画一个命令按钮，然后编写如下事件过程：

Sub BTC（oldCopy（） As Integer, newCopy（） 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（）

Dim m（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

编写如下事件过程:OptionBase1PrivateSubFormClick() Dimx1()AsInteger DimiAsInteger DimsAsInt

题目

相似问题和答案

相关内容