Комментарии - это пояснительный текст, который можно записать в любом месте программы. Каждая строка комментариев начинается со знака апострофа. Комментарии игнорируются компилятором, и поэтому никакого влияния на программу не оказывают. Комментарии удобно использовать также при отладке операторов для их временного отключения. Для более компактной записи программы используется символ двоеточия в качестве разделителя операторов в одной строке.

Рассмотрим пример организации модуля [2].

Option Base I

Option Explicit

Const PI As Double = 3.14159

PI - глобальная постоянная

Dim X As Double

X - глобальная переменная

Function Disc(R As Double) As Double Disc вычисляет площадь круга X = 2

Disc = PI * R 2 End Function

Function Rec(a, b, с As Double) As Double Rec вычисляет площадь треугольника Dim p As Double p - локальная переменная p = (a + b + с) /2

Rec = Sqr(p * (p - a) * (p b) * (p - c) ) End Function

Sub Results 0

Dim R l, R 2, a, Ъ, с As Double RI, R2, a,b, c- локальные переменные

R l = Disc (2 .5)

X = X + 2

MsgBox("Площадь круга =" & CStr(R l) & ",x=" & CStr(x))

a = 1: b =1: c- Sqr (2) R 2 = Rec (a, b, c)

MsgBox ("Площадь треугольника =" & CStr(R 2)) End Sub

Функция Sqr вычисляет квадратный корень аргумента. Процедура MsgBox выводит текстовую информацию в окно вывода (подробнее см. разд. 4.4).

В результате работы программы появятся сообщения, представленные на рис. 4.4.

В общем случае при вызове процедур передаваемые параметры не надо заключать в скобки. Приводимый ниже пример показывает основные способы передачи параметров в процедуры.

Sub Example (А, В)

С = А + В

MsgBox cstr© End Sub

Sub MAIN ( )

Dim Ax, By As Double

Example 5, 3 5

Ax = 5: By = 35

Example Ax, By

Example A:=5, B:=35 End Sub

Здесь инструкция Option Explicit указывает на необходимость описания типов всех переменных, используемых на данном листе модуля. Функция Cstr переводит числовой формат в строковый. (Функция Str также переводит числовой формат в строковый, но только для чисел с десятичной точкой.)

Другие функции преобразования типов:

В данном примере при третьем вызове процедуры Example передача параметров осуществляется присвоением значений именам параметров с помощью оператора присваивания «: =» (который применяется только по отношению к параметрам процедуры, в отличие от ранее описанного оператора присваивания «=»). При таком способе передачи параметров порядок присваивания значений не важен, так как все определяется именами параметров.

Microsoft Excel

Площадь треугольника =0.5

soft Excel

Площадь крзга = 19.6349375, х=4

Рис. 4.4. Результаты работы программы «Results» 4.4. Функции MsgBox и InputBox

Функция MsgBox осуществляет вывод информации в окне сообщений.

В простейшем случае функция MsgBox имеет следующий синтаксис:

MsgBox(текстовая строка, кнопки, заголовок).

текстовая строка - это обязательный аргумент, задающий в окне выводимое информационное сообщение; может состоять из нескольких текстовых строк, объединенных знаком «&»; использование в этом аргументе Chr(13) приводит к переходу на новую строку при выводе информации;

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