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

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

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

1. Разработать программу по условиям, приведенным в табл. 6.1.

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

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

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

Таблица 6.1

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

№ п/п Формула для вычислений Исходные данные
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru

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

№ п/п Формула для вычислений Исходные данные
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
  Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru

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

Таблица 6.2

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

№ п/п Формула для вычислений Исходные данные
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
№ п/п Формула для вычислений Исходные данные
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
Sub CommandButton8_Click() - student2.ru   Sub CommandButton8_Click() - student2.ru
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru  
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru

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

Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru  
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru  
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru  
Sub CommandButton8_Click() - student2.ru Sub CommandButton8_Click() - student2.ru

ФУНКЦИИ И ПРОЦЕДУРЫ ПОЛЬЗОВАТЕЛЯ

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

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

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

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

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

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

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

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

End Function

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

Заканчивается описание функции пользователя ключевыми словами End Function.

Например, функция v(h, r), вычисляющая объем цилиндра v в зависимости от его высоты h и радиуса основания r, может быть задана в следующем виде:

Наши рекомендации