Sub commandbutton8_click()

      Комментарии к записи 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

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

№ п/п Формула для вычислений Исходные данные

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

№ п/п Формула для вычислений Исходные данные

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

Таблица 6.2

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

№ п/п Формула для вычислений Исходные данные
№ п/п Формула для вычислений Исходные данные

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

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

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

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

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

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

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

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

Function ( , …)

End Function

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

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

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

Статьи к прочтению:

Disable VBA Excel CommandButton While Macro Runs


Похожие статьи:

  • Расчетно-графическая работа №1

    Вариант № 82, 1994 по дисциплине «Информатика» Ю.В.Панаева Выполнил студент гр.БМТ1-11-03 ________________ _________________________ подпись, дата…

  • Sub commandbutton1_click()

    For i = 1 To 5 z = Val(InputBox( Введите значение z )) q = Sqr(z ^ 2 + 5 * z) * Log(z + 0.33) Worksheets(“Лист1”).Cells (i, 1) = q Next i End Sub Пример…