以下示例说明了使用数组元素。

如果我们有一个数组myArray，元素为1到10，填充随机数据：

Index        Data
1              5
2              2
3              6
4              5
5              9
6              1
7              0
8              4
9              5
10             7

可以通过指向数组元素的索引来单独访问每条数据：

    Print myArray(5)
    

打印myArray第五个元素中包含的数据会产生以下输出：

 9
 

要更改数组的内容，请像其他变量一样使用它：

    myArray(3) = 0
    

要打印myArray(3)的内容，请使用以下命令：

    Print myArray(3)
    

其结果是：

 0
 

可以使用另一个变量对数组元素建立索引。在这个例子中，我们将数组中的所有元素设置为零：

    Dim a As Integer
    For a = 1 To 10
      myArray(a) = 0
    Next a
    

将随机数组元素更改为随机值：

    Dim Index As Integer
    Dim Value As Integer
    index = Int(Rnd(1) * 10) + 1 'This line will simply return a random value between 1 and 10
    Value = Int(Rnd(1) * 10) + 1 'This line will do the same
    myArray(index) = Value
    

Declare Sub PrintArray()

Dim Numbers(1 To 10) As Integer
Dim Shared OtherNumbers(1 To 10) As Integer
Dim a As Integer

Numbers(1) = 1
Numbers(2) = 2
OtherNumbers(1) = 3
OtherNumbers(2) = 4

PrintArray ()

For a = 1 To 10
 Print Numbers(a)
Next a

Print OtherNumbers(1)
Print OtherNumbers(2)
Print OtherNumbers(3)
Print OtherNumbers(4)
Print OtherNumbers(5)
Print OtherNumbers(6)
Print OtherNumbers(7)
Print OtherNumbers(8)
Print OtherNumbers(9)
Print OtherNumbers(10)

Sub PrintArray ()
 Dim a As Integer
 For a = 1 To 10
   Print otherNumbers(a)
 Next a
End Sub

• Arrays
  
• Dim
  
• Function
  
• Sub
  
• Variables
  
• Variable Scope