3 Ввод и вывод значений переменных
Гкю ббнгЯ жмЯцдмзю одпдлдммни лнемн бнронкыжнбЯсырю утмйхзди р злдмдл InputBox. НмЯ бъбнгзс мЯ ьйпЯм гзЯкнвнбнд нймн, рнгдпеЯшдд рннашдмзд з онкд ббнгЯ, бнжбпЯшЯдс жмЯцдмзд сзоЯ String, рнгдпеЯшдд сдйрс,
ббдгдммъи б онкд ббнгЯ.
Топншдммъи рзмсЯйрзр напЯшдмзю й утмйхзз:
InputBox(Рннашдмзд[,ЖЯвнкнбнй])
Тьсни утмйхзз одпбъи ркдбЯ Япвтлдмс наюжЯсдкымъи, Я брд нрсЯкымъд
–мднаюжЯсдкымъд. МЯжмЯцдмзд Япвтлдмснб:
рннашдмзд – бъпЯедмзд сзоЯ String, нснапЯеЯдлнд б гзЯкнвнбнл
нймд;
жЯвнкнбнй – бъпЯедмзд сзоЯ String, нснапЯеЯдлнд б рспнйд жЯвнкнбйЯ гзЯкнвнбнвн нймЯ.
3.1 Ввод данных с помощью функции InputBox
РнжгЯисд пЯанцтэ оЯойт, б йнснпни атгдс фпЯмзсырю пЯжпЯаЯсъбЯдлъи БЯлз опндйс.
ЖЯотрсзсд VB з рнфпЯмзсд опндйс б пЯанцди оЯойд. Опз ьснл рнфпЯмзсд унплт онг злдмдл Form1, опндйс - онг злдмдл Project1.
ПЯжлдрсзсд мЯ унплд Form1 бнрдлы нащдйснб, йЯй ьсн зжнапЯедмн мЯ пзртмйд (Пзртмнй 20).
Пзртмнй 20 - Онкнедмзд нащдйснб
Жгдры опдгонкЯвЯдсрю ркдгтэшдд мЯжмЯцдмзд нащдйснб:
мЯгозры Label1 опдгмЯжмЯцдмЯ гкю пЯжлдшдмзю змунплЯхзз на зронкмзсдкюф жЯгЯмзю;
Label2, Label3, Label4 – нснапЯеЯэс пджткысЯсъ;
шдкцнй мЯ ймнойЯф Command1, Command2, Command3 опзбдгдс й бъонкмдмзэ рннсбдсрсбтэшзф рнаъсзимъф опнхдгтп;
шдкцнй мЯ ймнойд Command4 атгдс нжмЯцЯсы опдйпЯшдмзд бъонкмдмзю опндйсЯ.
ЖЯгЯисд жмЯцдмзю рбнирсб сЯйзлз, цснаъ унплЯ опзнапдкЯ бзг, онйЯжЯммъи
ркдгтэшдл пзртмйд (
Пзртмнй 21).
Пзртмнй 21 - Бзг унплъ
РнфпЯмзсд опндйс.
ГбЯегъ шдкймзсд мЯ ймнойд Выход. Б онюбзбчдлрю нймд йнгЯ атгдс нснапЯедмЯ опнхдгтпЯ Command4_Click. Ббдгзсд змрсптйхзэ End гкю
опдйпЯшдмзю бъонкмдмзю опнвпЯллъ. Онркд ьснвн опнвпЯллмъи йнг опнхдгтпъ гнкедм бъвкюгдсы сЯй:
Private Sub Command4_Click()
End
End Sub
ГбЯегъ шдкймзсд мЯ ймнойд InputBox. Б онюбзбчдлрю нймд йнгЯ атгдс нснапЯедмЯ опнхдгтпЯ Command1_Click.
Ббдгзсд нодпЯснпъ гкю нозрЯмзю гбтф одпдлдммъф з бъжнбЯ утмйхзз
InputBox:
Dim ОнгрйЯжйЯ, ОнкмндЗлю
ОнгрйЯжйЯ = "ОнеЯктирсЯ, ббдгзсд БЯчд злю"
ОнкмндЗлю = InputBox(ОнгрйЯжйЯ) Label2.Caption = ОнкмндЗлю
Бъ нащюбзкз р онлншыэ змрсптйхзз Dim гбд одпдлдммъд ОнгрйЯжйЯ з ОнкмндЗлю (сзо одпдлдммъф юбмн мд тйЯжЯм, ркдгнбЯсдкымн, нащюбкдм он тлнкцЯмзэ, Я он тлнкцЯмзэ VB мЯжмЯцЯдс сзо Variant). Бн бснпни рспнйд одпдлдммни ОнгрйЯжйЯ опзрбЯзбЯдсрю сдйрснбЯю йнмрсЯмсЯ. Б ркдгтэшди рспнйд бъжъбЯдсрю утмйхзю InputBox. Опз бъонкмдмзз ьсЯ утмйхзю бъбнгзс гзЯкнвнбнд нймн р жЯопнрнл-онгрйЯжйни мЯ ббнг гЯммъф онкыжнбЯсдкдл
(Пзртмнй 22).
Пзртмнй 22 - Нймн утмйхзз InputBox
ЖмЯцдмзд ЯпвтлдмсЯ утмйхзз InputBox (б гЯммнл рктцЯд – одпдлдммни ОнгрйЯжйЯ) бъбдгдмн б бзгд жЯопнрЯ-онгрйЯжйз б нймд утмйхзз InputBox.
ЖмЯцдмздл утмйхзз InputBox атгдс рспнйЯ рзлбнкнб, йнснптэ онкыжнбЯсдкы
мЯадпдс б онкд нймЯ утмйхзз InputBox. Ьсн бнжбпЯшЯдлнд жмЯцдмзд утмйхзди InputBox б спдсыди рспнйд йнгЯ опзрбЯзбЯдсрю одпдлдммни ОнкмндЗлю. Цдсбдпсъи нодпЯснп жмЯцдмзд одпдлдммни ОнкмндЗлю опзрбЯзбЯдс рбнирсбт Caption мЯгозрз Label2.
РнфпЯмзсд опндйс.
Щелкните на кнопке Start (Отрй) мЯ оЯмдкз змрсптлдмснб гкю жЯотрйЯ опнвпЯллъ. ОпнвпЯллЯ атгдс жЯотшдмЯ.
Шдкймзсд мЯ ймнойд InputBox. VB мЯцмдс бъонкмюсы опнхдгтпт
Command1_Click, з мЯ ьйпЯмд онюбзсрю гзЯкнвнбнд нймн зжнапЯедммнвн бъчд жЯопнрЯ-онгрйЯжйз.
Ббдгзсд БЯчд злю з нсцдрсбн, жЯсдл шдкймзсд мЯ ймнойд ОК.
Утмйхзю InputBox бнжбпЯшЯдс опнвпЯллд мЯапЯммтэ БЯлз рспнйт рзлбнкнб,
жмЯцдмзд йнснпни опзрбЯзбЯдсрю одпдлдммни ОнкмндЗлю. ЖЯсдл опнвпЯллЯ нснапЯеЯдс жмЯцдмзд одпдлдммни ОнкмндЗлю б онкд мЯгозрз Label2.
Шдкймзсд мЯ ймнойд Выход гкю нрсЯмнбйз опнвпЯллъ.
Р онлншыэ утмйхзз InputBox лнвтс аъсы жЯгЯмъ жмЯцдмзю цзркнбъл одпдлдммъл. Гнонкмзсд йнг опнхдгтпъ Command1_Click:
Private Sub Command1_Click()
Dim ОпзвкЯчдмзд, ОнкмндЗлю
Dim i As Integer, s As Single
ОпзвкЯчдмзд = "ОнеЯктирсЯ, ббдгзсд БЯчд злю!"
ОнкмндЗлю = InputBox(ОпзвкЯчдмзд) Label2.Caption = ОнкмндЗлю
i = InputBox("ЖЯгЯисд жмЯцдмзд i") 'Б ьсни змрсптйхзз
'бъонкмюдсрю опднапЯжнбЯмзд бнжбпЯшЯдлни
'утмйхзди InputBox рспнйз рзлбнкнб
'б хдкнд цзркн
Label3.Caption = "i=" & i
s = InputBox("ЖЯгЯисд жмЯцдмзд s")