End Sub

Dim c As Double

Dim b As Double

Dim a As Double

Dim R_2 As Double

Dim R_1 As Double

Public Sub Result ()

End Function

Dim p As Double

Public Function Rec(a As Double, b As Double, c As Double) As Double

End Function

Public Function Disc(R As Double) As Double

Dim x As Double

Option Explicit

Option Base 1

‘ PI – глобальная константа

Const PI As Double = 3.14159

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

‘ Функция Disc вычисляет площадь круга

x = 2

Disc = PI * R ^ 2

‘ Функция Rec вычисляет площадь треугольника

‘ p – локальная переменная

p = (a + b + c) / 2

Rec = Sqr (p * (p – a)* (p – b) * (p – c))

‘ Процедура Result вызывает функции Disc и Rec и выводит результаты

‘R_1, R_2, a, b, c - локальные переменные

R_1 = Disc(2. 5)

x = x + 2

MsgBox “ Площадь круга = “ & CStr(R_1) & “, x = “ & CStr (x)

a =1

b = 1

c = Sqr (2)

R_2 = Rec (a, b, c)

MsgBox “ Площадь треугольника = “ & CStr(R_2)

Здесь инструкция Option Explicit указывает на необходимость описания типов переменных, используемых на данном листе модуля.

Инструкция Option Base 1 указывает, что индексация элементов массива будет начинаться с 1.

Функция Sqr вычисляет квадратный корень аргумента.

Функция CStr переводит числовой формат в строковый.

5. СОЗДАНИЕ ФОРМ В VBA И ВКЛЮЧЕНИЕ ИХ В ПРОЕКТЫ

Автор: bobfisherman |

18 февраля 2011 |

Просмотров: 4 |

Комментарии (0)

Дата добавления: 2015-05-26