第7章VB习题及答案

1、第7章 习题与答案一、 选择题1.如下数组声明语句，正确的是（A）Dim a3,4As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer2.要分配存放如下方阵的数据：1.1 2.2 3.34.4 5.5 6.67.7 8.8 9.9数组声明语句能实现（不能浪费空间）的是(A) Dim a(9) As Single （B）Dim a(3,3) As Single （C）Dim a (-1 To 1,-5 To -3) As Single（D）Dim a (-3 To 1,-5 To 7) As Integer3.如下数组声明语句：Dim a(3,-2 To 2,5)则数组a包含的元素的个数为（A）120 （B）75 （C）60 （D）134.以下程序Dim aa=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)输出结果是（A）49 （B）0 （C）不确定 （D）程序出错

2、5.以下程序Option Base 1Private Sub Command1 _Click()Dim a%(3,3)For i=1 To 3For j=1 To 3If j1 And i1 Thena(i,j)=a(a(i-1,j-1),a(i,j-1)+1Elsea(i,j)=i*jEnd IfPrint a(I,j);“”;Next jPrintNext iEnd Sub输出结果是（A）1 2 3 （B）1 2 3 （C）1 2 3 （D）1 1 12 3 1 1 2 3 2 4 6 2 2 23 2 3 1 2 3 3 6 9 3 3 36.以下程序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 3For j=1 To 3B(i,j)=a(i*j)If(j=i) Then Print Tab(j*3);format(B(i,j),“#”);Next jPrintNext IEnd Sub输出结果是(A)1 2 3 (B)1 (C)1 4 7 (D)

3、1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 97.要存储n个单精度数，下列语句正确的是(A)n=InputBox(“input n”) (B)Dim a()As Single Dim a (1 To n)As Single n=InputBox(“input n”) ReDim a(1 To n)(C)Dim a()As Integer (D)Dim a(n)As Single n=InputBox(“input n”) ReDim a(n) Single8.已知有数组声明：Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素，正确的是（A）a(-1,2) （B）a(4) （C）a-1,2 （D）a(0,6)9.下列有关控件数组与一般控件的区别的叙述中，最合理的是(A) 控件数组一定由多个同类型的控件组成，一般控件只有一个控件； (B) 控件数组的Index为0，而一般控件的Index为空；(C) 控件数组的Index为1，而一般控件的Index为0； （D）控件数组的建立通过Dim语句声明，而一般控件不必声明

4、。 二、填空题1.矩阵转置矩阵转置就是将一个nm的矩阵行和列互换。例如矩阵：a= ,转置后的矩阵为b= 要实现如本例所示的功能，程序如下：Option Base 1Private Sub Command1_Click()Dim a%(2,3),b(3,2),i%,j%,n%n=5For i=1 To 2For j=1 To 3 (1) n=n+5Print a(I,j);Next jPrintNext iFor i=1 To 3For j=1 To 2 (2) Print b(i,j);Next jPrintNext iEnd Sub2.下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序列仍然有序递减。请在程序中下划线处填入相应的内容。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 (3) m=Val(InputBox(“输入欲插入的数”)For i=Ubound(a)-1 To 0 Step-1If m=a(i)Then (4) If i=0 T

5、hen a(i)=mElse (5) Exit ForEnd IfNext iFor i=0 To Ubound(A)Print a(i)Next iEnd Sub3.冒泡法排序在教程中已介绍选择法、合并法排序，上例使用插入法排序，常用的排序方法还有冒泡法。冒泡法排序与选择法排序相似，选择法排序在每一轮排序时找最大（递减顺序）数的下标，出了内循环（一轮排序结束），再交换最大数的位置；而冒泡法排序在每一轮排序时将相邻的数比较，当顺序不对就交换位置，出了内循环，最大数已冒出。 按递增顺序排序的程序如下：Private Sub Form_Click()Dim a,n%,j%,i%,ta=Array(19,5,15,7,11,9,23,6,3,1)n=Ubound(a)For i=0 To n-1For j=0 To n-i-1If a(j)a(j+1)Then (6) ： (7) ：:a(j+1)=tEnd IfNext jNext iFor i=0 To Ubound(a)Print a(i)；Next IEnd Sub请在程序中下划线处填入相应的内容。为了提高效率，若在某一轮排序时，未发

6、生位置交换，说明欲排序的序列已有序，排序就可结束。程序中只要增加一个逻辑变量来进行判断。程序如下：Private Sub Form_Click()Dim a,n%,m%,I%,Tag As Booleana=Array(1,5,6,7,4,13,23,26,31,51)n=Ubound(A)For i=0 To n-1Tag=FalseFor j=0 To n-1-iIf a(j) a(j+1)Then (8) (9) : (10) :a(j+1)=tEnd IfNext jIf (11) Next IFor I=0 To Ubound(a)Print a(i)；Next iEnd Sub 参考答案一、选择题1.B 2.C 3.A 4.D 5.A 6.D 7.B 8.A 9.B 二、填空题1(1)a(i，i)=n (2)b(i，j)=a(j，i)2(3)Preserve a(n+1) 插入一个数，先要使数组加一个元素，而且要保留原数据。 (4)a(i+1)=a(i) 找插入的位置。 (5)a(i+1)=m 新数据找到插入位置，插入到数组中。3.(6)t=a(i) (7) a(j)=a(j+1) (8)Tag=True Tag为True，说明数次序不对，进行过交换。(9)t=a(i) (10)a(j)=a(j+1) (11)Not Tag Then Exit For 在某一轮比较时没有发生过数据位置交换，说明数组已有序，不必再进行下一轮的比较。

《第7章VB习题及答案》由会员xins****2008分享，可在线阅读，更多相关《第7章VB习题及答案》请在金锄头文库上搜索。