根據定義，一個數組是由一個變數清單所組成，它們都具有相同的數據類型和名稱。當我們處理一個單一的項目，我們只需要使用一個變數。但是，如果我們處理一個同類型項目組成的清單，我們需要宣告的是一個變數數組而不是為每個項目宣告一個變數。舉例來說，如果我們需要輸入100個姓名， 我們不是宣布100個不同的變數，我們只需要宣告一個數組。我們在數組中用下標來區分每個項目，例如
Name（ 1 ） ，Name（ 2 ） ，Name（ 3 ） .......等。
我們可以利用Public 或 Dim 陳述式來宣告數組，正如我們宣告一個單一的變數。Public陳述式宣告的數組可用於整個程式，而Dim陳述式宣告的數組，只可用於一個局部程序。
一般宣告數組的格式如下：
Dim arrayName(subs) As dataType
範例 16.1
Dim CusName(10) As String
將宣告一個由10個元素組構成的數組。，如果宣告區中加入Option Base 1陳述式，這十個元素從cusname （ 1 ）開始 至cusname （ 10 ）為止 。否則，這個數組將有11種元素，從cusname （ 0 ）起至到cusname （ 10 ）為止。
範例16.2
Dim Count(100 to 500) As Integer
宣告的數组由第一元素Count(100)開始 至Count(500)為止
(i)
圖16.1
程式
Dim studentName(10) As String
Dim num As IntegerPrivate Sub addName()
For num = 1 To 10
studentName(num) = InputBox("輸入學生姓名", "輸入姓名", "", 1500, 4500)
If studentName(num) <> "" Then
Form1.Print studentName(num)
Else
End
End IfNext
End Sub
上述程序接受數據輸入，通過輸入框，並把資料顯示出來。你可以看到，這一程式將允許用戶每次按一下啟動按鈕輸入10個名字。
(ii)
圖16.2
程式
Dim studentName(10) As String
Dim num As IntegerPrivate Sub addName( )
For num = 1 To 10
studentName(num) = InputBox("输入学生姓名")
List1.AddItem studentName(num)
Next
End Sub
Private Sub Start_Click()
addNameEnd Sub
上述程序通過一個 InputBox 接受輸入數據和在一個列表框顯示所有的項目。
