U

F1

-

P

+

5.2Конструкция If..Then

БVB ЯквнпзслзцдрйЯю рсптйстпЯ бдсбкдмзд пдЯкзжтдсрю р онлншыэ йнмрсптйхзз If..Then, йнснпЯю злддс ркдгтэшзи рзмсЯйрзр:

РспнцмЯю йнмрсптйхзю:

If <Кнвзцдрйнд_бъпЯедмзд> Then <нодпЯснп1> [Else <нодпЯснп2>]

зкз АкнцмЯю йнмрсптйхзю:

If <Кнвзцдрйнд_бъпЯедмзд> Then

[<Акнй нодпЯснпнб1>]

[ElseIf <Кнвзцдрйнд_бъпЯедмзд> Then

[<Акнй нодпЯснпнб2>]]

...

[Else

[<Акнй нодпЯснпнбN>]]

End If

Опзлдп опзлдмдмзю рспнцмни йнмрсптйхзз бдсбкдмзд:

If a=1 Then Msgbox ―a=1‖ Else MsgBox ―a<>1‖

Б опдгрсЯбкдммнл опзлдпд нозръбЯдсрю ркдгтэшзи Яквнпзсл:

+		-
				а=1
Вывести окно						Вывести окно
сообщений с						сообщений с
текстом "а=1"						текстом "а<>1"
				U

Сн дрсы б жЯбзрзлнрсз нс пджткысЯсЯ кнвзцдрйнвн бъпЯедмзю Я=1,

йнснпнд злддс пджткысЯс ЗРСЗМЏ опз жмЯцдмзз одпдлдммни Я пЯбмнл 1 з

КНЕЫ опз жмЯцдмзз гЯммни одпдлдммни 2, нртшдрсбкюдсрю бъонкмдмзд рннсбдсрсбтэшзф йнлЯмг, рннашЯэшзф н пджткысЯсд бъцзркдмзю кнвзцдрйнвн бъпЯедмзю.

СЯйзл напЯжнл йнмрсптйхзю

If a=1 Then Msgbox ―a=1‖ Else MsgBox ―a<>1‖

цзсЯдсрю ркдгтэшзл напЯжнл:

Если кнвзцдрйнд бъпЯедмзд Я=1 злддс жмЯцдмзд зрсзмЯ Тогда бъбдрсз нймн

рннашдмзи р сдйрснл ―a=1‖ Иначе бъбдрсз нймн рннашдмзи р сдйрснл ―a<>1‖.

Опз ьснл цЯрсы йнмрсптйхзз Else (Иначе) юбкюдсрю мд наюжЯсдкымни.

Опз нсртсрсбзз гЯммни цЯрсз йнмрсптйхзз мзйЯйзф гдирсбзи опз жмЯцдмзз кнвзцдрйнвн бъпЯедмзю КНЕЫ мд бъонкмюдсрю, Я нртшдрсбкюдсрю мдлдгкдммъи бъфнг зж йнмрсптйхзз з одпдфнг й ркдгтэшди жЯ мди рспнйд.

АкнцмЯю йнмрсптйхзю онжбнкюдс нозръбЯсы онркдгнбЯсдкымнрсз гдирсбзи, бъонкмюдлъд опз рннсбдсрсбтэшзф жмЯцдмзюф кнвзцдрйнвн бъпЯедмзю.

АкнцмЯю йнмрсптйхзю сЯйед онжбнкюдс нозръбЯсы бкнедммъд Яквнпзслзцдрйзд йнмрсптйхзз бдсбкдмзю р онлншыэ нохзнмЯкымни цЯрсз йнмрсптйхзз ElseIf (Иначе Если).

НжмЯйнлысдры р опзлдпнл зронкыжнбЯмзю акнцмни йнмрсптйхзз бдсбкдмзю:

If a=1 Then

R = a * 2

Msgbox ―R = a * 2 = ‖ & R

ElseIf a>=2 And a < 5 Then

R = a + 2

Msgbox ―R = a + 2 = ‖ & R

Else

Msgbox ―R = a = ‖ & Я

End If

Б опдгрсЯбкдммнл опзлдпд нозрЯм ркдгтэшзи Яквнпзсл:

+

-

а=1

+

-

a>=2 и а<=5

Присвоить

Присвоить

переменной R

переменной R

значение

значение

выражения a*2

выражения a*2

Вывести окно

Вывести окно

Вывести окно

сообщений со

сообщений со

сообщений со

значением

значением

значением

переменной R

переменной R

переменной a

U

U

Он гЯммнлт Яквнпзслт нртшдрсбкюдсрю бъанп нгмнвн зж спдф

нозрЯммъф бЯпзЯмснб бъонкмюдлъф б рннсбдсрсбтэшзф рктцЯюф.

5.3 Конструкция Select … Case

Йнмрсптйхзю Select … Case опдгмЯжмЯцдмЯ гкю пдЯкзжЯхзз ркнемъф Яквнпзслнб бдсбкдмзю, вгд нртшдрсбкюдсрю бъанп нгмнвн зж мдрйнкыйзф бЯпзЯмснб зронкмдмзю. Б рннсбдсрсбзз рн рбнзл мЯжмЯцдмздл йнмрсптйхзю онктцзкЯ мЯжбЯмзд – Конструкция Выбора.

Йнмрсптйхзю злддс ркдгтэшзи рзмсЯйрзр:

Select Case <Сдрснбнд_БъпЯедмзд>

[Case <Розрнй_Опнбдпнцмъф_БъпЯедмзи1>

[<Акнй нодпЯснпнб1>]]

[Case <Розрнй_Опнбдпнцмъф_БъпЯедмзи2>

[<Акнй нодпЯснпнб2>]]

...

[Case Else

[<Акнй нодпЯснпнбN>]]

End Select

вгд <Розрнй_Опнбдпнцмъф_БъпЯедмзи>:

Лнедс аъсы жЯгЯм розрйнл ькдлдмсъ йнснпнвн нозръбЯэсрю:

тйЯжЯмздл жмЯцдмзю, мЯопзлдп 11;

тйЯжЯмздл змсдпбЯкЯ жмЯцдмзи, мЯопзлдп 1 To 4;

тйЯжЯмздл кнвзцдрйнвн бъпЯедмзю, б йнснпнл жмЯцдмзд сдрснбнвн бъпЯедмзю рпЯбмзбЯдсрю рн жмЯцдмздл тйЯжЯммнвн бъпЯедмзю. Гкю

рръкйз мЯ жмЯцдмзд сдрснбнвн бъпЯедмзю жгдры зронкыжтдсрю йкэцдбнд ркнбн Is. Опзлдп: Is > MaxNumber.

Опзлдпъ розрйнб опнбдпнцмъф бъпЯедмзи:

2 – розрнй рнрснзс зж нгмнвн ькдлдмсЯ тйЯжЯммнвн жмЯцдмздл 2; 2, 4 Сн 9 – розрнй рнгдпезс гбЯ ькдлдмсЯ: жмЯцдмзд з змсдпбЯк.

ПЯррлнспзл опзлдп зронкыжнбЯмзю йнмрсптйхзз бъанпЯ,

рннсбдсрсбтэшзи онркдгмдлт опзлдпт гкю йнмрсптйхзз бдсбкдмзю: