VB-第四章-数组习题

1、精选优质文档-倾情为你奉上答案：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第一章 数组一、选择题1 在窗体上画一个命令按钮，然后编写如下程序：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程序运行后，单击命令按钮，在窗体上的输出结果是A16B24C32D362 在窗体上画一个文本框，然后编写如下代码：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程序运行后，单击窗体，则在文本框中显示的内容是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程序运行后，单击窗体，输出结果是A57B68C79D810 68 79 8108114 用下面的语句所定义的数组的元素个数是Dim A(-3 To 5) As IntegerA6B7C8D95 用下面的语

5、句所定义的数组的元素个数是Dim arr(3 To 5, -2 To 2)A20B12C15D246 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，输出结果是A113B311C133D3137 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，输出结果是A35B28C33D378 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，输出结果是A4321B12C34D12349 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，输出结果是A7B6C5D410 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是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 为了使列表框中的项目分为多列显示，需要设置的属性为AColumnsBStyleCListDMultiSelect12 要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为A0B1C2D其他13 删除列表框中指定的项目所使用的方法为AMoveBRemoveCClearDRemove

10、Item14 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是AListBListIndexCTextDListCount二、填空题1 在窗体上画一个文本框，然后编写如下程序：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程序运行后，单击窗体，在文本框中显示的内容是10。2 以下程序的功能是产生10个01000的随机整数，放入

11、数组Arr中，然后输出其中的最大值。请填空。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 以下程序的功能是，程序运行后，单击命令按钮，输出结果为：147258369请填空。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 控件数组的名字由属性指定，而数组中的每个元素由属性指定。5 由Array函数建立的数组必须是变体类型。6 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为。7 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，输出结果是。8 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，输出结果为。9 在窗体上画一个命令按钮（其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程序运行后，单击命令按钮，输出结果是。10 组合框有三种不同的类型，这三种类型是、，分别通过把属性设置为、来实现。11 在三种不同类型的组合框中，只能选择而不能输入数据的组合框式。12 在窗体上画一个列表框，然后编写如下两个事件过程：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运行上面的程序，然后单击窗体，列表框中所显示的项目为。13 在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示。下面是实现上述功能的程序，请填空。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 "请选择要删除的项目" End IfEnd Sub三、编程题1.编写程序，输出魔方阵。魔方阵是一个n×n的二维数组，其中n为奇数。它由1n×n的正整数组成，其中每行、每列及对角线上所有数字的总和都相同。产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下：a) 把“1”放在第一行的中间一列。b) 从“1”往右上方走放下“2”，但已超出方阵范围，故将其置于同列第n行。c)