VB-第四章-數(shù)組習(xí)題

1、精選優(yōu)質(zhì)文檔-傾情為你奉上答案：1.A2.C3.B4.D5.B6.A7.B8.A9.B10.A11.C12.C13.B14.A15.D1. Not Check = False 或 Check = True2. 357930367894. x >= 0x < amin5. 96. 1237. x >= 78. 10249. 1110. 12311. 1212. Option1(i).ValueoptLabel4.Caption第一章 數(shù)組一、選擇題1 在窗體上畫一個(gè)命令按鈕，然后編寫如下程序：Option Base 1Private Sub Command1_Click(Ind

2、ex As Integer) Dim Arr1(12) As Integer, Arr2(3) As Integer Dim Sum As Integer Sum = 2 For i = 1 To 12 Arr1(i) = i Next i For i = 1 To 3 Arr2(i) = Arr1(i * i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print SumEnd Sub程序運(yùn)行后，單擊命令按鈕，在窗體上的輸出結(jié)果是A16B24C32D362 在窗體上畫一個(gè)文本框，然后編寫如下代碼：Option Base 1Private

3、 Sub Form_Click() Dim arr Dim Start As Integer, Finish As Integer Dim 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 = cEnd Sub程序運(yùn)行后，單擊窗體，則在文本框中顯示的內(nèi)容是A40B10C12D163 閱讀程序：Option Bas

4、e 1Private Sub Form_Click() Dim Arr(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 Arr(i, j) = (i - 1) * 2 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print Arr(j, i); Next j Print Next iEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是A57B68C79D810 68 79 8108114 用下面的語(yǔ)句所定義的數(shù)組的元素個(gè)數(shù)是Dim A(-3 To 5) As IntegerA6B7C8D95 用下面的語(yǔ)

5、句所定義的數(shù)組的元素個(gè)數(shù)是Dim arr(3 To 5, -2 To 2)A20B12C15D246 在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click() Dim Arr1(10), Arr2(10) As Integer n = 3 For i = 1 To 5 Arr1(i) = i Arr2(n) = 2 * n + i Next i Print Arr2(n); Arr1(n)End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A113B311C133D3137 在窗體上畫一個(gè)命令按鈕（其Name屬性為Co

6、mmand1），然后編寫如下代碼：Option Base 1Private Sub Command1_Click() Dim a(10), p(3) As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print kEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A35B28C33D378 在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Option Base 1P

7、rivate Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A4321B12C34D12349 在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Option Base 1Private Sub Command1_Click() Dim Arr(3) As Integer For i = 1 To 3 For j = 1 To

8、 3 Arr(j) = Arr(i) + 1 Next j Next i Print Arr(3)End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A7B6C5D410 在窗體上畫一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽框。列表框中顯示若干城市的名稱，當(dāng)單擊列表框中的某一城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確實(shí)現(xiàn)上述功能的程序是APrivate Sub List1_Click()BPrivate Sub List1_Click()Label1.Caption = List1.ListIndex Label1.Name = List1.ListIndexEnd Sub

9、End SubCPrivate Sub List1_Click()DPrivate Sub List1_Click() Label1.Name = List1.Text Label1.Caption = List1.TextEnd Sub End Sub11 為了使列表框中的項(xiàng)目分為多列顯示，需要設(shè)置的屬性為AColumnsBStyleCListDMultiSelect12 要想不使用Shift或Ctrl鍵就能在列表框中同時(shí)選擇多個(gè)項(xiàng)目，則應(yīng)把該列表框的MultiSelect屬性設(shè)置為A0B1C2D其他13 刪除列表框中指定的項(xiàng)目所使用的方法為AMoveBRemoveCClearDRemove

10、Item14 用戶在組合框中輸入或選擇的數(shù)據(jù)可以通過(guò)一個(gè)屬性獲得，這個(gè)屬性是AListBListIndexCTextDListCount二、填空題1 在窗體上畫一個(gè)文本框，然后編寫如下程序：Option Base 1Private Sub Form_Click() Dim Arr(10) As Integer For i = 6 To 10 Arr(i) = i - 3 Next i Text1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10)End Sub程序運(yùn)行后，單擊窗體，在文本框中顯示的內(nèi)容是10。2 以下程序的功能是產(chǎn)生10個(gè)01000的隨機(jī)整數(shù)，放入

11、數(shù)組Arr中，然后輸出其中的最大值。請(qǐng)?zhí)羁?。Option Base 1Private Sub Form_Click() Dim Arr(10) As Integer Dim Max As Integer Randomize For i = 1 To 10 Arr(i) = Int(Rnd * 1000) Next i Max = Arr(1) For i = 2 To 10 If Max < Arr(i)Then Max = Arr(i) End If Next i Print MaxEnd Sub3 以下程序的功能是，程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為：147258369請(qǐng)?zhí)羁?。Pr

12、ivate Sub Command1_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 Arr(i, j) = _ Print Arr(i, j); Next j Print Next iEnd Sub4 控件數(shù)組的名字由屬性指定，而數(shù)組中的每個(gè)元素由屬性指定。5 由Array函數(shù)建立的數(shù)組必須是變體類型。6 在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click() Dim n() As Integer Dim a, b As Integer

13、 a = InputBox("Enter the first number") b = InputBox("Enter the second number") ReDim n(a To b) For k = LBound(n, 1) To UBound(n, 1) n(k) = k Print "n(" k; ")=" n(k) Next kEnd Sub程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入2和3，輸出結(jié)果為。7 在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Privat

14、e Sub Command1_Click() Dim a(5) For i = 0 To 4 a(i) = i + 1 t = i + 1 If t = 3 Then Print a(i); a(t - 1) = a(i - 2) Else a(t) = a(i) End If If i = 3 Then a(i + 1) = a(t - 4) a(4) = 1 Print a(i); Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是。8 在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click() Dim

15、 M(10) As Integer For k = 1 To 10 M(k) = 12 - k Next k x = 6 Print M(2 + M(x)End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為。9 在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click() Dim a(5, 5) For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i For n = 1 To 2 For M = 1 To 3 Print a(M, n); Next M Nex

16、t nEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是。10 組合框有三種不同的類型，這三種類型是、，分別通過(guò)把屬性設(shè)置為、來(lái)實(shí)現(xiàn)。11 在三種不同類型的組合框中，只能選擇而不能輸入數(shù)據(jù)的組合框式。12 在窗體上畫一個(gè)列表框，然后編寫如下兩個(gè)事件過(guò)程：Private Sub Form_Click() List1.RemoveItem 1 List1.RemoveItem 3 List1.RemoveItem 2End SubPrivate Sub Form_Load() List1.AddItem "ItemA" List1.AddItem "ItemB&quo

17、t; List1.AddItem "ItemC" List1.AddItem "ItemD" List1.AddItem "ItemE"End Sub運(yùn)行上面的程序，然后單擊窗體，列表框中所顯示的項(xiàng)目為。13 在窗體上畫一個(gè)列表框、一個(gè)命令按鈕和一個(gè)標(biāo)簽。程序運(yùn)行后，在列表框中選擇一個(gè)項(xiàng)目，然后單擊命令按鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)，運(yùn)行情況如圖所示。下面是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁?。Private Sub Form_Load() List1.AddItem "AAAAA" List

18、1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD"End SubPrivate Sub Command1_Click() Dim L As Integer L = If ind >= 0 Then List1.RemoveItem Label1.Caption = Else MsgBox "請(qǐng)選擇要?jiǎng)h除的項(xiàng)目" End IfEnd Sub三、編程題1.編寫程序，輸出魔方陣。魔方陣是一個(gè)n×n的二維數(shù)組，其中n為奇數(shù)。它由1n×n的正整數(shù)組成，其中每行、每列及對(duì)角線上所有數(shù)字的總和都相同。產(chǎn)生魔方陣的算法由很多種，下面的程序用“右上斜行法”產(chǎn)生魔方陣，其算法如下：a) 把“1”放在第一行的中間一列。b) 從“1”往右上方走放下“2”，但已超出方陣范圍，故將其置于同列第n行。c)