国家二级VB机试（数组）模拟试卷6
(总分96,考试时间90分钟)
1. 选择题
1. 假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是
A. 数组中每个命令按钮的名称(Name属性)均为Command1
B. 数组中每个命令按钮的标题(Caption属性)都一样
C. 数组中所有命令按钮可以使用同一个事件过程
D. 用名称Command1(下标)可以访问数组中的每个命令按钮
2. 列表框中的项目保存在一个数组中，这个数组的名字是
A. Column        B. Style
C. List        D. MultiSelect
3. 下面的语句用Array函数为数组变量a的各种元素赋值整数值：
A. Dim a        B. Dim a As Integer
C. Dim a(9)As Integer        D. Dim a()As Integer
4. 以下数组定义语句中，错误的是
A. Static a(10)As Integer
B. Dim c(3，1 To 4)
C. Dim d(-10)
D. Dim b(0 To 5，1 To 3)As Integer
5. 语句Dim a(-3 To 4，3 To 6)As Integer定义的数组的元素个数是
A. 18        B. 28
C. 21        D. 32
6. 下面正确使用动态数组的是
A. Dim arr()As Integer…ReDim arr(3，5)
B. Dim arr() As Integer…ReDim arr(50)As String
C. Dim arr()…ReDim arr(50)As Integer
D. Dim arr(50)As Integer…ReDim arr(20)
7. 设有如下数组定义语句：Dim a(－1 To 4，3)As Integer以下叙述中正确的是
A. a数组有18个数组元素        B. a数组有20个数组元素
C. a数组有24个数组元素        D. 语法有错
8. 语句Dim Art(-2 To 4)As Integer所定义的数组的元素个数为
A. 7个        B. 6个
C. 5个        D. 4个
9. 下列数组定义中错误的是
vb 字符串转数组A. Dim a(-5 To-3)        B. Dim a(3 To 5)
C. Dim a(-3 To -5)        D. Dim a(-3 To 3)
10. 以下关于数组的叙述中，错误的是
A. Variant类型的数组中各数组元素的类型可以不同
B. 各数组元素可以是不同类型的控件
C. 各数组元素通过下标进行区别
D. 各数组元素具有相同的名称
11. 设有如下声明语句Option Base 1Dim art(2，-1 To 5)As Integer则数组air中数组元素的个数是
A. 10        B. 12
C. 14        D. 21
12. 以下叙述中错误的是
A. 用ReDim语句可以改变数组的维数
B. 用ReDim语句可以改变数组的类型
C. 用ReDim语句可以改变数组每一维的大小
D. 用ReDim语句可以对数组中的所有元素置0或空字符串
13. 设有下面的程序段：x=InputBox("请输入一个整数")ReDim a(x)For k=X To 0 Step-1  a(k)=kNext k一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是
A. Dim a(100)As Integer
B. Dim aO As Integer
C. Dim a As Integer
D. Dim a(0 To 100)As Integer
14. 如果要在语句：a=Array(1，2，3，4，5)的前面声明变量，则正确的声明是
A. Dim a(4)As Integer
B. Dim a(5)As Variant
C. Dim a(1 To 5)As Integer
D. Dim a As Variant
15. 设有如下一段程序：Private Sub Commandl_Click()Static a As Variant  a=Array("one"，"two"，"three"，"four"，"five")Print a(3)  End Sub针对上述事件过程，以下叙述中正确的是
A. 变量声明语句有错，应改为Static a(5)As Variant
B. 变量声明语句有错，应改为Static a
C. 可以正常运行，在窗体上显示three
D. 可以正常运行，在窗体上显示four
16. 在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码：    Private Sub Commandl_Click()      Dim n0 As Integer：Dim a，b As Integer          a=InputBox("Enter the first number")      b=InputBox("Enter the second number")      ReDim n(a To b)      For k=LBound(n)To UBound(n)      n(k)=k      Print n(k)；      Next k    End Sub  程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为
A. 1 2        B. 2 3
C. 3 4        D. 4 5
17. 1个二维数组可以存放1个矩阵，在程序开始有语句Option Base()，则下面定义的数组中正好可以存放1个4(3矩阵(即只有12个元素))的是
A. Dim a(－2 To 0，2)As Integer
B. Dim a(3，2)As Integer
C. Dim a(4，3)As Integer
D. Dim a(－1，To －4，－1 To－3)As Integer
18. 默认情况下，下面声明的数组的元素个数是Dim a(5，－2 To 2)
A. 20        B. 24
C. 25        D. 30
19. 设程序中有如下数组定义和过程调用语句：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)
20. 在程序中要使用Array函数给数组arr赋初值，则以下数组变量定义语句中错误的是
A. Static arr        B. Dim art(5)
C. Dim art()        D. Dim arr As Variant
21. 有下面程序代码：Private Sub Commandl_Click() a=Array(1，2，3，4，5，6，7，8，9，10) n=UBound(a) For k=0 To UBound(a)／2  Print a(k)*a(n)；：n=n－1 Next kEnd Sub程序运行后，单击命令按钮Commandl，输出结果是
A. 2 6 12 20 30        B. 2 12 20 56 90
C. 30 28 24 18 10        D. 10 18 24 28 30
22. 有下面程序代码：Option Base 1Private Sub Commandl_Click()Dim a(10)As Integer，x，bx=InputBox("请输入一个多砬整数")For k=1 To Len(x)  b=Mid(x，k，1)  a(Val(b)+1)=a(Val(b)+1)+1Next kFor k=1 To 10  Print a(k)：Next kEnd Sub程序运行时，单
击命令按钮Commandl，输入2355270224，则输出是
A. 1 0 4 1 1 2 0 1 0 0
B. 0 4 1 1 2 0 1 0 0 0
C. 2 3 5 5 2 7 0 2 2 4
D. 4 2 2 O 7 2 5 5 3 2
23. 窗体上有Command1、Command2两个命令按钮。现编写以下程序：Option Base 0Dim a()As Integer,m As IntegerPrivate Sub Command1_Click()  m=InputBox("请输入一个正整数“)  ReDim a(m) End SubPrivate Sub Command2 Click()  m=InputBox("请输入一个正整数")ReDim a(m)End Sub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是
A. 5        B. 6
C. 10        D. 11
24. 在窗体上画一个名为Commandl的命令按钮，然后编写以下程序：Privme Sub Commandl_Click() Dim M(10)As Integer For k=1 To 10  M(k)=12－k Next k  x=8 Print M(2+M(x))End Sub运行程序，单击命令按钮，在窗体上显示的是
A. 6        B. 5
C. 7        D. 8
25. 在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：Private Sub Command1_Click()  Dim arr(10)  For i=6 To 10    arr(i)=i-5  Next i  Label1．Caption=art(0)+arr(arr(10)／arr(6))End Sub运行程序，单击命令按钮，则在标签中显示的是
A. 0        B. 1
C. 2        D. 3
26. 在窗体上画一个名称为Text1的文本框，并编写如下程序：Option Base 1Private Sub For
m_Click() Dim arr Dim Start As Integer,Finish As Integer Sum As Integer  arr=Array(12，4，8，16)  Start=LBound(arr) Finish=UBound(arr)  Sum=0    For i=Start To Finish      Sum=Sum+arr(i)  Next i  c=Sum／Finish  TeXt1．Text=c    End Sub运行程序，单击窗体，则在文本框中显示的是
A. 40        B. 10
C. 12        D. 16
27. 以下过程的功能是从数组中寻最大值：Private Sub FindMax(a() As Integer，ByRef Max As Integer)Dim S As Integer,f As Integer：Dim i As IntegerS=LBound(a)：f=UBound(a)Max=a(s)For i=S TO f Ifa(i)＞Max Then Max=a(i)NextEnd Sub以下关于上述过程的叙述中，错误的是

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。