★數組元素的引用

　　★數組元素的輸入、輸出和處理

　　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月計算機二級考試真題匯總