Массивы Минжесовой Иляны
Содержание Массивы Объявления массивов Заполнение массивов Заполнение с клавиатуры Заполнение с помощью оператора присваивания
массивы Массивы бывают одномерные, которые можно представить в форме одномерной таблицы, и двумерные, которые можно представить в форме двумерной таблицы. Массив состоит из пронумерованной последовательности элементов. Номера в этой последовательности называются индексами.
Массивы могут быть различных типов: числовые, строковые и т.д. Индексы являются целыми числами. Обращение к элементу массива производится по имени массива и значения индекса. Каждый элемент массива может принимать собственное значение. Объявление массивов
Заполнение массива Для начала работы с массивом необходимо его предварительно заполнить, то есть присвоить элементам массива определенные значения. Заполнение массива можно производить различными способами.
Заполнение с клавиатуры. Первый способ состоит в том, что значения элементов массива вводятся пользователем с клавиатуры, например с помощью функции InputBox. Тогда для заполнения рассмотренного выше строкового массива strA (but) буквами русского алфавита можно использовать следующую событийную процедуру:
Dim strA (1 To 33) As String, butI As Byte Заполнение массива с клавиатуры Sub cmd1_Click () For bytI = 1 To 33 strA (bytI) = InputBox (введите букву, _Заполнение массива ) Next bytI End Sub
Заполнение с помощью оператора присваивания Второй способ заполнения массива состоит в использовании оператора присваивания. Заполним числовой массив butA (butI) целыми числами в интервале от 1 до 100. Для генерации последовательности случайных чисел используем функцию Rnd. При запуске программы функция Rnd дает равномерно распределенную псевдослучайную (то есть каждый раз повторяющуюся) последовательность чисел из интервала 0
Для того чтобы генерировались различающиеся между собой последовательности, можно использовать оператор Randomize. Для получения последовательности случайных чисел в заданном интервале A
Получение целочисленной последовательности случайных чисел из интервала 0< X
Создадим событийную процедуру для заполнения одномерного целочисленного массива случайными числами: Dim bytA (1 To 100), bytl As Byte Заполнение массива с клавиатуры Sub cmd1_Click () For bytI = 1 To 100 bytA (bytI) = Int (Rnd * 100) Next bytI End Sub
Конец Проект выполнен Минжесовой Иляной