2012年计算机等级考试二级VB重点知识(十三)

　　★数组元素的引用

　　★数组元素的输入、输出和处理

　　8.2数组的基本操作

　　7.2.1 数组元素的赋值

　　1.用赋值语句给数组元素赋值

　　例：P92

　　Dim Score(3) As Integer

　　Dim Two(1,1 to 2)As Integer

　　Score(0)=80

　　Score(1)=75

　　Score(2)=91

　　Score(3)=68

　　Two(0,1)= Score(0)

　　Print Two(0, 1)

　　2.通过循环逐一给数组元素赋值

　　例：

　　Private Sub Form_Click()

　　Dim A(6) As Integer, i As Integer

　　Dim B(1 To 2, 1 To 2) As Integer, j As Integer

　　For i = 0 To 6 '使用循环给一维数组赋值并输出

　　A(i) = Int(99 * Rnd) + 1

　　Print A(i)

　　Next i

　　Print

　　For i = 1 To 2 '利用二重循环给二维数组赋值并输出

　　For j = 1 To 2

　　B(i, j) = i * 10 + j

　　Print B(i, j);

　　Next j

　　Print

　　Next i

　　End Sub

　　3.用InputBox函数给数组元素赋值

　　Private Sub Form_Click()

　　Dim A(6) As Integer, V As Variant

　　For i = 0 To 6

　　A(i) = InputBox("给数组元素赋值", "数组A赋值")

　　Print A(i);

　　Next i

　　Print

　　End Sub

　　4.用Array函数给数组赋值

　　Array函数的一般使用形式如下：

　　〈变体变量名〉= Array([数据列表])

　　功能：将一个数据集赋给一个Variant 变量，并将该变量创建成一个一维数组。

　　例 P93

　　Option Base 1

　　Private Sub Form_Click()

　　Dim A As Variant, I As Integer

　　Dim B(4) As Variant

　　A = Array(5, 4, 3, 2, 1)

　　Print A(1); A(2); A(3); A(4); A(5)

　　A = Array(1.5, 2.3, 3.6, 4.1)

　　Print A(1); A(2); A(3); A(4)

　　A = "NO Array"

　　Print A

　　' B = Array(1, 2, 3, 4, 5, 6) '注意A与B的区别

　　End Sub

　　相关推荐：

　　2012年下半年计算机等级考试报名时间及入口汇总

　　计算机等级考试三级PC技术过关心得技巧

　　2012年3月计算机二级考试真题汇总