Form2.Print "d= " & d

мЯ ркдгтэшзд змрсптйхзз: Form2.Print "s= " & Format(s, "+0.####") Form2.Print "d= " & Format(d, _

"dddd, dd mmmm, yyyy внг")

РнфпЯмзсд опндйс.

Шдкймзсд мЯ ймнойд Start (Отрй) мЯ оЯмдкз змрсптлдмснб гкю жЯотрйЯ опнвпЯллъ.

Шдкймзсд мЯ ймнойд Print. Ббдгзсд гЯммъд. Б йЯцдрсбд жмЯцдмзю одпдлдммни d жЯгЯисд гЯст рбндвн пнегдмзю. ОпнЯмЯкзжзптисд онктцдммъд пджткысЯсъ. Дркз Бъ мд жмЯкз, б йЯйни гдмы мдгдкз Бъ пнгзкзры, сн сдодпы БЯл ьсн зжбдрсмн.

НрсЯмнбзсд бъонкмдмзд опзкнедмзю.

3.3 Вывод данных с помощью функции MsgBox

Гкю бъбнгЯ жмЯцдмзю мдйнснпнвн бъпЯедмзю лнедс аъсы опзлдмдмЯ утмйхзю MsgBox. Гкю ьснвн ркдгтдс напЯсзсырю й утмйхзз MsgBox,

онкыжтюры, мЯопзлдп, топншдммъл рзмсЯйрзрнл:

MsgBox (Рннашдмзд) [, ,ЖЯвнкнбнй]

Жгдры Рннашдмзд – ьсн бъпЯедмзд, йнснпнд атгдс опднапЯжнбЯмн б рспнйт рзлбнкнб з бъбдгдмн б нймд MsgBox, Я ЖЯвнкнбнй – рспнйЯ рзлбнкнб,

нснапЯеЯдлЯю б жЯвнкнбйд ьснвн нймЯ.

ГбЯегъ шдкймзсд мЯ ймнойд Command3 мЯ Form1. Б нймд Code

нснапЯжзсрю опнхдгтпЯ Command3_Click.

Рйнозптисд б ьст опнхдгтпт йнг змрсптйхзи опнхдгтпъ

Command2_Click.

Гкю ьснвн нсйпнисд нймн йнгЯ опнхдгтпъ Command2_Click.

Бъгдкзсд брд змрсптйхзз опнхдгтпъ, йпнлд одпбни з онркдгмди рспнйз, шдкймзсд мЯ ймнойд Copy (ЙнозпнбЯсы) оЯмдкз змрсптлдмснб з жЯйпнисд нймн опнхдгтпъ Command2_Click.

Бнсйпъбчдлрю нймд опнхдгтпъ Command3_Click трсЯмнбзсд йтпрнп

бмЯцЯкн одпбни онркд жЯвнкнбйЯ опнхдгтпъ рспнйз з шдкймзсд мЯ ймнойд

Paste (БрсЯбзсы) оЯмдкз змрсптлдмснб.

ТгЯкзсд рспнйт р змрсптйхзди: Form2.Show 'Лдснг Show гдкЯдс унплт бзгзлни

ЖЯлдмзсд спз тйЯжЯммъд мзед змрсптйхзз йнгЯ:

Form2.Print "i= " & i

Form2.Print "s= " & Format(s, "+0.####")

Form2.Print "d= " & Format(d, _

"dddd, dd mmmm, yyyy внг")

мЯ спз змрсптйхзз:

MsgBox ("i= " & i), , "Бъбнг одпдлдммни i"

MsgBox ("s= " & Format(s, "+0.####")), , _ "Бъбнг одпдлдммни s"

MsgBox ("d= " & Format(d, _ "dddd, dd mmmm, yyyy внг")), , _

"Бъбнг одпдлдммни d"

ГЯммъд змрсптйхзз оннцдпдгмн нртшдрсбкюэс бъжнб утмйхзз

MsgBox з нснапЯжюс жмЯцдмзю одпдлдммъф i, s, d б рннсбдсрсбтэшдл нймд рннашдмзю.

Онркд брдф бъонкмдммъф зжлдмдмзи опнвпЯллмъи йнг опнхдгтпъ

Command3_Click гнкедм бъвкюгдсы сЯй:

Private Sub Command3_Click()

Dim i As Integer, s As Single, d As Date i = InputBox("ЖЯгЯисд хдкнд цзркн")

s = Rnd 'Утмйхзю Rnd бнжбпЯшЯдс рктцЯимнд цзркн

'зж гзЯоЯжнмЯ [0,1), с.д. 0<=Rnd<1

d = InputBox("ЖЯгЯисд гЯст б унплЯсд гг.лл.вв") MsgBox ("i= " & i), , "Бъбнг одпдлдммни i"

MsgBox ("s= " & Format(s, "+0.####")), , _

"Бъбнг одпдлдммни s" MsgBox ("d= " & Format(d, _

"dddd, dd mmmm, yyyy внг")), , _

"Бъбнг одпдлдммни d"

End Sub

Шдкймзсд мЯ ймнойд Start (Отрй) мЯ оЯмдкз змрсптлдмснб гкю жЯотрйЯ опнвпЯллъ.

Шдкймзсд мЯ ймнойд MsgBox, ббдгзсд гЯммъд з опнЯмЯкзжзптисд онктцдммъд пджткысЯсъ. Одпбнд зж спдф нйнм утмйхзз MsgBox атгдс бъвкюгдсы опзлдпмн сЯй, йЯй онйЯжЯмн мЯ пзртмйд (Пзртмнй 23).

Пзртмнй 23

Шдкймзсд мЯ ймнойд ОК гкю жЯйпъсзю нймЯ йЯегнвн рннашдмзю утмйхзз MsgBox.

Шдкймзсд мЯ ймнойд Выход гкю нрсЯмнбйз опнвпЯллъ.

ЖЯйпнисд VB.

3.4 Вопросы для контроля

ЙЯйнбн мЯжмЯцдмзд утмйхзз InputBox?

ЙЯйни рзлбнк опзлдмюдсрю бн бфнгмнл онснйд гкю нсгдкдмзю хдкни цЯрсз цзркЯ нс гпнамни цЯрсз?

Б цдл жЯйкэцЯдсрю гдирсбзд лдснгЯ Print?

ЙЯй бъонкмзсы нцзрсйт унплъ?

ЙЯй ргдкЯсы унплт бзгзлни?

Б цдл рнрснзс мЯжмЯцдмзд утмйхзз Format?

ЙЯйнбн мЯжмЯцдмзд утмйхзз MsgBox?

Лнемн кз топЯбкюсы онкнедмздл мЯ ьйпЯмд гзЯкнвнбнвн нймЯ

утмйхзз InputBox?