![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
Объявление массива фиксированного размера зависит от области его видимости и осуществляется следующим образом:
глобальный массив объявляется с помощью служебного слова Public в секции Declaration модуля:
массив уровня модуля — с помощью служебного слова Private в секции Declaration модуля;
локальный массив — с помощью служебного слова Private процедуры.
При объявлении массива после его имени в круглых скобках указывается верхняя граница массива. По умолчанию нижней границей массива является 0. Например, в приведенном ниже коде, который вводится в секцию Declaration модуля, задается массив из 21 элемента. Индекс элементов массива изменяется от 0 до 20:
Dim intCountPar(20) As Integer
Для создания глобального массива такого же размера необходимо использовать следующий код:
Public intCountPar(20) As Integer
Можно явно задать нижнюю границу массива, используя ключевое слово то:
Dim intCountPar(1 To 20) As Integer
В этом случае задается массив из 20 элементов. Индекс элементов массива изменяется от 1 до 20.
Visual Basic позволяет использовать многомерные массивы. Например, в следующем коде объявляется двумерный массив размерностью 21х21:
Dim intCountPar(20, 20) As Integer
При использовании многомерных массивов, как и в случае одномерных, можно явно задавать нижнюю границу:
Dim intCountPar (1 To 20, 1 То 20) As Integer
Доступ к элементам массива осуществляется через индексы, например:
'Объявление массива типа Integer из 3-х элементов
Dim intArray(1 To 3) As Integer
'Запись в 1 элемент массива
intArray(1) = InputBox(“Введите элемент №1”)
'Запись в 2 элемент массива
intArray(2) = InputBox(“Введите элемент №2”)
'Запись в 3 элемент массива
intArray(3) = InputBox(“Введите элемент №3”)
'Запись в 4 элемент массива
intArray(4) = InputBox(“Введите элемент №4”)
'Запись в 5 элемент массива
intArray(5) = InputBox(“Введите элемент №5”)
'Вывод элементов массива
MsgBox "Элемент массива №1 = " & intArray(1)
MsgBox "Элемент массива №2 = " & intArray(2)
MsgBox "Элемент массива №3 = " & intArray(3)
MsgBox "Элемент массива №4 = " & intArray(4)
MsgBox "Элемент массива №5 = " & intArray(5)
Однако гораздо удобнее работать с массивами с применением операторов цикла. Так будет выглядеть пример, приведенный выше, с использованием оператора For…Next:
'Объявление массива типа Integer из 3-х элементов
Dim intArray(1 To 3) As Integer
Dim lngCounter As Long 'Счётчик
'Запись элементов массива
For lngCounter = 1 To 5
intArray(lngCounter) = InputBox("Введите элемент №" & lngCounter)
Next lngCounter
'Вывод элементов массива
For lngCounter = 1 To 5
MsgBox "Элемент массива № " & lngCounter & " = " & intArray(1)
Next lngCounter
Дата публикования: 2014-12-28; Прочитано: 191 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!