Private Function MbBit(ByVal Мb As Integer) As Long

Рис. 13.17

Возможные ошибки при определении значений аргументов:

ü количество передаваемых значений не соответствует количеству объявленных аргументов;

ü попытки передать значения не тех типов данных, которые были объявлены для аргументов.

ЗАВДАННЯ 13.4. Постановка задачи: ОПРЕДЕЛИТЬ МАКСИМАЛЬНОЕ ЧИСЛО ИЗ ТРЕХ ЧИСЕЛ, ИСПОЛЬЗУЯ ФУНКЦИЮ ОПРЕДЕЛЕНИЯ МАКСИМАЛЬНОГО ЧИСЛА ИЗ ДВУХ ЧИСЕЛ. ФУНКЦИЮ ПОМЕСТИТЬ В ПРОГРАММНОМ МОДУЛЕ ФОРМЫ.

Порядок действий

1. Откройте проект ЛР13_ Зад2.

2. Измените программный код. Создайте функцию определения максимального числа из двух чисел. Для размещения ее в программном модуле формы используйте один из способов, описанных выше.

Function max2(a As Single, b As Single)

If a > b Then max2 = a Else max2 = b

End Function

где max2 — имя функции, а и b — аргументы.

3. Измените процедуру, которая будет выполняться при щелчке по кнопке < Мах >:

Private Sub cmdM_Click()