第7章VB習(xí)題及答案

1、第7章 習(xí)題與答案一、 選擇題1.如下數(shù)組聲明語句，正確的是（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.要分配存放如下方陣的數(shù)據(jù)：1.1 2.2 3.34.4 5.5 6.67.7 8.8 9.9數(shù)組聲明語句能實現(xiàn)（不能浪費空間）的是(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)

2、 As Integer3.如下數(shù)組聲明語句：Dim a(3,-2 To 2,5)則數(shù)組a包含的元素的個數(shù)為（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)輸出結(jié)果是（A）49 （B）0 （C）不確定 （D）程序出錯5.以下程序Option Base 1Private Sub Command1 _Click()Dim a%(3,3)For i=1 To 3For j=1 To 3If j1 And i1 Then

3、a(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輸出結(jié)果是（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

4、(j=i) Then Print Tab(j*3);format(B(i,j),“#”);Next jPrintNext IEnd Sub輸出結(jié)果是(A)1 2 3 (B)1 (C)1 4 7 (D)1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 97.要存儲n個單精度數(shù)，下列語句正確的是(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

5、(n)As Single n=InputBox(“input n”) ReDim a(n) Single8.已知有數(shù)組聲明：Dim a(-1 To 3,2 To 5)As integer,如下引用數(shù)組中的元素，正確的是（A）a(-1,2) （B）a(4) （C）a-1,2 （D）a(0,6)9.下列有關(guān)控件數(shù)組與一般控件的區(qū)別的敘述中，最合理的是(A) 控件數(shù)組一定由多個同類型的控件組成，一般控件只有一個控件； (B) 控件數(shù)組的Index為0，而一般控件的Index為空；(C) 控件數(shù)組的Index為1，而一般控件的Index為0； （D）控件數(shù)組的建立通過Dim語句聲明，而一般控件不必聲明

6、。 二、填空題1.矩陣轉(zhuǎn)置矩陣轉(zhuǎn)置就是將一個nm的矩陣行和列互換。例如矩陣：a= ,轉(zhuǎn)置后的矩陣為b= 要實現(xiàn)如本例所示的功能，程序如下：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.下面的程序是將輸入的一個數(shù)插入到遞減的有序數(shù)列中，插入后

7、使該序列仍然有序遞減。請在程序中下劃線處填入相應(yīng)的內(nèi)容。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(“輸入欲插入的數(shù)”)For i=Ubound(a)-1 To 0 Step-1If m=a(i)Then (4) If i=0 Then a(i)=mElse (5) Exit ForEnd IfNext iFor i=0 To Ubound(A)Print a(i)Next iEnd Sub3.冒泡法排序在教程中已介紹選擇法、

8、合并法排序，上例使用插入法排序，常用的排序方法還有冒泡法。冒泡法排序與選擇法排序相似，選擇法排序在每一輪排序時找最大（遞減順序）數(shù)的下標，出了內(nèi)循環(huán)（一輪排序結(jié)束），再交換最大數(shù)的位置；而冒泡法排序在每一輪排序時將相鄰的數(shù)比較，當順序不對就交換位置，出了內(nèi)循環(huán)，最大數(shù)已冒出。 按遞增順序排序的程序如下：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

9、)=tEnd IfNext jNext iFor i=0 To Ubound(a)Print a(i)；Next IEnd Sub請在程序中下劃線處填入相應(yīng)的內(nèi)容。為了提高效率，若在某一輪排序時，未發(fā)生位置交換，說明欲排序的序列已有序，排序就可結(jié)束。程序中只要增加一個邏輯變量來進行判斷。程序如下：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) 插入一個數(shù)，先要使數(shù)組加一個元素，而且要保留原數(shù)據(jù)。 (4)a(i+1)=a(i) 找插入的位置。 (5)a(i+1)=m 新數(shù)據(jù)找到插入位置，插入到數(shù)組