VB第四章數(shù)組習(xí)題word版本

1、精品文檔第一章 數(shù)組一、選擇題 1在窗體上畫一個命令按鈕，然后編寫如下程序：Option Base 1Private Sub Command1_Click(Index As Integer) Dim Arr1(12) As Integer, Arr2(3) As Integer Dim Sum As IntegerSum = 2For i = 1 To 12Arr1(i) = iNext iFor i = 1 To 3 Arr2(i) = Arr1(i * i)Next iFor i = 1 To 3Sum = Sum + Arr2(i)Next iD36Print Sum End Sub 程

2、序運行后，單擊命令按鈕，在窗體上的輸出結(jié)果是 A16B24C322在窗體上畫一個文本框，然后編寫如下代碼：Option Base 1Private Sub Form_Click()Dim arrDim Start As Integer, Finish As IntegerDim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound(arr) Finish = UBound(arr) Sum = 0For i = Start To FinishSum = Sum + arr(i)Next i c = Sum / Finish Text1.

3、Text = cD16End Sub 程序運行后，單擊窗體，則在文本框中顯示的內(nèi)容是 A40B10C123閱讀程序：Option Base 1精品文檔Private Sub Form_Click() Dim Arr(4, 4) As Integer For i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + j Next jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iC. 79D. 8 108 108 11C. 8D. 9C. 15D. 24End Sub

4、程序運行后，單擊窗體，輸出結(jié)果是 A57B6 86 8 7 9 4用下面的語句所定義的數(shù)組的元素個數(shù)是Dim A(-3 To 5) As IntegerA6B75用下面的語句所定義的數(shù)組的元素個數(shù)是Dim arr(3 To 5, -2 To 2)A20B126. 在窗體上畫一個命令按鈕(其 Name屬性為Command1然后編寫如下代碼:Private Sub Command1_Click()Dim Arr1(10), Arr2(10) As Integer n = 3For i = 1 To 5Arr1(i) = iArr2(n) = 2 * n + iNext iPrint Arr2(n)

5、; Arr1(n)End Sub程序運行后，單擊命令按鈕，輸出結(jié)果是A. 11 3B. 311C. 13 3D. 3137. 在窗體上畫一個命令按鈕(其 Name屬性為Command1然后編寫如下代碼:Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3 p(i) = a(i * i)Next iFor i = 1 To 3 k = k + p(i) * 2Next iPrint kEnd Sub 程序運行后，單擊命令

6、按鈕，輸出結(jié)果是A35B28C33D378. 在窗體上畫一個命令按鈕(其 Name屬性為Command1然后編寫如下代碼: Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10Next iPrint sEnd Sub 程序運行后，單擊命令按鈕，輸出結(jié)果是A. 4321B. 12C. 34D. 12349. 在窗體上畫一個命令按鈕(其 Name屬性為Command1然后編寫如下代碼: Option Base

7、 1Private Sub Command1_Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1 Next jNext iPrint Arr(3)End Sub程序運行后，單擊命令按鈕，輸出結(jié)果是A. 7B. 6C. 5D. 410. 在窗體上畫一個名稱為 List1 的列表框，一個名稱為 Label1 的標簽框。列 表框中顯示若干城市的名稱，當單擊列表框中的某一城市名時，在標簽中顯 示選中城市的名稱。下列能正確實現(xiàn)上述功能的程序是A. Private Sub List1_Click()Labe

8、l1.Caption = List1.ListIndexEnd SubC. Private Sub List1_Click()B. Private Sub List1_Click() Label1.Name = List1.ListIndexEnd SubD. Private Sub List1_Click()Labell.Name = Listl.TextLabell.C apti on = Listl.TextEnd SubEnd Sub11. 為了使列表框中的項目分為多列顯示，需要設(shè)置的屬性為A. ColumnsB. StyleC. ListD. MultiSelect12. 要想不使用

9、Shift或Ctrl鍵就能在列表框中同時選擇多個項目，則應(yīng)把該 列表框的MultiSelect 屬性設(shè)置為A. 0B. 1C. 2D.其他13. 刪除列表框中指定的項目所使用的方法為A. MoveB. RemoveC. ClearD. Removeitem14. 用戶在組合框中輸入或選擇的數(shù)據(jù)可以通過一個屬性獲得，這個屬性是A. ListB. List in dexC. TextD. ListCou nt二、填空題1. 在窗體上畫一個文本框，然后編寫如下程序：Option Base 1Private Sub Form_Click()Dim Arr(10) As in tegerFor i =

10、6 To 10Arr(i) = i - 3Next iText1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10)End Sub程序運行后，單擊窗體，在文本框中顯示的內(nèi)容是_10_。2. 以下程序的功能是產(chǎn)生10個01000的隨機整數(shù)，放入數(shù)組Arr中，然后輸 出其中的最大值。請?zhí)羁铡ption Base 1Private Sub Form_Click()Dim Arr(10) As in tegerDim Max As in tegerRan domizeFor i = 1 To 10Arr(i) = int(Rnd * 1000)Next iMax = A

11、rr(1)For i = 2 To 10ifMax < Arr(i)The nMax = Arr(i)End ifNext iPrint MaxEnd Sub3. 以下程序的功能是，程序運行后，單擊命令按鈕，輸出結(jié)果為：1 472 583 69請?zhí)羁?。Private Sub Comma nd1_Click()Dim Arr(3, 3) As IntegerFori = 1 To 3Forj = 1 To 3Arr(i, j) = Print Arr(i, j);Next jPrintNext iEnd Sub4 控件數(shù)組的名字由 屬性指定，而數(shù)組中的每個元素由 屬性指定。5 .由Arra

12、y函數(shù)建立的數(shù)組必須是變體 類型。6. 在窗體上畫一個命令按鈕(其 Name屬性為Command1然后編寫如下代碼：Private Sub Comma nd1_Click()Dim n() As In tegerDim a, b As In tegera = In putBox("E nter the first nu mber")b = In putBox("E nter the sec ond nu mber")ReDim n(a To b)For k = LBou nd( n, 1) To UBou nd( n, 1)n(k) = kPrint &

13、quot;n(" k; ")=" n(k)Next kEnd Sub程序運行后，單擊命令按鈕，在輸入對話框中分別輸入2和3,輸出結(jié)果為7. 在窗體上畫一個命令按鈕(其 Name屬性為Command1,然后編寫如下代碼:Private Sub Comma nd1_Click()Dim a(5)For i = 0 To 4a(i) = i + 1t = i + 1If t = 3 ThenPrint a(i);a(t - 1) = a(i - 2)Elsea(t) = a(i)End IfIf i = 3 Then a(i + 1) = a(t - 4)a(4) =

14、1Print a(i);Next iEnd Sub程序運行后，單擊命令按鈕，輸出結(jié)果是 。8. 在窗體上畫一個命令按鈕(其 Name屬性為Command1然后編寫如下代碼：Private Sub Comma nd1_Click()Dim M(10) As In tegerFor k = 1 To 10M(k) = 12 - kNext kx = 6Print M(2 + M(x)End Sub程序運行后，單擊命令按鈕，輸出結(jié)果為 。9. 在窗體上畫一個命令按鈕(其 Name屬性為Command1,然后編寫如下代碼：Private Sub Comma nd1_Click()Dim a(5, 5)

15、Fori = 1 To 3Forj = 1 To 4a(i, j) = i * jNext jNext iFor n = 1 To 2For M = 1 To 3Print a(M, n);Next MNext nEnd Sub程序運行后，單擊命令按鈕，輸出結(jié)果是 。10. 組合框有三種不同的類型，這三種類型是 、_，分別通過把 屬性設(shè)置為、來 實現(xiàn)。11. 在三種不同類型的組合框中，只能選擇而不能輸入數(shù)據(jù)的組合框式。12. 在窗體上畫一個列表框，然后編寫如下兩個事件過程：Private Sub Form_Click()List1.Removeltem 1List1.Removeltem 3L

16、ist1.RemoveItem 2End SubPrivate Sub Form_Load()List1. AddItem "ItemA"List1. AddItem "ItemB"List1. AddItem "ItemC"List1. AddItem "ItemD"Listl .Addltem "ItemE"End Sub運行上面的程序，然后單擊窗體，列表框中所顯示的項目為 。13. 在窗體上畫一個列表框、一個命令按鈕和一個標簽。程序運行后，在列表 框中選擇一個項目，然后單擊命令按鈕，即可將

17、所選擇的項目刪除，并在標 簽中顯示列表框當前的項目數(shù)，運行情況如圖所示。下面是實現(xiàn)上述功能的 程序，請?zhí)羁?。Private Sub Form_Load（） Listl.Addltem "AAAAA" Listl.Addltem "BBBBB" Listl.Addltem "CCCCC" Listl.Addltem "DDDDD" End SubPrivate Sub Comma nd1_Click（）Dim L As In teger L =lf ind >= 0 The nListl.Removeltem

18、Labell.Captio n =ElseMsgBox "請選擇要刪除的項目End lf End Sub三、編程題1. 編寫程序，輸出魔方陣。魔方陣是一個nxn的二維數(shù)組，其中n為奇數(shù)。它由1nXn的正整數(shù)組成， 其中每行、每列及對角線上所有數(shù)字的總和都相同。產(chǎn)生魔方陣的算法由很多種，下面的程序用“右上斜行法”產(chǎn)生魔方陣，其 算法如下：a）把“ T放在第一行的中間一列。b）從“1”往右上方走放下“ 2”，但已超出方陣范圍，故將其置于同列第n行。c）從“2”往右上方走放下“ 3”，也超出方陣范圍，將其置于同行第一列。d）由于3是n的倍數(shù)，接下來的數(shù)字“ 4”置于同行下一列。e）重復(fù)上述步驟，直