Оператори интихоб Select Case
Оператори интихоб Select Case
Яке аз операторхои Visual Basic ин оператори Select Case мебошад. Тарзи кори ин оператор ба тарзи кори операторхои шарти ва даври хело монанди дорад ва тарзи истифодаи оператори Select Case хело содда мебошад. Ба воситаи ин оператор мо метавонем барномаҳои гуногун сатҳаи амалиро созем.
Фармати умумии ин оператор чунин аст:
Select Case номи тағирёбанда
Case интихоби якуми тағирёбанда
«гурӯҳи опраторҳои 1 — ум»
Case интихеоби дуюми тағирёбанда
«гурӯҳи операторҳои 2 — ум»
Case интихоби n — уми тағирёбанда
«гурӯҳи операторҳои n — ум »
Case else
«гурӯҳи операторҳои n +1 — ум »
End select
Барои пурратар омӯхтани оператори Select Case барномаи ёфтани миrдори рӯзҳои солро тартиб медиҳем..
(Барнома)
(Коди барнома)
Private Sub Command1_Click()
a = Val(Text1.Text)
y = a Mod 7
Select Case y
Case 1
Label1.Caption = «Рузи Душанбе»
Case 2
Label1.Caption = «Рузи Сешанбе»
Case 3
Label1.Caption = «Рузи Чоршанбе»
Case 4
Label1.Caption = «Рузи Панчшанбе»
Case 5
Label1.Caption = «Рузи Чумъа»
Case 6
Label1.Caption = «Рузи Шанбе»
Case 7
Label1.Caption = «Рузи Якшанбе»
End Select
End Sub