Logo GenDocs.ru

Поиск по сайту:  

Загрузка...

Лекции по VBA для гуманитарных специальностей - файл 4 Лекция.doc


Лекции по VBA для гуманитарных специальностей
скачать (2267.5 kb.)

Доступные файлы (7):

0лекции.doc2801kb.19.05.2011 23:01скачать
1 Лекция.doc87kb.19.05.2011 23:01скачать
2 Лекция.doc148kb.19.05.2011 23:01скачать
3 Лекция.doc84kb.19.05.2011 23:01скачать
4 Лекция.doc48kb.19.05.2011 23:01скачать
5 Лекция.doc54kb.19.05.2011 23:01скачать
6 Лекция.doc36kb.19.05.2011 23:01скачать

4 Лекция.doc




Лекция 4


Массивы
Массивы данных представляют собой последовательность однотипных переменных, которые объедены одним общим именем. Каждая отдельно взятая переменная называется элементом массива, элемент массива имеет свой индекс. Каждому элементу массива может быть присвоено одно числовое или символьное значение, поэтому различают массивы числовые и символьные. Кроме того, массивы могут быть одномерными и многомерными.

Одномерный массив можно представить как строку или столбец переменных, а двумерный – как таблицу или матрицу, в которой переменные расположены в m строках и n столбцах.

Определение массивов. Массивы в столбцах должны быть определены в операторе Dim.

Различают статические и динамические массивы.

^ Объявление статического массива

Статические массивы – это массивы, величина которых известна в начале выполнения программы. Динамические массивы – это массивы, величина которых определяется во время выполнения программы. Но независимо от типа массива имя массива должно быть определено в начале программы. Если это статический массив, то сразу указывается его размерность.

При объявлении массива после его имени в круглых скобках указывается верхняя граница массива. По умолчанию верхней границей считается 0.

Dim имя_массива(размерность_1[,размерность_2]) as (тип элементов массива

Где:

имя_массива - имя переменной, определяемое по общим правилам

записи переменной, возможно с указанием типа

хранимых данных;
размерность_1; - индексы массива – целые положительные числа.

размерность_2 Индекс массива определяет число элементов в

одном измерении.

Тип элементов массива – определяет значение элементов

массива: «целые числа», «вещественные

числа», «символьные переменные».

Например,

Dim a(20) as Integer

Объявляется массив из 21 элемента, индекс массива изменяется от 0 до 20.

Можно задавать многомерные массивы, например:

Dim a(20,20) as Integer

Объявляется массив размерностью 2121.

Другой формат записи оператора Dim позволяет определять индексы массива с произвольного числа.

Dim имя_переменной(нач.зн. TO кон.зн.]) As {тип элементов массива}

Где:

Нач. зн. – начальное значение индекса;

Кон. зн. – конечное значение индекса.

Например:

Dim a(3 to 10) as Integer

В этом случае задается массив из 8 элементов. Индекс элементов массива изменяется от 3 до 10.

^ Объявление динамического массива

В случае когда размер массива заранее неизвестен, VBA позволяет использовать динамические массивы, размеры которых можно изменять во время выполнения. Применение динамических массивов позволяет эффективно управлять памятью, выделяя память под большой массив лишь на то время, когда этот массив используется, а затем освобождая ее.

Создание динамического массива осуществляется следующим образом.

1. Объявляется массив с помощью ключевых слов, используемых при создании массива фиксированного размера. Список размерностей массива остается пустым. Например:

Dim a() as Integer

2.С помощью выполняемого оператора ReDim указывается размерность массива в виде числа или выражения. Синтаксис оператора ReDim аналогичен оператора объявления массива фиксированного размера. Например, размерность массива может быть задана любым из следующих способов:

ReDim a(n) – объявляет массив из n+1 элемента, причем x нужно определить заранее, индекс элемента массива меняется от 0 до x+1;

ReDim a(20) - объявляет массив из 21 элемента, индекс элемента массива меняется от 0 до 21;

ReDim a(1 to 20) - объявляет массив из 20 элементов, индекс элемента массива меняется от 1 до 20.

При объявлении оператора ReDim данные, размещенные в массиве ранее теряются. Это удобно в том случае, если данные вам больше не нужны и вы хотите переопределить размерность массива и подготовить его для размещения новых данных.

Sub prim3()

Dim a(), str_a, i, n

n = Val(InputBox("введите количество элементов массива n:"))

ReDim a(n)

For i = 0 To n

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

ReDim a(4)

For i = 0 To 4

a(i) = Int(Rnd * 100) + 1

str_anew = str_anew & a(i) & " "

Next i

MsgBox str_a & Chr(10) & Chr(13) & _

str_anew

End Sub

Если вы хотите изменить размер массива, не потеряв при этом данных, то необходимо воспользоваться ключевым словом Preserve. Например, приведенный ниже программный код увеличивает размер массива на единицу без потери хранящихся в массиве данных:

ReDim preserve a(n+1).

Sub prim33()

Dim a(), str_a, i, n

n = Val(InputBox("введите количество элементов массива n:"))

ReDim a(n)

For i = 0 To n

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

ReDim Preserve a(n+1)

For i = 0 To n+1

a(n+1)=13

str_anew = str_anew & a(i) & " "

Next i

MsgBox str_a & Chr(10) & Chr(13) & _

str_anew

End Sub
^ Ввод и вывод элементов массива

  1. Ввод и вывод элементов статического массива.

В этом примере осуществляется ввод и вывод массива a(20), состоящего из 21 элемента.

Sub prim1()

Dim a(20), str_a,i

For i = 0 To 20
a(i) = Int(Rnd * 100) + 1 ‘ввод элементов массива
str_a = str_a & a(i) & " " ‘преобразование числовых переменных в

‘строковые и сцепление их один за

Next i ‘другим
MsgBox str_a ‘ вывод элементов массива

End Sub
В этом примере осуществляется ввод и вывод массива a(3 to 10), состоящего из 8 элементов.
Sub prim2()

Dim a(3 To 10), str_a,i

For i = 3 To 10

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

MsgBox str_a

End Sub


  1. Ввод и вывод элементов динамического массива.


В этом примере осуществляется ввод и вывод массива a().

Количество элементов массива n+1.
Sub prim3()

Dim a(), str_a, i, n

n = Val(InputBox("введите количество элементов массива n:")) ‘вводится количество элементов

ReDim a(n) ‘указывается количество элементов массива

For i = 0 To n

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

MsgBox str_a

End Sub
В этом примере осуществляется ввод и вывод массива a(20).

Количество элементов массива 21.
Sub prim4()

Dim a(), str_a, i, x

ReDim a(20)

For i = 0 To 20

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

MsgBox str_a

End Sub
В этом примере осуществляется ввод и вывод массива a(1 to 20).

Количество элементов массива 20.

Sub prim5()

Dim a(), str_a, i, x

ReDim a(1 To 20)

For i = 1 To 20

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

MsgBox str_a

End Sub


Скачать файл (2267.5 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации