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

test

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *