True ва False шартларини =айта ишлаш.
Агар True ва False шартлари учун, яъни иккала щолат учун щам операторлар тыпламини ишлатиш лозим былса, у холда =уйидаги форматга эга былган шартдан фойдаланилади:
If condition Then
True холи учун бажариладиган операторлар
Else
False холи учун бажариладиган операторлар
End If
Бу ерда шарт (condition) бажарилса Then дан Else гача былган операторлар тыплами, агар шарт (condition) бажарилмаса Else дан End If гача былган операторлар тыплами бажарилади.
Select Case операторидан фойдаланиш.
Дастурлашда текширишнинг яна бир усули бу Select Case операторини =ыллаш. У ызгарувчининг =ийматига бо\ли= равишда бир нечта операторлар кетма-кетлигидан бирини танлаш имкониятини беради. Select Case оператори хисобланувчи ызгарувчини беради. Кейин эса операторлар кетма-кетлиги мумкин былган =ийматни хисоблайди. Агар хисобланган ызгарувчининг =иймати Case операторида ани=ланган =ийматлардан бирига ты\ри келса, дастурнинг бажарилиш тартиби ана шу Case дан кейинда турган операторга берилади. Select Case нинг ёзилиш формати =уйидагича:
Select Case <ызгарувчи>
Case <1-=иймат>
(1-операторлар гурухи)
Case <2-=иймат>
(2-операторлар гурухи)
End Select
Бунда ызгарувчи ани= бир =ийматга тенг былгандагина тегишли операторлар гурухи бажарилади. Агар бош=а =иймат учун, яъни, ызгарувчи олаётган =иймат Case да келтирилган =ийматлардан бош=ача былганда хам бирор операторлар гурухи хисобланиши керак былса, у холда Case Else дан фойдаланишга ты\ри келади:
Select Case <ызгарувчи>
Case <1-=иймат>
(1-операторлар гурухи)
Case <2-=иймат>
(2-операторлар гурухи)
Case Else
(=ийматдан таш=ари операторлар гурухи)
End Select
Цикл (такрорлаш) операторлари.
Бош=арув операторларидан яна бир асосийси бу цикл операторларидир. Цикл операторлари дастурда такрорланувчи жараёнларни хисоблашда фойдаланилади. Visual Basic циклнинг асосий иккита типига эга? Хисобловчи (йи\увчи) цикл ва шартли цикл. Бу цикллар ха=ида батафсилро= тыхталиб ытамиз.
For операторидан фойдаланиш
Хисобловчи цикллар For ёки ForNext деб хам аталади. Бу эса циклдан чи=иш For ва Next операторлари билан ани=ланишини белгилайди. For циклининг бошида ызгарувчи-хисобчи ёзилади, ундан кейин унинг бошлан\ич ва охирги =ийматлари ёзилади:
For <ызгарувчи><бошлан\ич =иймат> То <охирги =иймат>
{Цикл танаси}
Next <ызгарувчи>
Агар ызгарувчининг бошлан\ич =иймати охирги =ийматдан катта былса, у холда цикл бирор марта хам бажарилмайди. Ушбу циклда ызгарувчининг ызгариш =адами бирдан фар=ли былса, у холда =адамни бериш учун Step ёрдамчи сызидан фойдаланилади:
For <ызгарувчи><бошлан\ич =иймат> То <охирги =иймат> Step <ызгариш =адами>
{Цикл танаси}
Next <ызгарувчи>
For циклидан фойдаланишни =уйидаги мисолда кыриб ытайлик:
йи\индини хисоблаш дастурини тузинг.
Dim s, i As Integer
For i = 1 To 10
s = s + i ^ 2
Next i
MsgBox s
Ызгарувчи охирги =ийматни =абул =илмасдан аввалро= цикл ишини якунлаш хам мумкин. Бунинг учун Exit For операторидан фойдаланилади.
Do While операторидан фойдаланиш
Do While операторидаги While калит сызи шартнинг =иймати True га тенг былган ва=тда цикл иши давом эттирилишини кырсатади. Агар шарт False =ийматга эга былса цикл ыз ишини якунлайди.
Do While <шарт>
{цикл танаси}
Loop
Бундан таш=ари Do Until цикл оператори хам мавжуд былиб, у шартни бажарилиш жихатидан Do While айнан тескари холатда ишлайди. Яъни цикл шарт True =ийматга эга былганда ыз ишини якунлайди.
Do Until <шарт>
{цикл танаси}
Loop
Ю=оридаги мисолни Do While ва Do Until ёрдамида бажариб кырайлик:
| 