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
Для ввода данных используется клавиатура. Результат выдается в окно сообщений.
Задание для выполнения на компьютере
1. Разработать программу по условиям, приведенным в табл. 6.1.
2. Создать кнопку «Сумма» и написать программу, вычисляющую сумму элементов массива из табл. 6.1.
3. Для командной кнопки «Произведение» создать и выполнить программу, вычисляющую произведение элементов массива.
4. Для командной кнопки «Максимум» создать и выполнить программу, вычисляющую максимальный элемент массива.
Таблица 6.1
Исходные данные для расчета
| № п/п | Формула для вычислений | Исходные данные |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
|
Окончание табл. 6.1
| № п/п | Формула для вычислений | Исходные данные |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
|
5. Для самостоятельного освоения способов программирования различных задач написать программы для всех условий из табл. 6.2.
Таблица 6.2
Исходные данные для расчета
| № п/п | Формула для вычислений | Исходные данные |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| № п/п | Формула для вычислений | Исходные данные |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
|
Окончание табл. 6.2
| 
| |
| 
| |
| 
| |
| 
|
ФУНКЦИИ И ПРОЦЕДУРЫ ПОЛЬЗОВАТЕЛЯ
Функции пользователя
Если имеются однотипные вычисления в программе, то целесообразно выделять операторы, реализующие их, в отдельную пользовательскую подпрограмму. Тогда в так называемой основной программе можно будет не писать каждый раз заново похожие операторы, а просто обращаться к подпрограмме.
Различают два типа пользовательских подпрограмм:
– подпрограммы типа Function (функция), которые производят действия, определенные ее программным кодом, и в результате этого действия возвращают одно значение определенного типа;
– подпрограммы типа Sub (процедуры), которые производят действия, определенные ее программным кодом, и возвращают столько значений, сколько необходимо.
Функция пользователя в общем виде имеет следующий вид:
Function < имя функции > (< аргум.1 > <As тип >,...) <As тип >
<программный код для определения функции>
End Function
Описание функции пользователя начинается с заголовка, в котором указывается имя функции после ключевого слова Function, в скобках через запятую перечисляются формальные аргументы с указанием их типа и после скобок указывается тип данных, которому принадлежит значение, возвращаемое функцией. При этом типы аргументов функции и самой функции можно не указывать, в этом случае им присваивается тип Variant. Конечный результат помещается в переменную с тем же именем, что и имя функции.
Заканчивается описание функции пользователя ключевыми словами End Function.
Например, функция v (h, r), вычисляющая объем цилиндра v в зависимости от его высоты h и радиуса основания r, может быть задана в следующем виде:
