Проект.

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

Приводятся процедура и функция и процедуры обработки события проекта:

Public Sub Arifm(A As Single, B As Single, C As Single)

C = A + B

End Sub

Public Function Logic(A As Single, B As Single, C As Single) As Boolean

Logic = ( A >= B And C < 5.5)

End Function

Private Sub Command2_Click()

Command1.Visible = True

Option1.Visible = True

Option2.Visible = True

Label1.Visible = True

Label2.Visible = True

End Sub

Private Sub Form_Load()

Label1.Visible = False

Label2.Visible = False

Option1.Visible = False

Option2.Visible = False

Command1.Visible = False

End Sub

Private Sub Command1_Click()

Dim X As Single, Y As Single, Z As Single, Rez As Boolean

If Option1.Value Then

X = Val(InputBox("Введите значение первого слагаемого", "Окно ввода"))

Y = Val(InputBox("Введите значение второго слагаемого", "Окно ввода"))

Call Arifm(X, Y, Z)

MsgBox "Сумма равна " & Str$(Z), , "Ответ"

Else

X = Val(InputBox("Введите значение переменной А", "Окно ввода"))

Y = Val(InputBox("Введите значение переменной В ", "Окно ввода"))

Z = Val(InputBox("Введите значение переменной С", "Окно ввода"))

Rez = Logic(X, Y, Z)

MsgBox "Значение логического выражения равно " & Str$(Rez), , "Ответ"

End If

End Sub

Форма проекта имеет вид, показанный на рисунке, и работает аналогично выполненному проекту.

Задание.

1. Прочитать учебный материал. Уметь отвечать на вопросы.

2. Изменить форму в соответствии с нижерасположенным рисунком, а также процедуру

Private Sub Command1_Click() (кнопка Вычислить). Отладить самостоятельно проект

3. Показать работающий проект преподавателю.

Область определения переменных и время жизни переменных

Область определения или видимости переменной (scope of variable) определяет, где и когда переменная может быть распознана. Область определения переменной зависит от того, где переменная o6ъявлена (в процедуре, форме или модуле) и как переменная объявлена (как Public или Private).

Области действия переменной.

	Закрытая	Открытая
Уровня процедуры	Объявляется с использованием ключевых слов: DIM, Static Имеет областью действия только процедуру, в которой она объявлена.	Не применима
Уровня модуля	Объявляется с использованием ключевых слов: DIM, Private в разделе General Declarations модуля или формы Действует во всех процедурах того модуля в котором она объявлена.	Объявляется с использованием ключевых слов: PUBLIC в разделе General Declarations модуля или формы Действует во всех процедурах всех модулей программы.