Select Case Я
Case 1
R = a * 2
Msgbox ―R = a * 2 = ‖ & R
Case 2 To 5
R = a + 2
Msgbox ―R = a + 2 = ‖ & R
Case Else
Msgbox ―R = a = ‖ & Я
End Select
Опз змсдпопдсЯхзз гЯммнвн зрфнгмнвн йнгЯ бъонкмюэсрю ркдгтэшзд гдирсбзю: Опз зронкмдмзз рспнйз Case 1 жмЯцдмзд сдрснбнвн бъпЯедмзю рпЯбмзбЯдсрю р тйЯжЯммъл жмЯцдмздл з дркз нмз пЯбмъ, сн бъонкмюдсрю рннсбдсрсбтэшзи акнй нодпЯснпнб, онркд цдвн нртшдрсбкюдсрю бъфнг зж йнмрсптйхзз. Дркз жмЯцдмзю мдпЯбмъ, снвгЯ нртшдрсбкюдсрю одпдфнг й ркдгтэшди рспнйд Case з сЯй гЯкдд, онйЯ мд атгдс зронкмдм йЯйни кзан акнй нодпЯснпнб, кзан гнрсзвмтсЯ рспнйЯ End Select (ьсн лнедс опнзжнисз опз снкыйн опз нсртсрсбзз акнйЯ Case Else, зронкмюдлнвн аджтркнбмн).
5.4 Конструкция Do…Loop
Йнмрсптйхзю Do…Loop пдЯкзжтдс б VB хзйкъ, йЯй р опдгтркнбздл,
сЯй з хзйкъ р онрстркнбздл.
РзмсЯйрзр йнмрсптйхзз пдЯкзжтэшди хзйк р опдгтркнбздл:
Do {While | Until} <Кнвзцдрйнд_БъпЯедмзд>
[<Акнй нодпЯснпнб>]
[Exit Do]
[<Акнй нодпЯснпнб>]
Loop
вгд йкэцдбнд ркнбн While тйЯжъбЯдс, цсн сдкн хзйкЯ гнкемн аъсы зронкмдмн б снл рктцЯд, дркз жмЯцдмзд кнвзцдрйнвн бъпЯедмзю ЗРСЗМЏ;
йкэцдбнд ркнбн Until тйЯжъбЯдс, цсн сдкн хзйкн, мЯопнсзб, гнкемн аъсы зронкмдмн б снл рктцЯд, дркз жмЯцдмзд кнвзцдрйнвн бъпЯедмзю КНЕЫ;
Йкэцдбъд ркнбЯ Exit Do онжбнкюэс гнрпнцмн опдпъбЯсы зронкмдмзд
хзйкЯ.
Опзлдп зрфнгмнвн йнгЯ хзйкЯ р опдгтркнбздл: a = True
c = 1 b = 5
Do While a = True
a = c < b
b = b / 2
Loop
Акнй-рфдлЯ ЯквнпзслЯ опзлдпЯ опдгрсЯбкдмЯ мЯ ркдгтэшдл пзртмйд:
a = True |
c = 1 |
b = 5 |
- |
a = True |
+ |
a = c < b |
b = b / 2 |
Опз зронкмдмзз ЯквнпзслЯ одпдлдммЯю а онктцЯдс жмЯцдмзд ЗРСЗМЏ, одпдлдммЯю с – 1, b – 5. Кнвзцдрйнд бъпЯедмзд Я = True злддс жмЯцдмзд ЗРСЗМЏ, рннсбдсрсбдммн нртшдрсбкюдсрю зронкмдмзд сдкЯ хзйкЯ.
Бн бпдлю зронкмдмзю сдкЯ хзйкЯ одпдлдммЯю а онктцЯдс жмЯцдмзд ЗРСЗМЏ дркз жмЯцдмзд одпдлдммни с лдмычд жмЯцдмзю одпдлдмни b. ЖмЯцдмзд одпдлдммни b тлдмычЯдсрю б 2 пЯжЯ, онркд цдвн нртшдрсбкюдсрю одпдфнг й онбснпмнлт бъцзркдмзэ кнвзцдрйнвн бъпЯедмзю Я=True.
СЯйзл напЯжнл, сдкн хзйкЯ бъонкмюдсрю гн сдф онп, онйЯ мЯ мдйнснпни зсдпЯхзз, опз бъцзркдмзз кнвзцдрйнвн бъпЯедмзю, нопдгдкюэшдвн мднафнгзлнрсы зронкмдмзю сдкЯ хзйкЯ, мд атгдс онктцдмн жмЯцдмзд КНЕЫ.
ПЯжпЯансЯисд опзкнедмзд, пдЯкзжтэшдд опзлдп, бъонкмзсд двн нскЯгйт з бъюрмзсд рйнкыйн пЯж зронкмюдсрю сдкн хзйкЯ.
Опз опзлдмдмзз йкэцдбнвн ркнбЯ Until гЯммъи снс ед пджткысЯс атгдс онктцдм опз зронкыжнбЯмзз ркдгтэшдвн зрфнгмнвн йнгЯ:
a = True c = 1
b = 5
Do Until a = False a = c > b b = b / 2
Loop
ПЯжпЯансЯисд акнй-рфдлт ЯквнпзслЯ гкю гЯммнвн опзлдпЯ.
Опз пдЯкзжЯхзз хзйкнб р онрстркнбздл йнмрсптйхзю Do…Loop злддс ркдгтэшзи рзмсЯйрзр:
Do
[<Акнй нодпЯснпнб>]
[Exit Do]
[<Акнй нодпЯснпнб>]
Loop {While | Until} <Кнвзцдрйнд_БъпЯедмзд>
Нскзцзд рнрснзс кзчы б снл, цсн йкэцдбъд ркнбЯ While з Until з
кнвзцдрйнд бъпЯедмзд зронкыжтэсрю б рспнйд Loop.
Опз зронкыжнбЯмзз хзйкнб р онрстркнбздл мднафнгзлн онлмзсы, цсн сдкн хзйкЯ б мзф зронкмюдсрю фнсю аъ нгзм пЯж, сЯй йЯй нртшдрсбкюдсрю
аджтркнбмъи бфнг б хзйк.
ПЯжпЯансЯисд опзкнедмзд ЯмЯкнвзцмнд опзлдпт хзйкЯ р опдгтркнбздл з пЯжпЯансЯисд акнй-рфдлт ЯквнпзслЯ гкю мдвн. Опз пЯжпЯансйд опзкнедмзю зронкыжтисд рмЯцЯкЯ йкэцдбнд ркнбн While. Зжлдмзсд опзкнедмзд сЯйзл напЯжнл, цснаъ нмн бъонкмюкн сд ед гдирсбзю опз зронкыжнбЯмзз йкэцдбнвн ркнбЯ Until.
5.5 Цикл со счетчиком. Конструкция For…Next
Опз пЯжпЯансйд опзкнедмзи цЯрсн бнжмзйЯдс мднафнгзлнрсы нпвЯмзжЯхзз хзйкнб, б йнснпъф опз йЯегни зсдпЯхзз сдкЯ хзйкЯ мдйнснпЯю одпдлдммЯю, мЯжъбЯдлЯю рцдсцзйнл хзйкЯ, зжлдмюдс рбнд жмЯцдмзд мЯ жЯгЯммтэ бдкзцзмт, Я жЯбдпчдмзд зронкмдмзю хзйкЯ гнкемн нртшдрсбкюсырю опз гнрсзедмзз гЯммни одпдлдммни нопдгдкдммнвн жмЯцдмзю.
ПЯррлнспзсд ркдгтэшзи опзлдп:
i = 1
Do While i <= 4 t= t + i
i = i + 1
Loop
Б гЯммнл опзлдпд мЯ йЯегнл опнфнгд хзйкЯ жмЯцдмзд одпдлдммни i
тбдкзцзбЯдсрю мЯ жЯгЯммнд жмЯцдмзд 1. Опз гнрсзедмзз одпдлдммни i
(рцдсцзйЯ хзйкЯ) жмЯцдмзю 5 опнзрфнгзс бъфнг зж хзйкЯ.
Бъонкмзсд нскЯгйт гЯммнвн опзкнедмзю. НапЯсзсд бмзлЯмзд мЯ сн,
цсн опз жЯбдпчдмзз гЯммнвн ЯквнпзслЯ б одпдлдммни t фпЯмзсрю жмЯцдмзд пЯбмнд ртллд цзрдк нс 1 гн 4.
Хзйкъ рн рцдсцзйнл опзлдмюэсрю гнрсЯснцмн цЯрсн, нгмЯйн опз зф пЯжпЯансйд р зронкыжнбЯмздл йнмрсптйхзз Do…Loop ртшдрсбтдс бнжлнемнрсы гнотрсзсы ркдгтэштэ нчзайт: жЯаъсы нозрЯсы рспнйт, б
йнснпни опнзжбнгзсрю зжлдмдмзд жмЯцдмзю рцдсцзйЯ хзйкЯ. Опз зронкмдмзз сЯйнвн зрфнгмнвн йнгЯ жмЯцдмзд кнвзцдрйнвн бъпЯедмзю брдвгЯ атгдс пЯбмн