Технология выполнения

Оператор GoTo имеет следующий синтаксис

Оператор GoTo

Синтаксис

Select Case выражение

Case условие_1

Оператор_1

Case условие_2

Оператор_2

…

Case условие_ N

Оператор_N

[Case Else

Оператор_ N +1

End Select,

где выражение - любое численное или строковое выражение;

условие_1, условие_2, условие_ N – (каждый) представляет список логических выражений, отделенных запятыми;

оператор_1, оператор_2, оператор_ N, оператор_ N +1 - (каждый) представляет один, несколько или ни одного оператора.

В Select Case можно включать столько операторов Case условия, сколько необходимо.

Примечание. Написание неоднострочных операторов в программах производится именно так (в столбец), либо редактор будет выдавать ошибку написания.

Оператор безусловного перехода всегда изменяет порядок выполнения операторов в процедуре или функции vba. При этом vba не проверяет никаких условий, а просто переходит к выполнению кода с другого места.

GoTo метка

Метка – любое обозначение или номер строки в той же процедуре или функции, которая содержит оператор GoTo. При выполнении оператора GoTo VBA немедленно переходит к выполнению оператора в строке, определенной с помощью метки.

Задача

Создать программу, которая, используя инструкцию if … then, выполняет следующие действия: если переменной а присваивается значение больше нуля, то находится сумма чисел а и b, если меньше нуля, то находится произведение. Результат выводится в стандартное диалоговое окно msgbox.

· В документе Операции выделите правой кнопкой мыши папку Modules и выполните команду: Insert + Module.

· В появившемся модуле пропишите программу и запустите на выполнение.

Dim a, b, c As Integer

Sub poradok()

a=-5

b=25

If a > 0 Then

c=a + b

MsgBox (c)

End If

If a < 0 Then

с=a * b

MsgBox (с)

End If

End Sub

В данной программе переменной а присвоено значение меньше нуля, следовательно, должна выполниться нижняя инструкция If.

Результат работы

· Измените программу, поменяв значение а на положительное:

Dim a, b, c As Integer

Sub poradok()

a=5

b=25

If a > 0 Then

c=a + b

MsgBox (c)

End If

If a < 0 Then

c=a * b

MsgBox (c)

End If

End Sub

Примечание. Данную программу можно составить, используя полный блок инструкции If Then Else.

Результат работы

Dim a, b, c As Integer

Sub poradok()

a=5

b=25

If a > 0 Then

c=a + b

MsgBox (c)

Else

c=a * b

MsgBox (c)

End If

End Sub

Дата добавления: 2015-04-24