创建一维数组arr1和arr2，将数组arr1中索引位置是0~3中的元素复制到数组arr2中，最后将数组arr1和arr2中的元素输出。

下列程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text l中输出该数组中各元素的最小值。请填空。

Option Base 1

Private Sub Command1_Click()

Dim arr1()

Dim Min As Integer,i As Integer

Arr1=Array(12,435,76,-24,78,54,866,43)

Min=______

For i=2 To 8

If arr1(i)＜Min Then______

Next i

Text1=Min

End Sub

以下有关数组定义的语句序列中，错误的是

A．Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) ┄ End Sub

C．Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub

D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub

下列数组定义语句错误的是

A．k％=10 Dim Arr(k)

B．Const k％=10 Dim Arr(k)

C．Dim Arrl(10) As Integer Dim Arr2(10)

D．Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)

设有程序：

Option Base 1

Private Sub Command1_Click()

Dim arr1,Max as Integer

arr1＝Array(12,435,76,24,78,54,866,43)

【 】＝arr1(1)

For i＝1 To 8

If arr1(i)＞Max Then【 】

Next i

Print"最大值是:";Max

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

在窗体上画一个命令按钮Command1，然后编写如下代码： Privae Sub Command1_Click() Dim Arr1(10) As Integer,Arr2(10) As Integer n=3 For i=1 To 5 Arr1(i)=i Art2(n)=2*n+i Next i Print Arr2(n);Arr1(n) End Sub 运行程序后，单击命令按钮，输出结果是( )。

A．11 3

B．3 11

C．13 3

D．3 13

在考生文件夹下有一个工程文件execise30.vbp，窗体文件execise30.frm中的ReadData1和ReadData2过程可以把in1.txt和in2.txt文件中的整数分别读入Arr1和Arr2数组中；而 WriteData过程可以把计算出的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out.txt)，可直接调用。

请先装入工程文件execise30.vbp，然后完成以下操作：在名为Form1的窗体上绘制3个命令按钮，其名称分别为Cmd1、Cmd2和Cmd3，标题分别为Read、Calc和Save，如下图所示。程序运行后，如果单击Read按钮，则调用题目所提供的ReadDate1和ReadDate2过程读入in301.txt和in302.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中：如果单击Cac1按钮，则把两个数组中对应下标的元素相减，其结果放入第3个数组中(即：第一个数组的第n个元素减去第二个数组的第n个元素，其结果作为第3个数组的第n个元素。这里的n为1，2，…，20)，然后计算第3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“Save”按钮，则把所求得的和存入考生文件夹的out30.txt文件中。运行窗体如图所示。

注意：

考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“Save”按钮存入考生文件夹下的out30.txt文件中，否则没有成绩。存盘时，工程文件名仍为execise30.vbp，窗体文件名仍为execise30.frm。

用下面语句定义的数组元素个数是( )。 Dim Arr2(-2 To 6，1 To 5)As Integer

A．45

B．40

C．36

D．32

用下面语句定义的数组元素个数是______。 Dim Arr2(-2 To 6, i To 5) As Integer

A．45

B．40

C．36

D．32

设有以下程序：

Option Base 1

Private Sub Command1_Click( )

Dim arr1 ,Max as Integer

art1 = Array(12,435,76,24,78,54,866,43)

【 】= arr1(1)

For i = 1 To 8

If arrl(i)＞Max Then【 】

Next i

Print "最大值："； Max

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。

以下有关数组定义的语句序列中，错误的是 ______。

A．Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=12345

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=Input Box("输入:") ReDimarr2(size) ... End Sub

C．Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ... End Sub

D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ... End Sub

使用语句DimA(1 Tb 10)As Integer声明数组A后，以下叙述正确的是（ ）。

A.A数组中的所有元素值为0

B.A数组中的所有元素值不确定

C.A数组中的所有元素值为Empty

D.执行语句“Erase A”后，A数组中的所有元素值为Null

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer，arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n)；Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。

A．11 3

B．3 11

C．13 3

D．3 13

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后，单击命令按钮，在文本框中显示的是______。

A．36

B．45

C．54

D．63

以下有关数组定义的语句序列中，错误的是( )。

A．Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45

B．Dim arr2() AsInteger Dim size As Integer Private Sub Command2_Click () size=InputBox("输入：") ReDim arr2(size) …… EndSub

C．Option Base 1 Private Sub Command3 Click() Dim art3(3) As Integer …… End Sub

D．Dim n As Integer Private Sub Command4 Cliok() Dim arr4(n)As Integer …… End Sub