Bu o'rnatilgan InputBox, MsgBox funktsiyalari yordamida amalga oshiriladi. muayyan ob'ektlarning ma'lum xususiyatlarini o'zgartirish yoki ularga mos usullarni qo'llash orqali.

Ma'lumotlarni kiritish

O'zgaruvchan qiymatlarni kiritish mumkin:

Funktsiyadan foydalanishInputBox, bu dastur ishga tushganda o'z oynasini ko'rsatadi. InputBox funksiyasi tomonidan qaytarilgan qiymat string tipiga ega. Shuning uchun kiritilgan qiymatni raqamli o'zgaruvchi sifatida ishlatish uchun Val funksiyasidan foydalanib, uni qo'shimcha ravishda raqamli turga aylantirish kerak. Masalan, o'zgaruvchiga 5.25 qiymatini kiritish uchun quyidagi kod qatorini yozish kerak:

a = Val(InputBox("Enter a", "Input"))

2) Matn qutisidan foydalanishTextBox. Shakl matnli oynaga ega bo'lishi kerak, masalan, Text1 va voqea protsedurasida, masalan, buyruq tugmachasini bosish uchun, Text1 ob'ektining matn xususiyatidan foydalanadigan dastur kodi yozilishi kerak:

Shaxsiy pastki buyruq1_Click()

a = Val(Matn1.matn)

Text1 obyektining matn xossasi ham satr qiymatiga ega, shuning uchun uni Val funksiyasi yordamida raqamli qiymatga aylantirish kerak.

Natijalarni chiqarish

VBda natijalarni chiqarishning turli usullari mavjud.

VB tilida o'zgaruvchilar qiymatlarini chop etishning asosiy operatori Print operatori bo'lib, u ob'ektga yo'naltirilgan dasturlash nuqtai nazaridan hisoblanadi. usuli, ro'yxatda ko'rsatilgan qiymatlar chiqariladigan ob'ektga ta'sir qiladi. Chop etish usuli mavjud bo'lgan asosiy ob'ektlar Form va grafik oynasiPictureBox hisoblanadi.

Agar Chop etish usuli qo'llaniladigan ob'ekt ko'rsatilmagan bo'lsa, u holda qiymatlar ro'yxati faol shaklda ko'rsatiladi. Masalan, kod qatorini bajargandan so'ng:

O'zgaruvchining qiymatini MsgBox funksiyasidan foydalanib ko'rsatishingiz mumkin, u bajarilganda ekranda o'z xabarlar oynasini faollashtiradi.

Shaxsiy pastki buyruq1_Click()

Chiqish matn xususiyatini o'zgartirish orqali TextBoxga formatlanishi mumkin

Text1.text=str(a)

Shuni esda tutish kerakki, Text xossasi belgilar qatori bilan ishlaydi, shuning uchun chiqish raqami str funksiyasi yordamida belgilar qatoriga aylantiriladi.

Chiqishni Yorliqda uning Caption xususiyatini o'zgartirish orqali formatlash mumkin:

Label1.Caption="Natija" va str(a)

& (+) belgisi ikki qator oʻzgaruvchilarining birlashuvini bildiradi.

Formatlash funktsiyasi

Natijalarni ko'rsatishda aniqroq bo'lishi uchun ko'pincha Format funksiyasidan foydalaniladi, u format tavsifida ko'rsatilgan ko'rsatmalarga muvofiq formatlangan ifodani o'z ichiga olgan Variant (String) tipidagi qiymatni qaytaradi.

Sintaksis

Format (Ifoda[, Format[, BirinchiDayOfWeek[, FirstWeekOfYear]]])

Ifoda - talab qilinadigan argument - formatlanadigan har qanday to'g'ri ifoda.

Format - ixtiyoriy argument - har qanday yaroqli nomli yoki foydalanuvchi tomonidan belgilangan format ifodasi (format namunasi).

Format naqshini ko'rsatmasdan raqamlarni formatlashda Format funktsiyasi Str funktsiyasi bilan bir xil natijani beradi, ya'ni. raqamni ifodalovchi qatorni qaytaradi. Farqi shundaki, musbat sonni Format funksiyasidan foydalangan holda konvertatsiya qilganda satr boshidagi boʻsh joy (raqam belgisi oʻrnida) yoʻqoladi, lekin Str funksiyasi yordamida oʻzgartirilganda u qoladi.

Maxsus raqam formatlarini yaratish uchun foydalaniladigan format shablonlariga misollar

Chop etish Format(6.789, "00.0000") " 06.7890ni qaytaradi

Chop etish Format(6.789, "##.0000") " 6.7890 ni qaytaradi

Usul Hujayralar belgilangan katakchani faol qiladi. Usulning sintaksisi quyidagicha:

Hujayralar[(N qator, N ustun)]

N qator - joriy Excel varaqining qator raqami ,

N ustun - joriy Excel varaqining ustun raqami (ushbu usulni chaqirganda, ustunlar raqamlangan).

IN bu variant sintaksis faol varaqda ekanligini taxmin qiladi Excel hujayrasi, chorrahada joylashgan N qator Va N ustun, faollashadi.

Usuldan foydalanish Hujayralar Keyin ma'lumotlarni kiritishingiz yoki chiqarishingiz uchun hujayrani faollashtirishingiz mumkin.

Agar bu usul qo'llanilsa ma'lumotlarni kiritish ish varag'i yacheykasidan o'zgaruvchiga, keyin Hujayralar tayinlash operatorining o'ng tomonida turadi va agar amalga oshirilsa xulosa o'zgaruvchidan ishchi varaq hujayrasiga, keyin Hujayralar uning chap tomonida turadi.

Kirish tuzilishi, usuli yordamida Hujayralar Keyingisi:

< Ism>= Hujayralar ( ),

< Ism> - oddiy o'zgaruvchi yoki massiv elementi.

Chiqish tuzilishi usuli yordamida Hujayralar Keyingisi:

Hujayralar( )= < ifoda>,

< ifoda> - har qanday chiqish qiymati.

Keling, bir misolni ko'rib chiqaylik keyingi dastur:

Sub input_output_Cells()

Hujayralar (5, 1) = "c="

Ushbu makrosni ishga tushirishdan oldin, ishlaydi Excel varag'i(13-rasmga qarang):

Va makrosni ishga tushirgandan so'ng, u quyidagicha ko'rinadi (14-rasmga qarang):

VBA boshqaruv tuzilmalari. Shartli operator. Operator shartsiz o'tish

Nazorat tuzilmalari dasturni bajarish ketma-ketligini nazorat qilish imkonini beradi. Boshqarish operatorlarisiz barcha dastur operatorlari chapdan o'ngga va yuqoridan pastga bajariladi. Keling, VBA boshqaruv tuzilmalaridan birini ko'rib chiqaylik - shartli operator .

Shartli operator ba'zi bir shartning qiymatiga qarab bir yoki bir guruh operatorlarni bajarish zarur bo'lganda qo'llaniladi.

Shartli bayonot sintaksisi:

Qisqa shakl Þ Agar<условие>Keyin<оператор>

Agar< условие >Keyin

< оператор > /< Группа операторов 1 >

To'liq shakl Þ Agar< условие >Keyin

< оператор 1 > / < Группа операторов 1 >

< оператор 2> < Группа операторов 2 >

Blok diagrammada shartli operator quyidagicha tasvirlangan:

Odatda shart oddiy taqqoslashdir, lekin u hisoblangan qiymatga ega har qanday ifoda bo'lishi mumkin. Agar u null bo'lsa, bu qiymat False deb talqin qilinadi va har qanday null bo'lmagan qiymat True deb hisoblanadi. Agar shart rost bo'lsa, keyin barcha ifodalar kalit so'z Keyin. Agar shart noto'g'ri bo'lsa, kalit so'zdan keyingi barcha ifodalar bajariladi Boshqa.

Agar kerak bo'lsa, shuncha ko'p darajaga ega bo'lgan bir nechta uyali tuzilmalarga ruxsat beriladi.

Boshqasini ko'rib chiqing nazorat tuzilmasi - shartsiz o'tish operatori. Uning sintaksisi:

O'tish yorliq,

Qayerda yorliq – bu har qanday belgilar kombinatsiyasi.

Ushbu bayonot dasturning bajarilish ketma-ketligini o'zgartirishga majbur qiladi. GoTo operatori boshqaruvni teg bilan operatorga o'tkazadi, ya'ni. GoTo bayonotidan so'ng, yorliqda ko'rsatilgan bayonot bajariladi.

VBA boshqaruv tuzilmalari. Loop operatorlari.

Ba'zan avtomatik ravishda ko'rsatmalar to'plamini qayta-qayta bajarishingiz kerak yoki ish vaqtida foydalanuvchi tomonidan ko'rsatilgan o'zgaruvchilar yoki parametrlarning qiymatiga qarab muammoni boshqacha hal qilishingiz kerak. Buning uchun shartli operator va sikl operatorlari qo'llaniladi.

Keling, VBA tsikli bayonotlarini ko'rib chiqaylik. Takrorlashlar soni ma'lum bo'lgan tsikl operator yordamida VBA da amalga oshirilgan (parametrli tsikl). Keyingi uchun quyidagi tuzilma:

Uchun<параметр цикла>= <начальное значение>Kimga<конечное значение>

<VBA bayonotlari>

Keyingisi<параметр цикла>

<параметр цикла>- sikl parametrining nomi (identifikatori);

<начальное значение> – sikl parametrining dastlabki qiymati;

<конечное значение>– sikl parametrining yakuniy qiymati;

<шаг>– sikl parametrini o‘zgartirish bosqichi (ixtiyoriy parametr, agar u yo‘q bo‘lsa, o‘zgartirish bosqichi 1);

<операторы VBA>

Blok diagrammada ushbu operator quyidagicha tasvirlangan:

Ushbu tsiklning tanasida siz operatordan foydalanishingiz mumkin Chiqish uchun, bu bilan siz tsiklni tugatishingiz mumkin Keyingi uchun parametr yakuniy qiymatini olishdan oldin.

Noma'lum sonli takroriy tsikllar VBA da Do While... Loop, Do Until... Loop, Do... Loop While, Do... Loop Until operatorlari yordamida amalga oshiriladi.

Do While... Loop operatorining tuzilishini ko‘rib chiqamiz.

Do while<условие>

<операторы VBA>

Bu yerga <условие> – mantiqiy ifoda;

<операторы VBA> - Loop tanasini amalga oshiradigan VBA bayonotlari.

<условие>, Agar<условие>True qiymatini oladi, keyin Loop xizmat so'ziga qadar operatorlar bajariladi. Keyin shart yana tekshiriladi va bu shart noto'g'ri bo'lguncha davom etadi.

Do Until... sikl operatorining tuzilishini ko‘rib chiqamiz.

Ungacha qiling<условие>

<операторы VBA>

Operator quyidagi tarzda bajariladi. Tekshirildi<условие>, Agar<условие>False qiymatini oladi, keyin Loop xizmat so'ziga qadar operatorlar bajariladi. Keyin shart yana tekshiriladi va bu shart rost bo'lguncha davom etadi (True).

Blok diagrammada ushbu operator quyidagicha tasvirlangan:

Biz oldingi shart bilan tsiklni amalga oshiradigan sikl operatorlarini ko'rib chiqdik.

Postshartli siklni amalga oshiradigan sikl operatorlarini ko'rib chiqamiz. Bular Do... Loop while va Do... Loop Until operatorlari. Ushbu operatorlarning tuzilishi quyidagicha:

<операторы VBA>

Qachongacha aylanish<условие>

<условие>, Agar<условие>False qiymatini oladi, keyin Loop xizmat so'ziga qadar operatorlar yana bajariladi. Bu qadar davom etadi<условие>haqiqatga aylanmaydi.

Blok diagrammada ushbu operator quyidagicha tasvirlangan:

<операторы VBA>

Loop while<условие>

Operator quyidagi tarzda bajariladi. Loop xizmat so'ziga qadar bo'lgan operatorlar bajariladi. Keyin tekshiriladi<условие>, Agar<условие>True qiymatini oladi, keyin Loop xizmat so'ziga qadar operatorlar yana bajariladi. Bu qadar davom etadi<условие>yolg'onga aylanmaydi.

Blok diagrammada ushbu operator quyidagicha tasvirlangan:

VBA-da noma'lum takroriy sonli tsikllardan erta chiqish imkonini beruvchi operator mavjud. Ushbu tsikllardan chiqish uchun operatordan foydalanishingiz kerak Chiqish Do.

Ushbu maqolada siz VBA Excel-da turli xil ma'lumotlarni ko'rsatadigan xabarlar oynasini qanday yaratishni o'rganasiz.

Funktsiya MsgBox xabar oynasini ko'rsatadi va foydalanuvchi tugmani bosishini kutadi va keyin amal foydalanuvchi tomonidan bosilgan tugma asosida amalga oshiriladi.

Sintaksis

MsgBox(prompt[,tugmalar][,title][,yordam fayli,kontekst])

Parametr tavsifi

• So'rov - bu talab qilinadigan parametr. Muloqot oynasida xabar sifatida paydo bo'ladigan satr. Maksimal taklif uzunligi taxminan 1024 belgidan iborat. Agar xabar bir nechta satrga cho'zilgan bo'lsa, u holda satrlarni har bir satr o'rtasida karetaning qaytishi (Chr(13)) yoki satr tasmasi (Chr(10)) belgisi yordamida ajratish mumkin.
• Tugmalar ixtiyoriy parametrdir. Ko'rsatiladigan tugmalar turini, foydalaniladigan piktogramma uslubini, standart tugma identifikatorini va xabarlar oynasi rejimini belgilaydigan raqamli ifoda. Bo'sh qoldirilgan bo'lsa, tugmalar uchun standart qiymat 0 ga teng.
• Sarlavha ixtiyoriy parametrdir. Satr ifodasi dialog oynasining sarlavha satrida paydo bo'ladi. Sarlavha bo'sh qoldirilgan bo'lsa, dastur nomi sarlavha satriga joylashtiriladi.
• Yordam fayli ixtiyoriy parametrdir. Muloqot oynasi uchun kontekstga sezgir yordam berish uchun foydalaniladigan yordam faylini aniqlaydigan String ifodasi.
• Kontekst ixtiyoriy parametrdir. Yordam muallifiga tegishli yordam mavzusiga tayinlangan yordam kontekst raqamini aniqlovchi raqamli ifoda. Agar kontekst taqdim etilsa, yordam fayli ham taqdim etilishi kerak.

Buttons parametri quyidagi qiymatlardan birini qabul qilishi mumkin:

• 0 vbOKOnly - faqat OK tugmasini ko'rsatadi.
• 1 vbOKCancel - OK va Bekor qilish tugmalarini aks ettiradi.
• 2 vbAbortRetryIgnore - Bekor qilish, qayta urinish va e'tibor bermaslik tugmalarini ko'rsatadi.
• 3 vbYesNoCancel - Ha, Yo'q va Bekor qilish tugmalarini ko'rsatadi.
• 4 vbYesNo - Ha va Yo'q tugmalarini ko'rsatadi.
• 5 vbRetryCancel - qayta urinish va bekor qilish tugmalarini ko'rsatadi.
• 16 vbCritical - muhim xabar belgisini ko'rsatadi.
• 32 vbQuestion - Ogohlantirish belgisini ko'rsatadi.
• 48 vbExclamation - Ogohlantirish xabari belgisini ko'rsatadi.
• 64 vbMa'lumot. Axborot xabari belgisini ko'rsatadi.
• 0 vbDefaultButton1 - birinchi standart tugma.
• 256 vbDefaultButton2 - ikkinchi standart tugma.
• 512 vbDefaultButton3 - Uchinchi standart tugma.
• 768 vbDefaultButton4 - To'rtinchi standart tugma.
• 0 vbApplicationModal Ilova modali - foydalanuvchi xabarga javob bermaguncha joriy dastur ishlamaydi.
• 4096 vbSystemModal System modali - foydalanuvchi xabarga javob bermaguncha barcha ilovalar ishlamaydi.

Yuqoridagi qiymatlar mantiqan to'rt guruhga bo'lingan: Birinchi guruh (0 dan 5 gacha) xabarlar oynasida ko'rsatiladigan tugmalarni bildiradi. Ikkinchi guruh (16, 32, 48, 64) ko'rsatiladigan belgining uslubini tavsiflaydi, uchinchi guruh (0, 256, 512, 768) qaysi tugma standart bo'lishi kerakligini va to'rtinchi guruh (0, 4096) xabar oynasining modalligini belgilaydi.

Qaytish qiymatlari

MsgBox funksiyasi quyidagi qiymatlardan birini qaytarishi mumkin, undan foydalanuvchi xabarlar oynasida bosgan tugmani aniqlash uchun foydalanish mumkin.

• 1 - vbOK - OK tugmasi bosildi.
• 2 - vbCancel - Bekor qilish tugmasi bosildi
• 3 - vbAbort - Bekor qilish tugmasi bosildi
• 4 - vbRetry - Qayta urinish tugmasi bosildi
• 5 - vbIgnore - Ignore tugmasi bosiladi
• 6 - vbHa - “Ha” tugmasi bosiladi
• 7 - vbNo - bosish yo'q

Sub MessageBox_Demo() "Oddiy xabar MsgBox ("Salom") "Sarlavha va tugmalar bilan xabar ha, yo'q va bekor qilish a = MsgBox("Ko'k rang yoqdimi", 3, "Javobni tanlang") "Bosilgan kodi tugmasi MsgBox ("Qiymatli javob" & a) End Sub

MsgBox bosqichma-bosqich

1-qadam - Yuqoridagi funktsiyani VBA oynasidagi "Ishga tushirish" tugmasini bosish yoki Excel varag'iga o'zingiz qo'shgan tugmani bosish orqali bajarish mumkin.

2-qadam - "Xush kelibsiz" xabari va "OK" tugmasi bilan oddiy matn oynasi ko'rsatiladi

VBA-da ma'lumotni kiritish va chiqarish (foydalanuvchi o'zaro aloqasi uchun) amalga oshirilishi mumkin dialog oynalari. Qiymatlarni kiritish uchun dialog oynasi o'rnatilgan funksiya tomonidan amalga oshiriladi InputBox. InputBox funktsiyasi tomonidan amalga oshiriladigan kiritish oynasi foydalanuvchi kiritishi kerak bo'lgan o'zgaruvchining qiymatini kiritish uchun maydonni ko'rsatadi. o'ziga xos qiymat. Keyinchalik, foydalanuvchi OK tugmasini bosishi kerak.

Funktsiya InputBox() quyidagi sintaksisga ega:

VariableName = InputBox(Prompt, , , , , , )

Argumentlar qayerda: Prompt yoki Message - dialog oynasida ko'rsatilgan talab qilinadigan argument E'lon. Boshqa barcha argumentlar ixtiyoriydir. Sarlavha oynaning sarlavhasini belgilaydi. 1-rasmda InputBox funksiyasi qo'llaniladigan modul ko'rsatilgan.

Guruch. 1.

2-modulni tugatgandan so'ng, "O'zgaruvchan qiymatlarni kiritish" xabar oynasi paydo bo'ladi (2-rasm), unda siz raqamni kiritishingiz va OK tugmasini bosishingiz kerak. InputBox funksiyasi (1-rasm) tomonidan amalga oshirilgan muloqot oynasi (2-rasm) ko'rsatiladi: Oyna sarlavhasi - O'zgaruvchilar qiymatlarini kiritish; Xabar - raqamni kiriting; Tugmalar (standart) - OK va Bekor qilish; O'zgaruvchan qiymatlarni kiritish uchun mo'ljallangan maydon.

Guruch. 2.

Ma'lumotni ko'rsatish uchun operator tomonidan amalga oshirilgan xabarlar dialog oynalaridan foydalaniladi MsgBox yoki funksiya MsgBox(). MsgBox-dan operator sifatida foydalanish mumkin. MsgBox bayonoti ma'lumotni dialog oynasida aks ettiradi va foydalanuvchi tugmani bosishini kutish rejimini o'rnatadi.

MsgBox operatori quyidagi sintaksisga ega:
MsgBox so'rovi, , , ,

Argumentlar qayerda: Prompt yoki Message - oynada ko'rsatiladigan axborot xabarini belgilaydigan talab qilinadigan argument. Boshqa barcha argumentlar ixtiyoriydir. Tugmalar - xabarlar dialog oynasida foydalanish mumkin bo'lgan tugmalar. Xabar oynasida turli tugmalardan foydalanish mumkin (OK, Bekor qilish va h.k.). Xabar oynasida qaysi tugmalar ko'rsatilishini belgilamasangiz, sukut bo'yicha OK tugmasi ko'rsatiladi. Bundan tashqari, siz xabarlarni chiqarish dialog oynalarida turli piktogrammalardan foydalanishingiz mumkin (vbQuestion - savol belgisi belgisi, vbExclamation - belgi. undov belgisi va hokazo.).

MsgBox operator sifatida ishlatiladigan modul rasmda ko'rsatilgan. 3 (operator MsgBox "3", vbOKCancel, "Chiqish qiymatlari").

Guruch. 3

Bajarish uchun 4-modul ishga tushirilganda, "Chiqish qiymatlari" xabar oynasi ko'rsatiladi (4-rasm), unda siz OK tugmasini bosishingiz kerak. MsgBox operatori tomonidan amalga oshirilgan oyna (4-rasm) (3-rasm) ko'rsatiladi: Oyna sarlavhasi - qiymatlarni ko'rsatish; Xabar - 3; Tugmalar - OK va Bekor qilish.

Guruch. 4

Masalan, y = 5 x 2 + 7 x + 9 kabi funktsiyani baholash uchun siz InputBox funksiyasidan va MsgBox operatoridan foydalanishingiz mumkin (5-rasm).

Guruch. 5

5-modulni tugatgandan so'ng, kiritish oynasi ko'rsatiladi

Guruch. 6

789 kabi raqamni kiritib, OK tugmasini bosganingizdan so'ng, y = 5 x 2 + 7 x + 9 funktsiyasi natijasini ko'rsatadigan xabar oynasi paydo bo'ladi.

Guruch. 7

MsgBox funksiya sifatida ishlatilishi mumkin. MsgBox() funksiyasi quyidagi sintaksisga ega: MsgBox(Prompt, , , , ). Bunday holda, dialog oynasida bir nechta turli tugmalar ishlatiladi. Muloqot oynasida tugma bosilganda, MsgBox() funksiyasi xabar dialog oynasida qaysi tugma bosilganiga bog'liq bo'lgan Integer qiymatini qaytaradi.

MsgBox funksiyasi imkon beradi ma'lumotlarni ko'rsatish ekranda oyna shaklida.

Funktsiyalarning umumiy ko'rinishi:

MsgBox xabari

[,tugma kodi [,title]]

xabar - xabar oynasida ko'rsatiladigan iboraning qiymatini belgilaydi. Bu ifoda iqtibos keltirilishi kerak bo'lgan matn va/yoki o'zgaruvchi bo'lishi mumkin. Xabar matni va o'zgaruvchan qiymatlarni bitta oynada ko'rsatish uchun satrlarni birlashtirish operatsiyasidan foydalaning (&).

Dim Pi yakka holda

MsgBox "pi="&Pi

Makrosning natijasi:

tugma kodi - xabar oynasida qaysi tugmalar va piktogrammalar ko'rsatilishini aniqlaydi. Agar ushbu parametr ko'rsatilmagan bo'lsa, xabarlar oynasida faqat tugma mavjud KELISHDIKMI.

sarlavha - xabarning sarlavha satrida ko'rsatiladigan matnni o'z ichiga oladi. Agar bu argument berilmagan bo'lsa, sarlavha qatorni o'z ichiga oladi MicrosoftExcel.

Dim Pi yakka holda

MsgBox Pi, "Bu Pi"

Ma'lumot kiritish VBA-da kirish oynasi yordamida amalga oshirilishi mumkin:

Funktsiya InputBox kiritish oynasini yaratadi:

InputBox (xabar

[,nom[,qiymat]])

xabar - foydalanuvchiga matnli xabarni o'z ichiga olgan belgilar qatori yoki satr o'zgaruvchisi;

sarlavha - xabarning sarlavha satrida ko'rsatiladigan matn;

qiymat - dialog oynasi matn maydonida ko'rsatilgan standart qiymatlarni belgilaydi.

MUAMMO 2. Burchak radianlarda berilgan. Darajaga aylantiring.

Const pi = 3,14159

Dim g butun son

Butun son sifatida xiralash

Dim s As Integer

r = InputBox("r=", "Radianlardagi burchak qiymati", pi / 4)

g = Tuzatish (r * 180 / pi)

m = Tuzatish ((r*180/pi-g)*60)

s=Fix (((r*180/pi-g)*60-m)*60)

MsgBox g & "daraja" & m & "daqiqa" & s & "soniyalar"

18. Shartli operator

Shartli gaplar qaysidir shartga qarab u yoki bu harakatni bajarish zarur bo‘lganda qo‘llaniladi.

Shartli operator, berilgan blok-sxemaga mos keladigan shaklga ega:

Ifoda bo'lsa Keyin

operator1

operator2

Bu konstruksiyada ifoda mantiqiy tipda bo'lishi kerak.

Operator shunday ishlaydi. Ifodaning qiymati hisoblanadi. Agar rost bo'lsa, 1-band bajariladi, aks holda (ifoda noto'g'ri) operator2 bajariladi.

Agar shartga qarab ba'zi harakatlar bajarilsa va aks holda hech narsa sodir bo'lmasa, algoritm quyidagicha ko'rinadi:

Shartli operator Ushbu holatda dizaynga ega:

Ifoda bo'lsa Keyin

operator

Ushbu yozuvni "else iborasini o'tkazib yuborish" deb atash mumkin.

Bu yerda ifodaning qiymatiga qarab operator bajariladi yoki o'tkazib yuboriladi.

Bir nechta ichki oʻrnatilgan If...Then...Else iboralariga ruxsat beriladi, ular kerakli darajada joylashtirish darajasiga ega.

Agar ifoda1 bo'lsa, keyin

operatorlar 1

Elseif ifodasi2 keyin

operatorlar2

Elseif ifodasi3 keyin

operatorlar 3

Elseif ifodasiN keyin

operatorlari N

operatorlar

Dasturni o'qishni osonlashtirish uchun bir nechta ichki iboralar o'rniga, ba'zan Select Case operatoridan foydalanish afzalroqdir.

Case-ni tanlang<ifoda>

Case<tanlash sharti 1>

<operatorlar 1>

Case<tanlash sharti 2>

<operatorlar 2>

……………..

Case<tanlash shartiN>

<operatorlarN>

<operatorlar>

19. Namunaviy dasturlar

3-VAZIFA . Kvadrat tenglamaning a, b va c ma'lum koeffitsientlari bolta 2 +bx+c=0. Kvadrat tenglamaning ildizlarini hisoblang.

Kirish ma'lumotlari: a, b, c.

Chiqish ma'lumotlari: x 1, x 2.

Sub prim7()

Dim x1 Yakka holda

Dim x2 Yakka holda

InputBox("A=","Kvadrat tenglama koeffitsientlari", 2)

InputBox("B="," Kvadrat tenglama koeffitsientlari", 3)

InputBox("C="," Kvadrat tenglama koeffitsientlari", -2)

d = b^2 - 4 * a * c

Agar d< 0 Then

MsgBox "Yaroqli yechimlar yo'q", vbCritical

x1=(-b+Sqr(d))/(2*a)

x2=(-b-Sqr(d))/(2*a)

MsgBox "X1=" & x1 & Chr(13) & "X2=" & x2, vbInformation

4-VAZIFA. Haqiqiy raqam berilgan x. Grafigi quyida berilgan funksiya uchun hisoblang y=f(x).

Agar x<= -1 Then

ElseIf x > 1 Keyin

VAZIFA 5. Haqiqiy raqamlar berilgan x Va y. Nuqta koordinatali (( x; y) tekislikning soyali qismi.

Koordinatali nuqta ( x;y) tekislikning soyali qismiga tegishli, agar:

Agar y<= 2 * x + 2 And