Практикум

End Sub

MsgBox S

Next

Dim p As Single, p1 As Single, i As Integer

Dim f(4) As Single, f1(4) As Single, S As Single

End Sub

Next

Dim i As Integer

Sub product(k, z, p)

p = 1

For i = 1 To k

p = p * z(i)

Здесь введены следующие имена для процедуры и параметров: product – имя процедуры; k – количество сомножителей в произведении; z – имя массива, произведение элементов которого перемножается; p – параметр, в котором после вычисления будет храниться значение вычисленного произведения.

Эту процедуру можно теперь использовать для решения исходной задачи:

Sub CommandButton1_Click()

For i = 1 To 4

f(i) = Val(InputBox("Введите f(i)"))

f1(i) = Sin(f(i))

product 4, f, p1 ‘обращение к процедуре

product 3, f1, p2 ‘обращение к процедуре

S = p1 + p2

Здесь после ввода в память массивов f и f1 дважды вызывается процедура product. При этом первый раз в нее передаются фактические значения для формальных параметров k и z соответственно равные 4 и f, а результат сохраняется в переменной p1. Во второй раз - значения параметров k и z соответственно равные 3 и f1, а результат сохраняется в переменной p2.

1. Создать пользовательскую функцию листа для вычисления любого арифметического выражения и опробовать ее работу.

2. Создать на рабочем листе две кнопки. Одну кнопку использовать для программы вычисления выражений, представленных в табл. 9.1. В программном коде записать основную программу и процедуру типа Sub. В процедуре вычислить сумму или произведение. Вторую кнопку использовать для решения этой же задачи с функцией пользователя.

Таблица 9.1

№	Условия задач	Исходные данные

Продолжение таблицы 9.1