Пример выполнения лабораторной работы:

Условие: вычислить выражение: с=Sin(a)/Cos(b).

Схема алгоритма.

Текст программы:

Public Sub primer () ' заголовок процедуры

'раздел описания переменных

Dim a As Double, b As Double, c As Double

'исполняемая часть программы

'присваивание идентификатору а числового значения ячейки А1 рабочего листа

a = Worksheets(1).Range("a1").Value

‘присваивание выражения

b = Worksheets(1).Range("b1").Value

идентификатору b числового значения ячейки В1 рабочего

листа

c = Sin(a) / Cos(b) ' вычисление арифметического

' передача вычисленного значения в ячейку с1 рабочего листа 1

Worksheets(1).Range("c1").Value = c

End Sub 'конец процедуры

Задания для выполнения

Вычислить значения выражений по формулам (предполагается, что значениями переменных могут быть любые действительные числа):

		13.
		14.
		15.
		16.
		17.
		18.
		19.
		20.
9.		21.
10.		22.
11.		23.
12.		24.