Файл: Информатика и КГ_2014.doc

Пример 6.7. Определить максимальный элемент массива d = {12; 0.4; 30; –2; 5; 9.3} и номер этого элемента. Исходные данные записаны в пятом столбце на рабочем листе. Результат надо поместить в ячейки F1 и F2:

Sub CommandButton7_Click()

Dim d As Single, max As Single, n As Integer, i As Integer

max = Cells(1, 5) : n = 1

For i = 2 To 6

d = Cells(i, 5)

If d > max Then max = d: n = i

Next

Range(“F1”) = max

Range(“F2”) = n

End Sub

6.3. Одномерные массивы

Массивами называются совокупности данных одного типа, объединенных одним именем. Элементы массивов называются индексированными переменными.

Одномерные массивы имеют один индекс, например a(i), где a – имя массива; i – номер элемента массива.

Массивы до их использования в программе должны быть объявлены в операторе Dim, например:

Dim a(5) As Single

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

После объявления элементы массива могут использоваться в выражениях подобно простым переменным, но с указанием индекса в круглых скобках. Например, после приведенного выше объявления массива а(i) в программном коде можно обращаться к следующим элементам массива: а(0), а(1), а(2), а(3), а(4), а(5).

Если необходимо использовать определенную нумерацию элементов массива, например с 5 до 10, то это указывается при объявлении массива следующим образом:

Dim a(5 to 10) As Single

После этого в программном коде будут доступны следующие элементы массива: а(5), а(6), а(7), а(8), а(9), а(10).

Ввод элементов массива может производиться с помощью оператора присваивания или в режиме диалога.

Пример 6.8. Программу предыдущего примера можно записать с использованием одномерных массивов следующим образом:

Sub CommandButton8_Click()

Dim d(1 To 6) As Single, max As Single, n As Integer, i As Integer

For i = 1 To 6

d(i) = Val(InputBox(«Введите элемент массива d»))

Next

max = d(1) : n = 1

For i = 1 To 6

If d(i) > max Then max = d(i): n = i

Next

MsgBox (“Макс. знач. = ” & max & “ имеет элемент с номером ” & n)

End Sub

Для ввода данных используется клавиатура. Результат выдается в окно сообщений.

6.4. Задание для выполнения на компьютере

Разработать программу по условиям, приведенным в табл. 6.1.
Создать кнопку «Сумма» и написать программу, вычисляющую сумму элементов массива из табл. 6.1.
Для командной кнопки «Произведение» создать и выполнить программу, вычисляющую произведение элементов массива.
Для командной кнопки «Максимум» создать и выполнить программу, вычисляющую максимальный элемент массива.

Таблица 6.1

Исходные данные для расчета

№ п/п	Формула для вычислений	Исходные данные
1
2
3
4
5
6
7
8

Окончание табл. 6.1

№ п/п	Формула для вычислений	Исходные данные
9
10
11
12
13
14
15

Для самостоятельного освоения способов программирования различных задач написать программы для всех условий из табл. 6.2.

Таблица 6.2

Исходные данные для расчета

№ п/п	Формула для вычислений	Исходные данные
1
2
3
4
5
№ п/п	Формула для вычислений	Исходные данные
6
7
8
9
10
11

Окончание табл. 6.2

12
13
14
15

7 Функции и процедуры пользователя

7.1. Функции пользователя

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

Различают два типа пользовательских подпрограмм:

– подпрограммы типа Function (функция), которые производят действия, определенные ее программным кодом, и в результате этого действия возвращают одно значение определенного типа;

– подпрограммы типа Sub (процедуры), которые производят действия, определенные ее программным кодом, и возвращают столько значений, сколько необходимо.

Функция пользователя в общем виде имеет следующий вид:

Function <имя функции> (<аргум.1> <As тип>, ...) <As тип>

<программный код для определения функции>

End Function

Описание функции пользователя начинается с заголовка, в котором указывается имя функции после ключевого слова Function, в скобках через запятую перечисляются формальные аргументы с указанием их типа и после скобок указывается тип данных, которому принадлежит значение, возвращаемое функцией. При этом типы аргументов функции и самой функции можно не указывать, в этом случае им присваивается тип Variant. Конечный результат помещается в переменную с тем же именем, что и имя функции.