Следующие примеры иллюстрируют использование элементов массива.

Если у нас есть массив 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 'Эта линия будет просто возвращать случайное значение от 1 до 10
    Value = Int(Rnd(1) * 10) + 1 'Эта линия будет делать то же самое
    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

• Массивы
  
• Dim
  
• Function
  
• Sub
  
• Переменные
  
• Переменная области видимости