Argumentlar:

Xabar - oynada ko'rsatiladigan axborot xabarini belgilaydigan talab qilinadigan argument. Belgi bilan birlashtirilgan bir nechta matn qatorlaridan iborat bo'lishi mumkin & . Ushbu argumentda foydalanish Chr(13) axborotni chiqarishda yangi qatorga olib keladi.

Tugmalar - bu argumentning qiymati oynada paydo bo'ladigan tugmalar toifalarini aniqlaydi. Tugma argumentining qiymati, shuningdek, oynada biron bir belgi paydo bo'lishini aniqlaydi. Xabar oynasida qaysi tugmalar ko'rsatilishini belgilamasangiz, OK tugmasiga mos keladigan standart qiymat ishlatiladi. Jadvalda 3.1 xabar oynasidagi tugmalar va piktogrammalarning mumkin bo'lgan kombinatsiyalarini ko'rsatadi.

Sarlavha - oyna sarlavhasini o'rnatadi.

Funktsiya MsgBox dialog oynasida qaysi tugma bosilganligini ko'rsatuvchi Integer qiymatini qaytaradi.

3.1-jadval. Yaroqli tugma o'zgaruvchan qiymatlari

Masalan. Joriy sana haqida xabarni ko'rsatish.

"Taqvimdagi bugun" va sana, "Diqqat" xabar qutisi

Natijada quyidagi oyna paydo bo'ladi (3.1-rasm).

OK tugmasini bosgandan so'ng, xabarlar oynasi yopiladi va dasturning bajarilishi MsgBox qo'ng'irog'idan so'ng darhol bayonotdan davom ettiriladi.

3.3.2. Funktsiya InputBox

Funktsiya InputBox Kirish oynasi yordamida o'zgaruvchan qiymatlarni kiritadi va quyidagi sintaksisga ega:

O'zgaruvchi_nomi = InputBox(Xabar[, Sarlavha] )

Argumentlar:

Xabar - talab qilinadigan argument. Oynada odatda kiritilgan qiymatning ma'nosini tushuntiruvchi axborot xabarini o'rnatadi.

Sarlavha - oyna sarlavhasini o'rnatadi.

Masalan, N o'zgaruvchining qiymatini klaviaturadan kiriting, standart qiymat 10 ga teng.

Buning uchun siz quyidagi operatordan foydalanishingiz mumkin:

N = InputBox("Enter N", "Kirish kiritish",10)

Natijada N o'zgaruvchining qiymatini kiritish uchun quyidagi oyna paydo bo'ladi (3.2-rasm).

Agar standart qiymat foydalanuvchi uchun maqbul bo'lsa, "OK" tugmasini bosgandan so'ng, kiritish oynasi yopiladi, N o'zgaruvchisi 10 ga o'rnatiladi va dasturning bajarilishi qo'ng'iroq ortidagi bayonotdan davom etadi. InputBox.

Agar standart qiymat foydalanuvchi uchun mos bo'lmasa, OK tugmasini bosishdan oldin N o'zgaruvchisi uchun kerakli qiymatni kiritishingiz kerak.

3 .4. Shartli IF bayonoti

VBA-da tarmoqlanuvchi hisoblash jarayonini amalga oshirish uchun operator ishlatiladi Agar... Keyin... Aks holda, bu holatni tekshirishning eng oddiy shakli. U quyidagi sintaksisga ega:

AgarSHARTKeyinOPERATOR_1ElseOPERATOR_2

OPERATOR_1 bajarilgan bo'lsa SHART rost, aks holda bajariladi OPERATOR_2. Bunda If...Then...Else operatori bir qatorga yoziladi.

SHART mantiqiy ifodadir. Ifodaning natijasi har doim mantiqiy bo'ladi. Ifoda oddiy yoki murakkab bo'lishi mumkin. Oddiy shartlarni yozishda jadvalda keltirilgan barcha mumkin bo'lgan relyatsion operatsiyalardan foydalanish mumkin. 3.2.

Jadval3 .2. Mantiqiy munosabatlar

Mantiqiy amallar va qavslar yordamida oddiylardan murakkab shartlar tuziladi. Mantiqiy operatsiyalar ro'yxati jadvalda keltirilgan. 3.3.

Jadval3 .3. Mantiqiy operatsiyalar

Shartli gapda har qanday gap o‘rniga gaplar blokidan foydalanishga ruxsat beriladi. Bu holda shartli operator quyidagicha ko'rinadi:

AgarSHARTKeyin

BLOCK_OPERATORS_1

BLOCK_OPERATORS_2

Oxiri If

Shartli bayonot bir nechta shartlarni sinab ko'rishi mumkin. Bu holda shartli operator quyidagicha ko'rinadi:

AgarCONDITION_1Keyin

BLOCK_OPERATORS_1

ElseIfCONDITION_2Keyin

BLOCK_OPERATORS_2

Boshqa

OxiriAgar

1-misol. Shakldagi algoritm uchun dasturning bir qismini yozing. 3.3.

2-misol. Shakldagi algoritm uchun dasturning bir qismini yozing. 3.4.

3.5. Case operatorini tanlang

Select Case operatori amaldagi qiymatlarning chekli to'plamiga ega bo'lgan ba'zi ifodaning qiymatiga qarab turli amallarni bajarish kerak bo'lganda foydalidir. U shartli gaplar bilan ham bog'liq, ammo boshqa shaklga ega:

Case-ni tanlangSINOV OLDIRGAN ibora

CaseVALUES_1

OPERATORS_1

CaseQIYMATLAR_ 2

OPERATORLAR_ 2

. . .

CaseVALUES_N

OPERATORLAR_N

[ CaseBoshqa

BOSHQA_ OPERATORLAR]

Tanlovni tugatish

SINOV OLDIRGAN ibora realdan boshqa har qanday skalyar tipda bo'lishi mumkin. QIYMATLAR vergul bilan ajratilgan ixtiyoriy miqdordagi qiymatlar yoki diapazonlardan iborat.

Turi QIYMATLAR turiga mos kelishi kerak TEST_EXPRESSION.

Avval hisoblab chiqiladi SINOV OLDIRGAN ibora. Agar uning qiymati qiymatlardan biriga mos kelsa VALUES_I, keyin ular bajariladi OPERATORS_I Tanlovni tugatish. Agar uning qiymati biron bir qiymatga mos kelmasa VALUES_I, keyin ular bajariladi ELSE_OPERATORS va boshqaruv undan keyin turgan operatorga o'tkaziladi Tanlovni tugatish

Masalan. Shakldagi algoritm uchun dasturning bir qismini yozing. n o'zgaruvchining qiymatiga qarab S o'zgaruvchining qiymatini aniqlaydigan 3.5.

3.6. Loop bayonotlari

Tsiklik hisoblash jarayonini amalga oshirish uchun, ya'ni bir yoki bir nechta operatorlarning takroriy bajarilishi uchun sikl operatori ishlatiladi. Uchun...Keyingi, quyidagi sintaksisga ega:

UchunCOUNTER=START_VALUEToCON_VALUEQadamQADAM

OPERATOR_BLOCK

OPERATOR_BLOCK

KeyingisiCOUNTER

For...Keyingi tsikli oʻzgaruvchining qiymatlari boʻylab oʻtadi COUNTER, ko'rsatilgan o'zgartirish bosqichi bilan dastlabki qiymatdan yakuniy qiymatgacha bo'lgan tsikl parametri. Bu har bir yangi hisoblagich qiymati bilan halqa tanasi bayonotlari blokining bajarilishini ta'minlaydi. Agar QadamQADAM dizaynda yo'q bo'lsa, sukut bo'yicha qadam 1 ga teng deb qabul qilinadi. Operatorga ko'ra Chiqish uchun oldin loop bayonotidan chiqishingiz mumkin COUNTER oxirgi qiymatga etadi.*

O'xshash ob'ektlar guruhidagi ob'ektlarni takrorlash uchun, masalan, diapazon yoki massiv elementlarining kataklari, tsikl operatoridan foydalanish qulay. Uchun…Har bir...Keyingi.

Har birigaElementInGuruh

BLOK_ OPERATORLAR

OPERATOR_BLOCK

KeyingisiElement

VBA-da noma'lum takroriy sonli sikllarni tashkil qilish uchun boshqa sikl operatorlari ishlatiladi:

oldingi shartli tsikllar - DoVaholanki … Loop,

Dogacha … Loop;

postshartli tsikllar - Do … LoopVaholanki,

Do … Loopgacha.

Quyida ushbu tsikl iboralarining sintaksisi keltirilgan:

"Oldin shart bilan tsiklDo Vaholanki … Loop

Do whileSHART

OPERATOR_BLOCK

OPERATOR_BLOCK

"Oldin shart bilan tsiklDo gacha … Loop

DogachaSHART

OPERATOR_BLOCK

OPERATOR_BLOCK

"Postshart bilan tsiklDo … Loop while

BLOK_ OPERATORLAR

OPERATOR_BLOCK

Loop whileSHART

"Postshart bilan tsiklDo … Qachongacha aylanish

BLOK_ OPERATORLAR

OPERATOR_BLOCK

Qachongacha aylanishSHART

Operator DoVhile...Loop qadar bayonotlar blokining bir necha marta takrorlanishini ta'minlaydi SHART kuzatiladi va operator

Boshqa yangiliklar

Til ko'rsatmalari (yoki operatorlar)- bu ba'zi harakatlarni bajaradigan yoki ma'lumotlarni tavsiflovchi dastur birliklari.

Bayonot bir yoki bir nechta kalit so'zlarni va ehtimol parametrlarni o'z ichiga oladi. Xuddi shu dastur qatorida joylashgan bir nechta bayonotlar bir-biridan ikki nuqta bilan ajratiladi. Agar bayonot juda uzun bo'lsa, uni buzish uchun pastki chiziq _ belgisidan foydalanib, uni bir nechta qatorlarga bo'lishingiz mumkin.

HAQIDA P tuzatuvchi topshiriqlar

Belgilash operatori dasturni bajarish jarayonida o'zgaruvchiga yangi qiymat berish uchun ishlatiladi. Topshiriq belgisi "=".

Masalan, operator:

x = Sqr(5 + Tan(1,8)^2)

x o'zgaruvchiga ifoda qiymatini belgilaydi. O'ng tomonda yozilgan ifodani hisoblash natijasida biz haqiqiy sonni olamiz. Ammo x o'zgaruvchisiga tayinlanadigan qiymat ushbu o'zgaruvchining turi qanday e'lon qilinganiga bog'liq. Demak, agar x o'zgaruvchisi Single turi bo'lsa, unga 4,834464, Double bo'lsa, 4,83446368725481, Integer bo'lsa, 5 natija beriladi.

X o'zgaruvchisining ma'lumotlar turi ushbu ifodaning ma'lumotlar turiga mos kelishi kerak. Topshiriq davomida bir turdan ikkinchi turga yashirin konvertatsiya qilishdan tashqari, Visual Basic funksiyalar yordamida turlarni aylantirish imkoniyatini beradi. Masalan, funktsiya CDbl ma'lumotlarni Double turiga o'zgartiradi, CInt- Integer turiga, Clng- uzun turga, CSng- Yagona turga, CStr– Stringni yozish va h.k.

CInt va Clng funksiyalari natijani yaxlitlaydi. Bundan tashqari, agar raqamning kasr qismi 0,5 bo'lsa, yaxlitlash eng yaqin juft songa amalga oshiriladi.

Tayinlash operatori nafaqat o'zgaruvchiga qiymat belgilash, balki VBA ob'ektlari xususiyatlarining qiymatlarini o'rnatish imkonini beradi. Masalan, operator

Qatorlar("1:1").Shrift. Qalin = To'g'ri

Ishchi varaqning birinchi qatoridagi shriftni qalin qiladi.

YANGI SATR

Kombinatsiya<Пробел> + <Знак подчеркивания>satr oxirida keyingi satr avvalgisining davomi ekanligini ta'minlaydi. Shu bilan birga, shuni yodda tutishimiz kerak:

§ Oʻrash orqali satr konstantalarini buzolmaydi

§ Xuddi shu qatorning ettitadan ortiq davomiga yo'l qo'yilmaydi

§ Satrning o'zi 1024 ta belgidan oshmasligi kerak

Misol.

Noto'g'ri uzatish To'g'ri uzatish

Line = "Visual Basic for _ Line = "Visual Basic" _

Ilovalar" va "Ilovalar uchun"

IZOHLAR

Dasturda (") belgisidan keyingi satr oxirigacha bo'lgan matn kompilyator tomonidan e'tiborga olinmaydi va izoh hisoblanadi.Izohlar dasturga tushuntirish va tavsif qo'shish uchun ishlatiladi.Izohlar dasturni disk raskadrovka qilishda foydalidir: ular imkon beradi. disk raskadrovka paytida dastur qatorlarini vaqtincha o'chirib qo'yishingiz mumkin.

Shartli operator

Shartli gap shart ifodasining qiymatiga qarab ma'lum ko'rsatmalarni (bayonotlarni) bajaradi. Vaziyatni tekshirish uchun blok diagrammasi quyidagicha ko'rinadi:

Guruch. 1. Tarmoqlanish tugallanmagan bo'lishi mumkin (bu tuzilma aylanma deb ham ataladi).

Guruch. 2. Shartli gap sintaksisning ikki shakliga ega: satr va blok.

Kichik harf shakli

Agar holat Keyin [ operatorlar_agar_haqiqat]

Shaklda keltirilgan algoritm. 1, kichik harflar bilan yoziladi

Agar holat Keyin operatorlar_agar_haqiqat Boshqa operators_if_false

2-rasm kirishga mos keladi

Agar holat Keyin operatorlar_agar_haqiqat

3-rasm kirishga mos keladi

Agar holat Keyin Boshqa operators_if_false

Blok shakli

Agar shart-1 Keyin

[operatorlar_agar shart – 1_true]

[operatorlar_agar_barcha_shartlar_noto'g'ri]]

If va ElseIf qismlarida keltirilgan shartlar relyatsion ifodalar yoki mantiqiy ifodalardir. Shartlardan biri bajarilganda, unga mos keladigan Then kalit so'zidan keyingi gaplar bajariladi, qolgan operatorlar e'tiborga olinmaydi (ya'ni, boshqa hech qanday test o'tkazilmaydi va nazorat End If dan keyingi operatorga o'tkaziladi). Agar mantiqiy shartlarning hech biri to'g'ri bo'lmasa, unda operatorlar_agar_barcha_oldingi_shartlar_noto'g'ri, yoki agar bu qism o'tkazib yuborilsa, boshqaruv shartli bayonotdan keyin dastur qatoriga o'tkaziladi.

If iborasining blok shakli afzalroq, agar:

Shart bajarilganda yoki bajarilmasa, bir nechta buyruqlar bajariladi (bu holda chiziq shaklidan ham foydalanish mumkin, lekin chiziq juda uzun va dastur kamroq tushunarli bo'ladi);

Bir nechta shartlar ketma-ket tekshiriladi va keyingi shart bajarilganda keyingi shartlarni tekshirish o'rinli emas (shuning uchun ElseIf kalit so'zi ishlatiladi).

Misol

Kompaniya ulgurji xaridorlarga chegirmalar beradi.

Buyurtmaning ma'lum hajmiga asoslanib, uning narxini aniqlash kerak.

Buyurtma narxini hisoblash uchun biz funktsiyadan foydalanamiz:

Ommaviy funktsiya Buyurtma_narxi(Miqdori) ikki barobar

Miqdor bo'lsa<= 999 Then

Buyurtma_narxi = Miqdor * 5

ElseIf miqdori<= 1999 Then

Buyurtma_narxi = Miqdor * 4.8

Buyurtma_narxi = Miqdor * 4,75

Bunday holda, IF operatorining kichik harf shaklidan foydalanish mumkin edi:

Ommaviy funktsiya Order_Cost1(Miqdori uzunligi) Ikki barobar

Miqdor bo'lsa<= 999 Then Стоимость_заказа1 = Количество * 5

Miqdor >= 1000 va miqdori bo'lsa<= 1999 Then Стоимость_­ заказа1 = Количество * 4.8

Miqdor >= 2000 bo'lsa, Buyurtma_narxi1 = Miqdor * 4,75

Agar biz chiziqlar uzun bo'lgan kamchiliklarni hisobga olmasak va har qanday buyurtma hajmi uchun barcha tekshiruvlar ketma-ket amalga oshiriladi (birinchi protsedura kichik buyurtma hajmlari uchun tezroq ishlaydi), unda dastur to'g'ri yozilgan va, ehtimol, yanada aniqroq.

Biroq, misollar keltirish mumkinki, agar shartlardan biri bajarilgan bo'lsa (yoki bajarilmasa), qolganlari oddiygina tekshirilmaydi.

Masalan, shartlar birgalikda bajarilganda ba'zi operatorlar bajarilishi kerak: http://po-teme.com.ua/images/adIIIin/image014_e652e49476c6f0eb9cf40b68cc090828.gif" alt="" width="56" height="27 src="> Agar tekshirish uchun operatordan foydalaning

Agar x>0 va y bo'lsa

u holda x manfiy bo'lsa, sqr funksiyasini chaqirganda xatolik yuzaga keladi (ildiz manfiy son).

Dizayn yordamida ushbu xatodan qochish mumkin

Agar x > 0 bo'lsa, y bo'lsa< Sqr(x) Then

Yozuvning oxirgi shaklida, agar Else kalit so'zi bo'lsa, u oxirgi If iborasiga ishora qiladi.

Tanlash operatori

Case-ni tanlang ifoda

[ko'rsatmalar_boshqa]]

Ifodaning parametri har qanday sonli yoki qatorli ifodadir. Mantiqiy shartni baholash o'rniga, ifoda qiymati parametr tomonidan ko'rsatilgan qiymatlarning har biri bilan taqqoslanadi. ifoda_roʻyxati-n.

Taqqoslash uchun qiymatlar kiritilgan ifoda_roʻyxati-n, shaklda ko'rsatilishi mumkin:

- qiymatlar;

- shakldagi qiymatlar diapazoni boshlang'ich_qiymat Kimga yakuniy_qiymat;

– Is ko‘rinishidagi taqqoslash ifodalari taqqoslash_operator qiymati;

- sanab o'tilgan har qanday ibora turlarining ro'yxati (ajratuvchi - vergul).

Ko'rsatma ixtiyoriy sonli Case bloklarini o'z ichiga olishi mumkin. Agar shartlarning hech biri to'g'ri bo'lmasa, Case Else blokidagi operatorlar bajariladi.

Misol uchun, agar shart uchdan yuqori ball bo'lsa, u holda bu shart yozilishi mumkin: 4, 5 yoki Case Is >3 yoki Case Is >= 4 yoki 4 dan 5 gacha.

Eslatma. Kalit so'z Kiritish shart emas, u avtomatik ravishda qo'shiladi.

Misol

Select Case konstruktsiyasidan foydalangan holda chegirmali narx bilan yuqoridagi misolni quyidagicha hal qilish mumkin:

Ommaviy funktsiya Order_Cost2(Miqdori uzunligi) Ikki barobar

Koson miqdorini tanlang

Buyurtma_narxi2 = Miqdor * 5

1000-dan 1999-yilgacha

Buyurtma_narxi2 = Miqdor * 4.8

Vaziyat >= 2000

Buyurtma_narxi2 = Miqdor * 4,75

VBA dasturi - bu bayonotlar ketma-ketligi.

Dasturlarni yozishda bir qator qoidalarga rioya qilish kerak. Shunday qilib, bir qatorga bir nechta bayonotlarni joylashtirish mumkin. Xuddi shu qatordagi gaplar orasiga ikki nuqta qo'yiladi.

Har qanday qatorni birinchisining oxiriga “Bo‘sh joy” + “Pastki chiziq” (_) belgilarini qo‘yish orqali ikkiga bo‘lish mumkin, bu holda ikkinchi qator birinchisining davomi hisoblanadi.

Sharhlar dasturni o'qishni osonlashtirish uchun ishlatiladi. VBA-da sharhlarni kiritishning ikki yo'li mavjud: chiziqning istalgan joyiga joylashtirilishi mumkin bo'lgan apostrof (') va apostrof o'rniga zaxiralangan Rem so'zidan foydalanish.

1. Dim operatori o'zgaruvchilar turlarini e'lon qilish uchun mo'ljallangan.

1. A butun son sifatida xiralashtiring – A o'zgaruvchisi butun son sifatida e'lon qilinadi, ya'ni. u faqat butun son qiymatlarini saqlaydi .

2. Xira D sana sifatida - D o'zgaruvchisi sanalarni saqlash uchun e'lon qilinadi.

3. Xira familiya, satr sifatida ism - o'zgaruvchilar e'lon qilinadi. Matnni saqlash uchun mo'ljallangan familiya va ism.

4. Dim B(12) butun son sifatida – 12 ta butun sondan iborat bir oʻlchovli massiv (vektor) eʼlon qilinadi va sukut boʻyicha massivning birinchi elementi B(0), oxirgisi esa B(12) boʻladi.

5. Dim B(3,3) Yakka holda – haqiqiy sonlardan iborat ikki o'lchovli 3x3 massiv (matritsa) e'lon qilinadi.

Agar o'zgaruvchi turi ko'rsatilmagan bo'lsa, standart turi Variant hisoblanadi. Biroq, o'zgaruvchilarning ma'lum bir turini ko'rsatish dasturni yanada ishonchli qiladi va uning ishlashini tezlashtiradi, chunki VBA har safar kirishda e'lon qilinmagan o'zgaruvchini tanib olish uchun vaqt sarflashi shart emas.

Agar M massivning o'lchami oldindan ma'lum bo'lmasa va dastur davomida aniqlansa, u holda massivni tavsiflashda elementlar soni ko'rsatilmaydi va massiv quyidagicha aniqlanadi:

Dim M() butun son sifatida

Massiv elementlarining sonini aniqlagandan so'ng, masalan, N, operatorni yozish kerak

2. Tayinlash operatori o'zgaruvchiga qiymat berish uchun mo'ljallangan.

Sintaksis:

O'zgaruvchi (yoki ob'ekt xususiyati) = ifoda.

1. a=5 – A o'zgaruvchisiga 5 qiymatini belgilang ;

2. b=“Menejer” – o'zgaruvchi b tayinlash"Menejer" degan ma'noni anglatadi;

· Manzil=Vraqalar("Tashkilotlar").Yacheykalar(2,2) – Joriy ish kitobidagi Tashkilotlar varag'ida joylashgan B2 katak tarkibini Manzil o'zgaruvchisiga belgilang;

Familiya=UserForm1.TextBox1.Text – o'zgaruvchan Familiya UserForm1 foydalanuvchi shaklining TextBox1 maydonining mazmuniga beriladi.

o Bilan/Izoh bilan tugaydi dasturchini bir xil ob'ekt nomini ko'p takrorlashdan qutqaradi.

Sintaksis:

Ob'ekt bilan

operator1

operator2

operatorN

Masalan, gaplar ketma-ketligi o'rniga

UserForm1.TextBox1.Text = Sana

UserForm1.TextBox2.Text = " "

UserForm1.ComboBox1.Text = " "

shunday yozish mumkin

TextBox1.Text = Sana

. TextBox2.Text = " "

. ComboBox1.Text = " "

REM A ustunidagi Sheet1 varag'ida, ikkinchi qatordan boshlab, "xodimlar tariflari" yoziladi. UserForm1 foydalanuvchi formasida ComboBox1 kombinatsiya oynasini to'ldiring

‘Dasturning birinchi qatori – Sheet1 varag‘ida A ustunidagi ‘to‘ldirilgan katakchalar soni hisoblanadi, natija ‘N o‘zgaruvchisiga tayinlanadi.

N=Application.CountA(Sheets(“Sheet1”).Range(“A:A”)).

D=”A2:A”&Cint(N)

Sheets("Sheet1").Range(D).Name="Tariflar"

TextBox1.Text = Sana

. TextBox2.Text = " "

. ComboBox1.Text = " "

. ComboBox1.Rowsource = "Tariflar"

1. Shartli gap If/Then/Else– muayyan holatni tekshirish va tekshirish natijalariga qarab u yoki bu harakatni bajarish imkonini beradi

Sintaksis:

Agar holat Keyin operatorlar1 [ Boshqa operatorlar2]

Agar shart rost bo'lsa, u holda ko'rsatmalar1 bajariladi, aks holda operatorlar2 bajariladi.

Blok sifatida yozilgan murakkab shartli operatordan ham foydalanish mumkin:

Agar shart 1 Keyin

operatorlar 1

ElseIf shart 2 Keyin

operatorlar2

operatorlar 3

Familiya=.TextBox1.Text

Agar familiya ="" Keyin MsgBox"Siz familiyani kiritmagansiz"

REM 1-sonli katakcha belgilansa, mijozga 5% chegirma beriladi

‘ Summa – mijoz tomonidan to‘langan pul summasi

‘ Mahsulot tannarxi Xarajatlar o‘zgaruvchisida saqlanadi

Agar UserForm1.CheckBox1.Value = rost bo'lsa

Miqdor=Xarajat-xarajat*0,05

Boshqa miqdor = Narx

1) REM Tarif belgilangan tarif, Vaqt esa ishlagan vaqt deb faraz qilaylik. Vaqt va tarif mos ravishda TextBox1 va TextBox2 da kiritish maydonlariga kiritiladi. Ish haqi Tarif*Vaqt formulasi bo'yicha hisoblanadi. Hisoblangan ish haqini shaklda aks ettirish dasturini yozamiz. Label4 - "ish haqi qiymatini ko'rsatish" uchun tayyorlangan yozuv

If IsNumeric(TextBox1.Text)=True va _

IsNumeric(TextBox2.Text)=To'g'ri, keyin

Tarif=TextBox1.Text

Vaqt=TextBox2.Text

Label4.Caption=Tarif*Vaqt

Birinchi misolda biz birinchi raqamli foydalanuvchi formasi bilan ishlaymiz. O'zgaruvchan Familiya birinchi raqamli kirish maydonining mazmuni tayinlanadi. Keyin kiritish maydoniga biror narsa kiritilgan yoki yo'qligini tekshiradi (o'zgaruvchi bo'sh yoki yo'qmi) Familiya). Agar o'zgaruvchi bo'lsa Familiya bo'sh bo'lsa, ekranda xabar oynasi ko'rsatiladi.

Ikkinchi misolda, REM so'zi bilan boshlangan birinchi qatorlar va apostroflar o'zgaruvchilarning maqsadini tushuntiruvchi izohlardir. Shartli operator mijoz tomonidan to'langan miqdorni belgilaydi.

Uchinchi misol raqamlar kiritish maydonlariga kiritilganligini tekshiradi. Agar raqamlar ikkita maydonga kiritilgan bo'lsa, u holda o'zgaruvchilarga kirish maydonlarining qiymatlari tayinlanadi va yorliq tarifni vaqtga ko'paytirish natijasining qiymati bilan belgilanadi.

1) Shartsiz o'tish operatori O'tish dastur ichida belgilangan qatorga o'tishni ko'rsatish uchun mo'ljallangan.

Sintaksis:

GoTo String

Kerakli argument String har qanday satr yorlig'i yoki qator raqami bo'lishi mumkin.

Agar IsNumeric(TextBox1.Text)=False bo'lsa, o'tish xatosi

Xato: MsgBox "Raqamlarni kiritishda xato!"

Yuqoridagi misol birinchi kiritish maydoniga raqam kiritilgan yoki yo'qligini tekshiradi. Agar kiritilgan raqam raqam bo'lmasa, u holda Xato yorlig'i bilan chiziq ko'chiriladi va ekranda xabar paydo bo'ladi.

2) sikl operatori Uchun/Kimga/Keyingi takrorlanuvchi fragmentlarni dasturlash uchun mo'ljallangan, ya'ni. siklik algoritmlarni tavsiflash.

Sintaksis:

Uchun o'zgaruvchi=M1 Kimga M2 [ Qadam M3]

operatorlar

M1, M2, M3 – ifodalar. O'zgaruvchi (hisoblagich) M3 ko'rsatilgan qadam bilan M1 boshlang'ich qiymatidan M2 yakuniy qiymatiga o'zgarganda, tsikl bayonoti bir guruh bayonotlarning bajarilishini takrorlaydi. Agar qadam ko'rsatilmagan bo'lsa, u 1 deb qabul qilinadi.

Familiya = Varaqlar ("Xodimlar"). Hujayralar (I,1)

UserForm1.ComboBox1.AddItem Familiyasi

Keltirilgan misolda, "Xodimlar" varag'ining birinchi ustunida birinchi raqamli foydalanuvchi shaklidagi birinchi kombinatsiya ro'yxatiga kiritilishi kerak bo'lgan xodimlarning ismlari mavjud deb taxmin qilinadi. Dasturning ishlash algoritmi:

1) I o'zgaruvchiga 2 qiymati beriladi.

2) Familiya o‘zgaruvchisiga “Xodimlar” varag‘ida joylashgan A(I,1) katak qiymati beriladi. (Tsikl birinchi marta bajarilganda, bu A(2,1) katakdir)

3) ComboBox1 kombinatsiya oynasi ro'yxatiga Familiya o'zgaruvchisidan element qo'shiladi.

4) I o'zgaruvchining qiymatiga 1 qo'shiladi (agar qadam ko'rsatilmagan bo'lsa, u 1 ga teng deb hisoblanadi). Tekshirish I ning qiymati 10 dan oshib ketganligini tekshirish amalga oshiriladi (I o'zgaruvchining yakuniy qiymati, M3=10 misolida)? Agar I qiymati hatto 10 dan kichik yoki teng bo'lsa, u holda 2-4 bosqichlar bajariladi, aks holda tsikl tugaydi.

Shunday qilib, yuqoridagi dastur ComboBox1 ro'yxatini ma'lumotlar bilan to'ldirish imkonini beradi.

Yechishda ishlatiladigan asosiy algoritmlar
iqtisodiy vazifalar

Keling, quyidagi misol yordamida asosiy algoritmlarni ko'rib chiqaylik. Shartnoma bo'yicha ishlarni bajarishda turli bo'limlarning xodimlari ishtirok etishdi. "Sheet1" varag'idagi jadvalda har bir xodim ishlagan soatlar soni to'g'risidagi ma'lumotlar keltirilgan (8-rasm).

8-rasm. Ishlagan soatlar soni bo'yicha ma'lumotlar

kompaniya xodimlari

Bepul dasturlar va foydali maslahatlar dunyosi
2024 whatsappss.ru