การทำงานที่ต้องมีเงื่อนไขหลายทิศทาง สามารถนำคำสั่ง if มาซ้อนๆ กัน แต่หากแยกเป็นกรณีการใช้คำสั่ง Select Case จะสะดวกกว่า โดยจะเขียนเงื่อนไขไว้หลังคำสั่ง Selected Case … และตรวจสอบเงื่อนไขกับค่าคงที่หลัก Case ที่ได้ระบุไว้
Select Case เงื่อนไขที่
Case ค่าที่หนึ่ง: นิพจน์คำสั่งที่ 1
Case ค่าที่สอง: นิพจน์คำสั่งที่ 2
Case ค่าที่สาม: นิพจน์คำสั่งที่ 3
Case Else: นิพจน์คำสั่งที่ 4 เมื่อค่าไม่ตรงตามเงื่อนไข
End Select
ตัวอย่าง เป็นการจำลองในการเลือกตัวเลือกเมื่อต้องการ Format drive ซึ่งระบบจะมีข้อความถามเพื่อยืนยัน โดยใช้คำสั่ง if ร่วมกับตัวดำเนินการ OR เมื่อผู้ใช้กดปุ่ม “Y” หรือ “y” และ “N” หรือ “n” เข้าไป แต่หากผู้ใช้ป้อนผิดจะแสดงข้อผิดพลาด
|1| Module Module1
|2|
|3| Sub Main()
|4| Dim grade As String
|5|
|6| Console.Write("Please input your
grade: ")
|7| grade = Console.ReadLine
|8|
|9| Select Case grade
|10| Case "A",
"a" : Console.Write("Your point is 4.0")
|11| Case "B",
"b" : Console.Write("Your point is 3.0")
|12| Case "C",
"C" : Console.Write("Your point is 2.0")
|13| Case "D",
"d" : Console.Write("Your point is 1.0")
|14| Case Else :
Console.Write("Invalid input !!")
|15| End Select
|16|
|17| Console.ReadLine()
|18| End Sub
|19| End Module
การแสดงผล
*********************************************
0 ความคิดเห็น:
แสดงความคิดเห็น