Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.21
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.21

Обычно текст программы VBA начинается с опций, которые управляют описанием переменных, способом сравнения строк и т. д. Затем следует объявление глобальных переменных или констант для данного модуля, т. е. таких переменных, которые используются во всех процедурах модуля. Далее располагается непосредственно текст функций пользователя и процедур, составляющих саму программу. При написании программ удобно внутрь текста помещать комментарии.

Программирование в среде Visual Basic for Applications

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

Рассмотрим пример организации модуля [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 4 Disc вычисляет площадь круга x = 2

Disc = PI * R Л 2 End Function

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

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

Sub Results ()

Dim R_l, R_2, a, b, с As Double * R I, R 2, a, b, с- локальные переменные

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

4. Простейшие функции и процедуры. Типы переменных

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta