Related Articles
Оператори интихоб 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