计算机vb二级考试经典教学课件

1、第5部分 数组5.1 数组的概念：数组：把具有同一名字,不同下标的变量称为数组.其一般形式： s(n)其中：s是数组名，n是下标。例如：Dim s(8) as integer占据9个整型变量空间，即s(0), s(1),s(8) 一、数组的定义（用四种格式定义）Dim 窗体模块、标准模块、过程中定义数组ReDim 用在过程中定义数组Static 用在过程中定义数组Public 用在标准模块中，定义全局数组在定义数组时，VB提供两种格式第一种格式一维数组：Dim 数组名(下标上界) as 类型名称Dim a(5) as integer二维数组：Dim 数组名(第一维下标上界，第二维下标上界) a

2、s 类型名称Dim Text(2, 3) as integer说明：(1)“数组名”与简单变量命名相同(2)数组必须先定义，后使用(3)用Dim语句定义数组时，把数组中全部元素都初始化为0或空字符串。在定义数组时，VB提供两种格式1、第一种格式一维数组：Dim 数组名(下标上界) as 类型名称Dim array(5) as integer该数组名为array,占据6个整型变量空间，即array (0), array(1), array(5)，即该数组可存放6个整数元素。如下图所示：array(0)array(1)array(2)array(3)array(4)array(5)二维数组：Dim

3、 数组名(第一维下标上界，第二维下标上界) as 类型名称Dim Text(2, 3) as integer该数组为二维数组，数组名为text,有3行4列，占据12（34)个整型变量空间，即text (0,0), text(0,1), array(2,3)，即该数组可存放12个整数元素。如下图所示：Text(0,0)Text(0,1)Text(0,2)Text(0,3)Text(1,0)Text(1,1)Text(1,2)Text(1,3)Text(2,0)Text(2,1)Text(2,2)Text(2,3)0行1行2行0列 1列 2列3列说明：(1)“数组名”与简单变量命名相同(2)数组必

4、须先定义，后使用(3)用Dim语句定义数组时，把数组中全部元素都初始化为0或空字符串。(4) 下界默认为0，希望下标从1开始，格式设置： Option Base 1(5) 注意区分数组和数组元素。例如： Dim a(5) 与 a(5)第二种格式Dim 数组名(下界 To 上界) as 类型名称 Dim Arr1(-2 To 3), Arr1(-2 To 3, 0 To 4)Dim arr(8, 3)Dim arr(0 to 8, 0 To 3)Dim arr(8, 0 To 3)以上三个数组均为等价的二维数组。例:语句Dim a（-3 To 4, 3 To 6） As integer定义的数组

5、的元素个数是(2009年3月考题)A）18B）28C）21D）32（21）默认情况下，下面声明的数组的元素个数是(2011.3考题) Dim a(5，-2 to 2）A)20B)24C)25D)30DD（28）若在窗体模块的声明部分声明了如下自定义类型和数组(2010年3月考题) Private Type rec Code As Integer Caption As String End Type Dim arr(5) As rec则下面的输出语句中正确的是A)Print arr.Code(2) , arr.Caption(2) B) Print arr.Code , arr.CaptionC

6、)Print arr(2).Code , arr(2).Caption D)Print Code(2), Caption(2) C在定义数组时，要注意以下几点：在同一过程中，数组名不能与变量名同名，否则会出错。例如：Private sub form_Click()Dim a(5)Dim aa=8a(2)=10 Print a, a(2)End sub在定义数组的元素个数必须是常数，不能是变量或表达式。例如：Dim arr2(n)Dim arr3(n+5)均为错误。即使在定义数组前给出n值，也是错误的。例如：n = InputBox(输入n的值) Dim arr4(n)运行将产生错误的信息，如图

7、：用ReDim定义就不会错，上例改为： n = InputBox(输入n的值) ReDim arr4(n)也可由类型说明符来指定数组类型。例如：Dim a%(5), b!(3 to 8), c#(12)5.2 静态数组与动态数组静态数组：编译时开辟内存区 (下标为常数).动态数组：运行时开辟内存区 (下标为变数)。一、动态数组的定义（通常分两步)(1)在窗体层、标准模块或过程中用Dim或public声明一个没有下标的数组.如： Dim b() as integer (b()指明类型)(2)在过程中用ReDim语句定义带下标的数组。如： n =inputbox( enter a Data ） R

8、eDim b(n)Dim b( ) Private Sub Form_Click( ).ReDim b(n) ReDim b(m) End sub 注意: 当重新分配动态数组时,原数组中的内容被清除，(3) 动态数组中可随时改变数组中元素个数。但不能改变数组的维数和数组的类型。例如：Dim this() As StringPrivate Sub Form_Click() ReDim this(6) this(2) = Microsoft Print this(2) ReDim this(4) this(3) = Visual Basic Print this(3) Print this(2)E

9、nd Sub 以下两个程序均为错误：例：窗体上有Commal1 Commad2两个命令按钮.现编写以下程序: (2008年9月考题)Option Base 0Dim a() As Integer, m As IntegerPrivate Sub Command1-Click()m=InputBox(“请输入一个正整数”)ReDim a(m)End SudPrivate Sub Command2_Click() m=InputBox(“请输入一个正整数”) ReDim a(m)End Sub运行程序时，单击Command1后输入整数10，再单击Command2 后输入整数5，则数组a中元素的个数

10、是A)5 B)6 C)10 D)11B5.3 数组的基本操作一、数组元素的输入、输出和复制.数组的引用:引用数组时应注意： 数组名、类型和维数必须一致。例如：Dim x%(10).print x$(4)引用数组元素时，其下标不得越界。例如：Dim Arr(20)Print Arr(24)数组元素的输入（赋值）一般通过for循环语句及inputbox函数赋值。例如： ReDim stuname(3) As String For i = 1 To 3 stuname(i) =InputBox(Enter Name:) print stuname(i) ; Next i用赋值语句来实现：Option

11、 Base 1Dim stuname(3) As StringPrivate Sub Form_Click() stuname(1)= Zhang stuname(2) = Wang stuname(3) = Li “End Sub初始化赋值： a=array(1,2,3,4,5,6)即a(0)=1,a(1)=2,a(5)=6（28）阅读程序（2011.3）Private Sub Command1_Click()Dim arrDim i As Integerarr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For i = 0 To 2Print arr(

12、7 - i);NextEnd Sub程序运行后，窗体上显示的是：A) 8 7 6B) 7 6 5C) 6 5 4D) 5 4 3B(27)下面的语句用Array函数数组变量a的各元素赋整数值：（20011.9）A=Array(1,2,3,4,5,6,7,8,9)针对a的声明语句应该是A)Dim aB) Dim a as integerC)Dim a(9) As integerD) Dim a() as integrA（30）在窗体上画一个命令按钮（其名称为Commandl）,然后编写如下代码 (2010年9月考题) Private Sub Command l_Click（）Dim aa=Arr

13、ay(1,2,3,4)i=3：j=1Do While i=0s=sa(i)*ji=i-1j=j*10。LoopPrint sEnd Sub运行上面的程序，单击命令按钮，则输出结果是A）4321B）123C）234D）1234D（33）请阅读程序： (2010年9月考题) Option Base 1Private Sub Form_ Click()Dim Arr(4, 4) As IntegerFor i=1 To 4For j=I To 4Arr(i, j)=(i 1)*2jNext jNext iFor i=3 To 4For j=3 To 4Print Arr(j, i);Next jPr

14、intNext iEnd Sub程序运行后，单击窗体，则输出结果是A）5 7 B）6 8 C）7 9 D）8 10 6 8 7 9 8 10 8 11C（6）窗体上有一个名称为Combo1的组合框， 其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。 (2010年9月考题) Option Base 1Private Sub Command 1_ Click()Dim city As Variantcity=_【6】_(北京，天津,上海,武汉,重庆,西宁)For i=_【7】_To UB

15、ound（citv）Combo 1.Addltem_【8】_NextEnd Sub【6】Array【7】1【8】city(i)例: 下面程序执行时，在窗体上显示的是（2007年9月考题） Private Sub Command1_Click()Dim a(10)For k = 1 To 10a(k) = 11 kNext kPrint a(a(3)a(7) Mod a(5)End SubA）3 B）5 C）7D) 9D例：在窗体上画一个名为command1的命令按钮，然后编写如下代码： （2008年9月考题） option base 1private sub command1_click()d

16、im aa=Array(1,2,3,4)j=1For i= 4 to 1 step 1s=s+a(i)*jj=j*10Next IPrint sEnd Sub运行上面的程序,其输出结果是A)1234 B)12 C)34 D)4321A例:在窗体上画一个名为Command1的命令按钮，然后写以下程序： （2008年9月考题） Private Sub Command1_Click()Dim M(10) As IntegerFor k=1 To 10 M(k)=12-kNext kx=8Print M(2+M(x) End Sub运行程序，单击命令按钮，在窗体上显示的是A)6 B) 5 C) 7 D

17、) 8A(29)在窗体上画一个名为Command1的命令按钮，然后编写以下程序 （2011.3）Private Sub Command1_Click()Dim a(10) As IntegerFor k = 10 To 1 Step -1a(k) = 20 - 2 * kNext kk = k + 7Print a(k - a(k)End Sub运行程序，单击命令按钮，输出结果是18B) 12C) 8D) 6A（10）在窗体上画一个命令按钮，其名称为command1，然后编写如下代码： （2008年9月考题） option base 1private sub command1_click()d

18、im arrarr= array(43,68,-25,65,-78,12,-79,43,-94,72)pos = 0neg=0for k = 1 to 10if arr(k) 0 then .else .end ifnext kprint pos,negend sub以上程序的功能是，计算并输出数组arr中10个数中正数之和pos与负数之和neg，请填空。Pos=pos+arr(k)neg=neg+arr(k)（23）在窗体上画一个命令按钮，其名称为Command 1，然后编写如下代码： （2009年3月考题） Option Base 1 Private Sub Commandl_ Click

19、（） 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 s End Sub 程序运行后，单击命令按钮，其输出结果是 A）4321B）1234 C）34D）12 B（25）在窗体上画一个命令按钮，名称为Command 1，然后编写如下代码（2009年3月考题） ： Option Base 0 Private Sub Commandl_Ciick() Dim A1(4) As Integer,A2(4) As Integer For k=0 To 2 A1 (k+1)=InputBox (“

20、请输入一个整数”) A2 (3-k)=Al(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2, 4, 6，则输出结果为 A）0B）1C）2D）3 C（30）窗体上有一个名为Command1的命令按钮，并有如下程序： （2011.3）Private Sub Command1_Click()Dim a(10), x%For k = 1 To 10a(k) = Int(Rnd * 90 + 10)x = x + a(k) Mod 2Next kPrint xEnd Sub运行程序，单击命令按钮，输出结果是：A)10个数中奇数的个数 B

21、) 10个数中偶数的个数C)10个数中奇数的累加和 D) 10个数中偶数的累加和D（25）设有如下程序： （2011.9）Private Sub Form_Click()Dim ary(1 To 5) As IntegerDim i As IntegerDim sum As IntegerFor i = 1 To 5ary(i) = i + 1sum = sum + ary(i)Next iPrint sumEnd Sub程序运行后，单击窗体，则在窗体显示的是A)15B)16C)20D)25C3. 数组元素输出（用Print方法实现）假定有如下一组数据,按如下格式在窗体上输出1 2 34 5

22、6 7 8 9编程序：(1)把这些数据存入一个二维数组;(2)用Print方法输出数组元素。Option Base 1Dim a(3, 3) As IntegerPrivate Sub Form_Click() For i = 1 To 3 For j = 1 To 3 a(i, j) = InputBox(Enter Data:) Next j Next I For i = 1 To 3 For j = 1 To 3 Print a(i, j); ; Next j print Next IEnd Sub例8.2 从键盘上输入10 个整数，用冒泡排序法对这10个数从小到大排序Private S

23、ub Command1_Click()Static a(1 To 10) As IntegerFor i = 1 To 10 a(i) = InputBox(请输入数据)Next iFor i = 1 To 9 For j = i+1 To 10 If a(i) a(j) Then t = a(j): a(j) = a(i): a(i) = t End If Next jNext iFor i = 1 To 10 Print a(i)Next i End Sub二、For EachNext语句（类似forNext语句）格式：For Each 成员 in 数组 循环体 Next 成员Privat

24、e Sub Command1_Click()Dim arr(1 To 5)arr(1) = 2arr(2) = 3arr(3) = 4arr(4) = 5arr(5) = 6For Each x In arr Print x;Next xEnd Sub(22)设有如下程序段(2011.3)Dim a(10)For Each x in aPrint x;Next x在上面的程序段中，变量x必须是A)整型变量B)变体型变量C)动态数组D)静态数组B5.4 控件数组一、基本概念控件数组：把具有同样的名字、同样的类型、同样的属性设置。注意： (1)数组中的每个控件都有惟一索引号（index ),即下标

25、,索引号(Index)的值依次为：0，1，2,(2)其所有的元素的Name属性必须相同。(3)控件数组能共享同样的事件过程。二、建立控件数组 用2种方法:例4 建立含有3个命令按钮的控件数组（名称为C1)，当单击某个命令按钮时，分别在窗体上显示相应的操作。第一步：建立控件数组，并作相应的属性设置；第二步：编写代码程序如下：Private Sub C1_Click(Index As Integer) If Index = 0 Then Print 单击第一个命令按钮 ElseIf Index = 1 Then Print 单击第二个命令按钮 Else End End IfEnd Sub例: 若窗

26、体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是(2007.9考题)A）把所有单选按钮的Index属性改为相同值B）把所有单选按钮的Index 属性改为连续的不同值C）把所有单选按钮的Caption属性值改为相同D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。D（24）假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是(2009.3考题) A）数组中每个命令按钮的名称（Namc属性）均为Command 1 B）若未做修改，数组中每个命令按钮的大小都一样 C）数组中各个命令按钮使用同一个C

27、lick事件过程 D）数组中每个命令按钮的Index属性值都相同 D精讲例题(数组)： 1、用下面语句定义的数组的元素个数是：Dim A (-3 To 5) As IntegerA）6 B）7 C）8 D）9D2、以下程序的输出结果是：Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1 To 10 a(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 subA）33 B）28 C）35

28、 D）37 A3、设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：PriVate Sub Command1_Click()Static b As VariantbArray(1,3,5,7,9) End Sub此过功能是把数组b中的5个数逆序存放(即排列为9 ，7，5，3，1),为实现此功能，省略号处的程序段应该是C4、设有如下程序：Option Base 0Private Sub Form_Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6, 7,8,9) For i=0 To 3 Print a(5-i); Next E

29、nd Sub 程序运行后，单击窗体，则在窗体上显示的是 A）4 3 2 1 B）5 4 3 2 C）6 5 4 3 D）7 6 5 4 C5、在窗体上面画一个命令按钮，编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4 To 1 Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面程序，单击命令按钮，其输出结果是：A）4321 B）12 C）34 D）1234D6、 对窗体编写如下代码：Option Base 1Priv

30、ate Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1):m2 = 1If KeyAscii = 13 Then For i =2 To 5 If a(i)m1 Then m1 =a(i):m2 =i End If Next iEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果为A）48 B）237 C）498 D）498 4 1 5 4C7、下面的程序段： Dim aa(1 to 10) For Each x In aa Print x; Next x重

31、复的次数是：A）10 B）9 C）5 D）0A8、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是A）4 B）5 C）6 D）7B9、在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click( )Dim Arr1(

32、10) As Integer, arr2(10) As Integer n=3For i=1 to 5Arr1(i)=iArr2(n)=2*n+iNext iPrint Arr2(n);arr1(n)End sub程序运行后，单击命令按钮，输出结是 。A）11 3 B）3 11 C）13 3 D）3 13A10、在窗体上画一个名称为Command1命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a As Varianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next

33、ix=Sum/5For i =1 To 5If a(i)x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）1 2 B）1 2 3 C）3 4 5 D）4 5D11、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：（2005年9月考题） Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array

34、1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 A）12 B）13 C）14 D）15A12、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程（2005年9月考题） Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Ne

35、xt j Next i Print a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是 A）6 6 B）10 5 C）7 21 D）6 12D13、有如下程序:(2005年9月考题）Option Base 1Private Sub Form_Click() Dim arr, Sum Sum = 0 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 10 If arr(i) / 3 = arr(i) 3 Then Sum = Sum + arr(i) End If Next i Pri

36、nt SumEnd Sub 程序运行后，单击窗体，输出结果为 A）25 B）26 C）27 D）28C14、在窗体上画一个命令按钮，然后编写如下事件过程：（2005年9月考题）Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5 a(i) = Chr(Asc(A) + (i - 1) Next i For Each b In a Print b; NextEnd Sub 程序运行后，单击命令按钮，输出结果是 A）ABCDE B）1 2 3 4 5 C）abcde D）出错信息A15、设有命令按钮 Comnlandl 的单击

37、事件过程，代码如下:(2006年4月考题）Option Base 1Private Sub Commandl _ Click() Dim a ( 30 ) As Integer For i = 1 TO 30 a(i)=int (Rnd *100 )Next iFor Each arrItem In a if arrItem Mod 7=0 Then print arrItem;if arrItem 90 then Exit For NextEnd Sub对于该事件过程，以下叙述中错误的是 A)a数组中的数据是 30 个 100 以内的整数B)语句 for Eacha arrItem In a

38、 有语法错误C)If arrItem Mod 7= 0 语句的功能是输出数组中能够被7整除的数D)If arrItem90 语句的作用是当数组元素的值大于 90 时退出For循环B16、设 有命令按扭 Commond1的单击孚们过程，代码如下： (2006年4月考题） Private Sub Command1_Click() Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = i * j + i Next j Next i Sum = 0 For i = 1 To 3 Sum = Sum + a(i, 4 - i) Ne

39、xt i Print SumEnd Sub运行程序，单击命令按钮，输出结果是 A ) 20B ) 7 C ) 16 D ) 17C17 窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1,如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图所示。为了实现上述功能，在程序中的问号处（？）处应填入的内容是（2006年4月考题）Private Sub Option1_Click(Index As Integer)If Text1.Text ThenS

40、elect Case ?Case 0Text2.Text = Val(Text1.Text) Case 1Text2.Text = Val(Text1.Text) * 10Case 2Text2.Text = Val(Text1.Text) * 100End SelectEnd IfEnd SubA）IndexB) option1.IndexC) option1(Index)D) option1(Index) .ValueA18、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 （2006年9月考题）Private Sub Command1_Click() Dim i As I

41、nteger,j As Integer Dim a(10,10)As Integer For i=1 To 3For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next iEnd Sub 程序运行后，单击命令按钮，窗体上显示的是 A）1 2 3 B）2 3 4 C）1 4 7 D）1 2 3 2 4 6 3 4 5 2 5 8 4 5 6 3 6 9 4 5 6 3 6 9 7 8 9 D19、在窗体上画一个命令按钮，名称为Command1,然后编写如下代码： （2006年9月考题）Private Sub Command1_Cli

42、ck()Dim a(4) As Integer, b(4) As IntegerFor k = 0 To 2a(k + 1) = InputBox(请输入一个整数)b(3 - k) = a(k + 1)Next kPrint b(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为A）0B）2C）3D）4B20、有以下程序： （2006年9月考题）Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i

43、 = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2); arr(3, 4)End Sub程序运行后，单击窗体，输出结果为A）8 13B）0 13C）7 12D）0 0B21、 1个二维数组可以存放1个矩阵,在程序开始语句option Base 0,则下面定义的数组中正好可以存放1个43矩阵(即只有12个元素)的是:（2007年4月考题）Dim a(-2 TO 0 , 2) as integerB) Di

44、m a(3 , 2) as integerC) Dim a(4 , 3) as integerD) Dim a(-1 TO -4 , -1 TO -3) as integerB22 若在某窗体模块中有如下事件过程（2007年4月考题）Private Sub Command1_Click(index as integer) End Sub则以下叙述中正确的是A）此事件过程与不带参数的事件过程没有区别B）有1个名称为command1的窗体，单击此窗体则执行此事件过程C）有1个名称为command1的控件数组，数组中有多个不同类型控件D）有1个名称为command1的控件数组，数组中有多个相同类型控

45、件D23 在窗体上画1个名称为command1的命令按钮，然后编写如下事件过程（2007年4月考题） Option Base 1Private Sub Command1_Click()Dim a(5, 5) As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = (i + j) * 5 10Next jNext is = 0For i = 1 To 5s = s + a(i, i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是A）15B）13C）11D）9A24 在窗体上画2个命令按钮，名称分别为Command1，Comma

46、nd2, 并编写如下程序（2007年4月考题）Const n = 5, m = 4Dim a(m, n)Private Sub Command1_Click()k = 1For i = 1 To m For j = 1 To n a(i, j) = k k = k + 1 Next jNext iEnd SubPrivate Sub Command2_Click()summ = 0For i = 1 To m For j = 1 To n If i = 1 Or i = m Then summ = summ + a(i, j) Else If j = 1 Or j = n Then summ

47、= summ + a(i, j) End If End If Next jNext iPrint summEnd Sub过程Command1_click()的作用是在二维数组a中存放1个m行n 列的矩阵；过程Command2_click()的作用是A）计算矩阵外围一圈元素的累加和B）计算矩阵外围一圈以外的所有元素的累加和C）计算矩阵第1列和最后一列元素的累加和D）计算矩阵第1行和最后一行元素的累加和A25、以下数组定义语句中,错误的是(2008年4月考题)A)static a(10) as integerB) dim c(3, 0 to 4)C)dim d(-10)d) dim b(0 to 5, 1 to 3) as integer26、 已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩（均为整数）。现