VB第6章F (2)

习题一、选择题1. 以下有关数组定义的语句序列中，错误的是(D)。

A. Private Sub Command1_Click()Static arr1(3)arr1(1)＝100arr1(2)＝″Hello″arr1(3)＝123.45End SubB. Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_Click()size＝InputBox(″输入″)ReDim arr2(size)End SubC. Option Base 1Private Sub Command3_Click()Dim arr3(3) As Integer...End SubD. Dim n As IntegerPrivate Sub Command4_Click()Dim arr4(n) As Integer...End Sub2. 以下定义数组或给数组元素赋值的语句中，正确的是(A)。

A. Dim a As Varianta＝Array(1，2，3，4，5)B. Dim a(l0) As Integera＝Array(1，2，3，4，5)C. Dim a%(10)a(1)＝″ABCDE″D. Dim a(3)，b(3) As Integera(0)＝0：a(1)＝1：a(2)＝2：b＝a3. 设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：Private Sub Command1_Click()Static b As Variantb＝Array(1,3,5,7,9)...End Sub此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5，3，1 )。

为实现此功能，省略号处的程序段应该是(C)。

A. For i＝0 To 5－1\2tmp＝b(i)b(i)＝b(5－i－1)b(5－i－1)＝tmpNext iB. For i＝0 To 5tmp＝b(i)b(i) ＝b(5－i－1)b(5－i－l)＝tmpNext iC. For i＝0 To 5\2tmp＝b(i)b(i)＝b(5－i－1)b(5－i－1)＝tmpNext iD. For i＝1 To 5\2tmp＝b(i)b(i)＝b(5－i－1)b(5－i－1)＝tmpNext i4. 假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是(B)。

A. 数组中每个命令按钮的名称属性均为Command1。

B. 数组中每个命令按钮的标题(Caption属性)都一样。

C. 数组中所有命令按钮可以使用同一个事件过程。

D. 用名称Command1(下标)可以访问数组中的每个命令按钮。

5. 设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(30) As IntegerFor i ＝1 To 30a(i) ＝Int(Rnd * 100)Next iFor Each arrItem In aIf arrItem Mod 7 ＝0 Then Print arrItem；If arrItem > 90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是(A/B)。

A. a数组中的数据是30个100以内的整数。

B. 语句For Each arrItem In a有语法错误。

C. If arrItem Mod 7 ＝0语句的功能是输出数组中能够被7整除的数。

D. If arrItem > 90语句的作用是当数组元素的值大于90时退出For循环。

二、填空题1. 用下面语句定义的数组中，数组元素的个数分别为13、15和9。

①Dim arr(12)②Dim arr(3 To 5，－2 To 2)③Option Base 1Dim arr(3,3)2. 下列程序用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值，请补全程序。

Option Base 1Private Sub Form_Click()Dim arr()，Max As Integerarr ＝Array(12，435，76，24，78，54，866，43)Max＝arr(1)For i ＝1 To UBound(arr)If arr(i) > Max Then Max ＝arr(i)Next iPrint ″最大值是：″；MaxEnd Sub3. 下列程序的功能是：产生10个个位数不相同的3位随机正整数，并存放其下标与其个位数相同的数组元素中，例如395应存到a(5)中，请补全程序。

Private Sub Form_Click()Dim a(9) As Integer, x As Integer, k As Integer, I As IntegerRandomizeDo While I <＝9x ＝Int(Rnd * 900 ＋100)k ＝x mod 100 mod 10If a(k) ＝0 Thena(k) ＝xI ＝I + 1End IfLoopFor Each y In aPrint yNextEnd Sub4. 控件数组的名字由Name 属性指定，而数组中的每个元素由Index 属性指定。

三、阅读程序，写出程序运行结果1. Private Sub Command1_Click()Dim a(1 To 10)，p(1 To 3)，k As Integer，i As Integerk ＝5For i ＝1 To 10a(i) ＝iNext iFor i ＝1 To 3p(i) ＝a(i * i)Next iFor i ＝1 To 3k ＝k ＋p(i) * 2Next iPrint kEnd Sub332. Private Sub Form_Click()Dim a() As Variant，i%，Index As Integer，Key%a ＝Array(1，3，5，7，9，11，13，15)Key ＝11For i ＝LBound(a) To UBound(a)If Key ＝a(i) ThenIndex ＝i：Exit ForEnd IfNext iPrint IndexEnd Sub53. 在窗体上添加一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim arr(10，10) As IntegerDim i As Integer，j As IntegerFor i ＝2 To 4For j ＝2 To 4arr(i，j) ＝i * jNext jNext iLabel1.Caption ＝Str(arr(2，2) ＋arr(3，3))End Sub程序运行后，单击窗体，在标签中显示的内容是13。

4. Option Base 1Private Sub Command1_Click()Dim a(3，3) As Integer，i As IntegerDim j As Integer，n As Integer，k As IntegerFor k ＝1 To 5If k <＝3 ThenFor i ＝1 To kn ＝n ＋1a(i，k －i ＋1) ＝nNext iElseFor i ＝1 To 6 －kn ＝n ＋1a(k －3 ＋i，4 －i) ＝nNext iEnd IfNext kFor k ＝1 To 3For i ＝1 To 3Print a(k，i)；Next iPrintNext kEnd Sub执行上面的程序后，a(1， 3)的值是 4 ，a(2， 2)的值是 5 ，a(3， 1)的值是 6 。

四、程序设计题1. 将一个数组的元素按逆序重新存放，例如，原来存放顺序为：8,6,5,4,1。

要求改为：1,4,5,6,8。

Option Base 1Private Sub Command1_Click()Dim a, n As Long, i As Integer，tmpa = Array(8, 6, 5, 4, 1)n = UBound(a)For i = 1 To n \ 2tmp = a(i)a(i) = a(n - i + 1)a(n - i + 1) = tmpNext i‘输出（略）End Sub另：Private Sub Command1_Click()Dim a, n As Long, j As Integer, k As Integera = Array(8, 6, 5, 4, 1)n = UBound(a) - LBound(a) + 1For i = 1 To n \ 2j = LBound(a)+ i – 1k = UBound(a) - i + 1tmp = a(j)a(j) = a(k)a(k) = tmpNext i‘输出（略）End Sub2. 将a数组中从第m个元素起一直到最后的元素平移到数组的开头，把a(1)到a(m－1)中的元素向后顺移。

Option ExplicitOption Base 1Private Sub Command1_Click()Dim a, m As Long, n As Long, k As Integer, i As Integer, j%Dim tmpa = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16)m = 5 ' 平移起点n = UBound(a) ' 元素数目For i = 1 To n - m + 1 ' 实现前移数组元素k = m + i - 1 ' 前移元素下标tmp = a(k)For j = 1 To m - 1 ' 依序后移前部元素a(k - j + 1) = a(k - j)Next ja(i) = tmpNext i‘输出（略）End Sub另：Option ExplicitPrivate Sub Command1_Click()Dim a, m As Long, n As Long, k As Integer, i As Integer, j%Dim tmpa = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16)m = 5n = UBound(a) - LBound(a) + 1 ' 元素数目For i = 1 To n - m + 1 ' 前移元素k = m - 1 + LBound(a) + i - 1 ' 前移元素下标tmp = a(k)For j = 1 To m - 1 ' 后移元素a(k - j + 1) = a(k - j)Next ja(i + LBound(a) - 1) = tmpNext i‘输出（略）End Sub或：Private Sub Command1_Click()Dim a, b(), m As Long, n As Longa = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16)b = am = 5 ' 平移起点n = LBound(b) + m - 1 ' 平移起点下标m = UBound(b) - m + 1 ' 后移目标区段起点下标For i = LBound(b) To UBound(b)If i >= n Thena((i - n) + LBound(b)) = b(i)Elsea(m + (i - LBound(b) + 1)) = b(i)End IfNext i‘输出（略）End Sub3. 利用随机函数，模拟投币结果。