第5章数组测试题6页

1、第5章数组测试题一、选择题1如下数组声明语句，（ ）正确。 ADim a3,4 As Integer BDim a(3,4) As Integet CDim a(n,n) As Integer DDim a(3 4) As Integer2要分配存放如下矩阵的数据，（ ）数组声明语句能实现（不能浪费空间）。 ADim a(9) As Integer BDim a(3,3) As Single CDim a(-1 to 1,-5 to -3) As Single DDim a(-3 to -1,5 to 7) As Integer3如下数组声明语句，则数组a包含元素的个数有（ ）。 Dim a(

2、3,-2 to 2,5) A120 B75 C60 D134以下程序的输出结果是（ ）。 Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound(a) to Ubound(a) a(i)=a(i)*a(i) Next iPrint a(i)A49 B0 C不确定 D程序出错5下列语句中（假定变量n有值），能正确声明可调数组的是（ ）。 ADim a( ) As Integer BDim a( ) As Integer ReDim a(n) ReDim a(n) As Integer CDim a( ) As Interger DDim a(10) As Intege

3、r ReDim a(3,4) ReDim a(n+10) ReDim Preserve a(4,4)6在窗体的通用声明段自定义了数据类型Students，下列（ ）定义方式是正确的。 APrivate Type Students BType Students Name As String*10 Name As String*10 Studno As Integer Studno As Integer End Type End StudentsCType Students DType Students Name String*10 Name As String*10 Studno Integer

4、 Studno As Integer End Type End Type7以下程序的输出结果是（）。Option Base 1Private Sub Command1_Click() Dim a, b(3, 3) a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 1 To 3 For j = 1 To 3 b(i, j) = a(i * j) If (j = i) Then Print Tab(j * 3); Format(b(i, j), #); Next j Print Next iEnd Sub A1 2 3 B1 C1 4 7 D1 2 3 4

5、5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9二、填空题数组声明时下标下界默认为0，利用 （1） 语句可以使下标为1。 2由Array函数建立的数组，其变量必须是 （2） 类型。3要获得数组的上界通过 （3） 函数，要获得列表框List数组的元素总个数通过 （4） 属性。4若定义一维数组为：Dim a(N to M),则该数组的元素个数为 （5） 个。图1 随机分数运行界面5随机产生6位学生的分数（分数范围1-100），存放在数组a中，以每2分一个“*”显示，如图1所示。 Private Sub Command1_Click() For i = 1 To 6 a(i

6、) = (6) Print (7) Next iEnd Sub6在一维数组中利用移位的方法显示如图2所示结果。Private Sub Form_Click()图2 第6题运行界面 Dim a(1 To 7) For i = 1 To 7 a(i) = i: Print a(i); Next i Print For i = 1 To 7 t = (8) 最右1位暂存 For j = 6 To 1 Step -1 (9) 其余6个向右移一位 Next j (10) 暂存的放入最左 For j = 1 To 7 Print a(j); Next j Print Next iEnd Sub7下面程序对

7、已知数组a，删除数组元素中某个元素。 Private Sub Command1_Click() Dim a(), key%, i%, j% a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) key = Val(InputBox(输入要删除的值) For i = 0 To UBound(a) If (11) Then For j = i + 1 To UBound(a) (12) Next j ReDim (13) MsgBox (删除完成) Exit Sub End If Next i MsgBox (找不到要删除的元素)End Sub8下列程序表示将输入的一个

8、数插入到按递减的有序数列中，插入后使该序列仍然有序。 Private Sub Form_Click() Dim a, i%, n%, m% a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1) n = UBound(a) ReDim (14) m = Val(InputBox(输入欲插入的数) For i = UBound(a) - 1 To 0 Step -1 If (m = a(i) Then (15) If i = 0 Then a(i) = m Else (16) Exit For End If Next i For i = 0 To UBound(

9、a) Print a(i); Next iEnd Sub9下列程序在1000-9999之间查找满足如下条件的整数：该整数，逆向得到的另一个4位数是它自身的倍数（2倍以上）。查找结果和逆向排列分别显示在对应的列表框，如图3所示。图3 第9题运行界面Private Sub Command1_Click() Dim a As Integer Dim m As Integer Dim i As Integer For i = 1000 To 9999 m = 0 (17) Do While n 0 m = (18) + n Mod 10 n = n 10 Loop If (19) And m i 1

10、Then List1.AddItem i List2.AddItem (20) End If Next iEnd Sub10下列程序完成如下功能：随机产生n(10-30)个大写字母，并显示。将这n个字母按产生的顺序逆时针排列成一个圆环，按逆时针方向统计相邻两个字母满足升序的次数（如图4所示）。并输出符合条件的每对字符和统计结果。图4 第10题的示意图和运行界面WPJKWPYNIWGGEJ Private Sub Form_Click() Dim a() As String, count As Integer, i As Integer, n As Integer Randomize Form1

11、.Cls n = Int(Rnd * 20) + 10 (21) Cls Print 产生的字符: For i = 1 To n s = (22) 产生大写字母 a(i) = s Print s; ; Next i Print Print 统计结果: count = 0 For i = 2 To n If (23) Then count = count + 1 Print Space(3); a(i - 1); ; a(i) End If Next i If (24) Then count = count + 1 Print Space(3); a(n); ; a(1) End If Prin

12、t Print 符合条件的字符有： ; (25) End Sub11本程序随机产生n(15)个AJ的大写字母，按字母降序排序后，将连续出现的字母用压缩形式显示。例如，连续5个H字母显示为5*H，如图5所示。数组a( )用于存放随机产生的字母。 Private Sub Form_Click()图5 第11题的运行界面 Const N = 15 Dim a(1 To N) As String * 1, c Dim count%, i%, j%, k% Randomize For i = 1 To N a(i) = Chr(Int( (26) ) Print a(i); Next i Print For i = 1 To N - 1 选择法排序 k = i For j = (27) If a(j) a(k) Then (28) Next j c = a(i): a(i) = a(k): a(k) = c Next i For i = 1 To N 输出排序结果 Print a(i); ; Next i Print i = 1 Do W