Ўзбекистон республикаси олий ва ўрта махсус таълим вазирлиги низомий номидаги тошкент давлат

“Module1” ни босганда мониторда қуйидаги ҳосил бўлади. 
Бу ерда Sub Макрос1() ва End Sub операторлар орасида дастур жой-
лашади, яъни дастур операторлари шу жойда ёзилади. Дастурлар Visual Basic 
операторлари орқали тузилади. Visual Basic да изоҳлар « » белгилари орқали 
берилади. Visual Basic да хатосиз ёзилган операторлар кўк ранг билан бўялган 
бўлади, акс ҳолда у хато ёзилган ҳисобланади. Агар оператор кичик ҳарф билан 
ёзилган бўлса, унинг биринчи ҳарфи катта ҳарфга алмаштирилади. Бу эса хато 
ёзилган операторни тез топиш ва тузатиш имконини беради. 
 
Мисол тариқасида айлана узунлиги ва доира юзасини ҳисоблаш дастурини 
Visual Basic да тузиш ва уни бажариш жараёнини кўриб чиқамиз. Буни 
қуйидагича амалга оширамиз. 

---

175 
1) Excel дастурини ишга туширамиз ва унда қуйидагиларни киритамиз 
 
 
 
 
 
 
 
 
 
 
2) Модул очамиз ва унинг варағини чиқарамиз 
Унинг варағи қуйидагича кқринишда бўлади: 
3) “Sub Макрос1()” ва “End Sub” операторлари орасига қуйидаги 
сатрларни терамиз 

---

176 
Бу ерда R=Лист1.Cells(5,7) оператор R нинг қиймати F5, яъни 7 устун ва 5 
сатрда, пи = Лист1.Cells(6, 7) оператор эса π нинг қиймати F6, яъни 7 ус-тун 6 
сатрдаги ячейкада берилишини, Лист1.Cells(10, 7) = l оператор L нинг қиймати
F10, яъни 7 устун ва 10 сатрдаги, Лист1.Cells(11, 7) = s оператор эса S нинг 
қиймати F11, яъни 7 устун ва 11 сатрдаги ячейкада чоп этилишини
англатади. 
4) Excel дастурини очиб параметрларга, яъни R ва π га қиймат берамиз 
 
5) Модулни ишга тушириш ва натижани олиш учун ctrl+z тугмачаларини 
биргаликда босамиз, экранда қуйидаги натижа ҳосил бўлади. 

---

177 
R нинг бошқа қийматларида дастурни бажариш учун F5 ячейкага ихтиёрий 
қиймат киритиб, ctrl + z тугмачалари босилади. Бунга ўхшаш мисолларни кўплаб 
келтириш мумкин.
Информатика дарсларида Excel дастури асосида Visual Basicда модуллар 
яратиш жараёнини ўрганиш талабаларда замонавий дастурий воситаларнинг 
имкониятларини кенроқ ўрганиш ва фойдаланиш имконини яратади.