Общие процедуры

End Sub

End Sub

DimstrA(l To24) As String,bytI As Byte

ЗАПОЛНЕНИЕ МАССИВА

DimstrA(l To24) As String

Для начала работы с массивом необходимо его предвари­тельно заполнить, то есть присвоить элементам массива определенные значения. Заполнение массива можно произ­водить различными способами.

Заполнение с клавиатуры. Первый способ состоит в том, что значения элементов массива вводятся пользователем с клавиатуры, например с помощью функции InputBox. Тог­да для заполнения рассмотренного выше строкового массива strA(bytl) буквами русского алфавита можно использо­вать следующую событийную процедуру:

' Заполнение массива с клавиатуры

Sub cmdl_Click()

For byt I = 1 To 33

strA(bytI) = InputBox("Введите букву",

"Заполнение массива")

Next bytI

Заполнение с помощью оператора присваивания. Второй способ заполнения массива состоит в использовании опера­тора присваивания. Заполним числовой массив bytA(bytI) целыми случайными числами в интервале от 1 до 100.

Для генерации последовательности случайных чисел ис­пользуем функцию Rnd. При запуске программы функция Rnd дает равномерно распределенную псевдослучайную (то есть каждый раз повторяющуюся) последовательность чисел из интервала 0 < X < 1. Для того чтобы генерирова­лись различающиеся между собой последовательности, мож­но использовать оператор Randomize.

Для получения последовательности случайных чисел в заданном интервале А < X < В необходимо использовать сле­дующую формулу:

(В-А)* Rnd + A

Получение целочисленной последовательности случай­ных чисел из интервала 0 <Х < 100 достигается использова­нием функции выделения целой части числа:

Int(Rnd * 100)

Создадим событийную процедуру для заполнения одно­мерного целочисленного массива случайными числами:

Dim bytA(l To 100), bytI As Byte ' Заполнение массива присваиванием

Sub cmdl_Click() For bytI = 1 To 100

bytA(bytI) = Int(Rnd * 100) Next bytI

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

В объектно-ориентированных языках программирования вспомогательные алгоритмы реализуются с помощью общих процедур. Общие процедуры создаются в тех случаях, когда в программном модуле можно выделить многократно повто­ряющиеся последовательности действий (алгоритмы).

Определение общей процедуры. Каждой общей процедуре дается уникальное название - имя процедуры и устанавли­вается список входных и выходных параметров процедуры.

Список входных параметров представляет собой набор пе­ременных, значение которых должно быть установлено до начала выполнения процедуры.

Список выходных параметров представляет собой набор переменных, значение которых должно быть установлено после окончания выполнения процедуры.

Синтаксис общей процедуры:

Sub ИмяПроцедуры(СписокПараметров)

программный код

Дата добавления: 2014-01-04