VB 第四章 数组习习题

1、1. Not Check = False 或 Check = True2. 357930367894. x >= 0x < amin5. 96. 1237. x >= 78. 10249. 1110. 12311. 1212. Option1(i).Valueopt第一章 数组一、选择题1 在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click(Index As Integer) Dim Arr1(12) As Integer, Arr2(3) As Integer Dim Sum As Integer Sum

2、 = 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 Sub Form_Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Inte

3、ger 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 = cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是A40B10C12D163 阅读程序：Option Base 1Private Sub Form_Click() Dim Arr(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 Arr(i, j)

4、 = (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 用下面的语句所定义的数组的元素个数是Dim arr(3 To 5, -2 To 2)A20B12C15D246 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Pr

5、ivate 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属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click() Dim a(10), p(3) As Integer k = 5

6、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 1Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s +

7、 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 3 Arr(j) = Arr(i) + 1 Next j Next i Print Arr(3)End Sub程序运行后，单击命令按钮，输出结果是A7B6C5D410 在窗体上画一个

8、名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是APrivate Sub List1_Click()BPrivate Sub List1_Click() = = End SubEnd SubCPrivate Sub List1_Click()DPrivate Sub List1_Click() = = End Sub End Sub11 为了使列表框中的项目分为多列显示，需要设置的属性为AColumnsBStyleCListDMultiSelect12 要想不使用Shi

9、ft或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为A0B1C2D其他13 删除列表框中指定的项目所使用的方法为AMoveBRemoveCClearDRemoveItem14 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是AListBListIndexCTextDListCount二、填空题1 在窗体上画一个文本框，然后编写如下程序：Option Base 1Private Sub Form_Click() Dim Arr(10) As Integer For i = 6 To 10 Arr(i) = i - 3 Next i = S

10、tr(Arr(6) + Arr(Arr(6) + Arr(10)End Sub程序运行后，单击窗体，在文本框中显示的内容是10。2 以下程序的功能是产生10个01000的随机整数，放入数组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)T

11、hen Max = Arr(i) End If Next i Print MaxEnd Sub3 以下程序的功能是，程序运行后，单击命令按钮，输出结果为：147258369请填空。Private 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 在窗体上画一个命令按钮（其N

12、ame属性为Command1），然后编写如下代码：Private Sub Command1_Click() Dim n() As Integer Dim a, b As Integer 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) Ne

13、xt kEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为。7 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private 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

14、程序运行后，单击命令按钮，输出结果是。8 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click() Dim 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 =

15、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 Next nEnd Sub程序运行后，单击命令按钮，输出结果是。10 组合框有三种不同的类型，这三种类型是、，分别通过把属性设置为、来实现。11 在三种不同类型的组合框中，只能选择而不能输入数据的组合框式。12 在窗体上画一个列表框，然后编写如下两个事件过程：Private Sub Form_Click() 1 3 2End SubPrivate Sub Form_Load() "ItemA" &q

16、uot;ItemB" "ItemC" "ItemD" "ItemE"End Sub运行上面的程序，然后单击窗体，列表框中所显示的项目为。13 在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示。下面是实现上述功能的程序，请填空。Private Sub Form_Load() "AAAAA" "BBBBB" "CCCCC" "DDDDD

17、"End SubPrivate Sub Command1_Click() Dim L As Integer L = If ind >= 0 Then = Else MsgBox "请选择要删除的项目" End IfEnd Sub三、编程题1.编写程序，输出魔方阵。魔方阵是一个n×n的二维数组，其中n为奇数。它由1n×n的正整数组成，其中每行、每列及对角线上所有数字的总和都相同。产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下：a) 把“1”放在第一行的中间一列。b) 从“1”往右上方走放下“2”，但已超出方阵范围，故将其置于同列第n行。c) 从“2”往右上方走放下“3”，也超出方阵范围，将其置于同行第一列。d) 由于3是n的倍数，接下来的数字“4”置于同行下一列。e) 重复上述步骤，直到填满n×n个数为止。2.编写程序，用选择法对数组中的数据按由小到大的顺序进行排序。3.从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。4.设有如下两组数据：A：2，8，7，6，4，28，70，25B：79，27，32，41，57，66，78，