★數(shù)組元素的引用

　　★數(shù)組元素的輸入、輸出和處理

　　8.2數(shù)組的基本操作

　　7.2.1 數(shù)組元素的賦值

　　1.用賦值語句給數(shù)組元素賦值

　　例：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.通過循環(huán)逐一給數(shù)組元素賦值

　　例：

　　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 '使用循環(huán)給一維數(shù)組賦值并輸出

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

　　Print A(i)

　　Next i

　　Print

　　For i = 1 To 2 '利用二重循環(huán)給二維數(shù)組賦值并輸出

　　For j = 1 To 2

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

　　Print B(i, j);

　　Next j

　　Print

　　Next i

　　End Sub

　　3.用InputBox函數(shù)給數(shù)組元素賦值

　　Private Sub Form_Click()

　　Dim A(6) As Integer, V As Variant

　　For i = 0 To 6

　　A(i) = InputBox("給數(shù)組元素賦值", "數(shù)組A賦值")

　　Print A(i);

　　Next i

　　Print

　　End Sub

　　4.用Array函數(shù)給數(shù)組賦值

　　Array函數(shù)的一般使用形式如下：

　　〈變體變量名〉= Array([數(shù)據(jù)列表])

　　功能：將一個(gè)數(shù)據(jù)集賦給一個(gè)Variant 變量，并將該變量創(chuàng)建成一個(gè)一維數(shù)組。

　　例 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的區(qū)別

　　End Sub

　　相關(guān)推薦：

　　2012年下半年計(jì)算機(jī)等級考試報(bào)名時(shí)間及入口匯總

　　計(jì)算機(jī)等級考試三級PC技術(shù)過關(guān)心得技巧

　　2012年3月計(jì)算機(jī)二級考試真題匯總