End Sub. Dim a As Single, a2 As Single, a3 As Single

Sub пример2()

Dim a As Single, a 2 As Single, a 3 As Single

a = InputBox("Введите число")

степень a, a 2, a 3

MsgBox "Ответ: x ^ 2=" & Str(a 2) & " x^ 3=" & Str(a 3)

End Sub

Рисунок 1.7 – Результаты работы программы "пример2"

Функция позволяет вычислять одно значение от нескольких ар­гументов. Код функции записывается в модуле. Синтаксис функции:

Function ИмяФункции (список формальных параметров) As Тип

Описания локальных переменных

Инструкции и операторы

ИмяФункции = выражение