Ex.11 การเลือกทำแบบ if…ElseIf…

การทำงานของฟังก์ชั่น if.. ElseIf แบบหลายทางเลือกจะทำการเปรียบเทียบ ถ้าเงื่อนไขที่ 1 เป็นจริงจะทำงานในนิพจน์ที่ 1 หากเป็นเท็จจะเปรียบเทียบเงื่อนไขที่ 2 ไปเรื่อยจนกว่าจะครบทุกเงื่อนไข

รูปแบบ 

If  เงื่อนไขที่ 1  Then
    นิพจน์ที่ 1 จะทำงานเมื่อเงื่อนไขเป็น จริง
Elseif เงื่อนไขที่ 2  Then
    นิพจน์ที่ 2 จะทำงานเมื่อเงื่อนไขเป็น เท็จ
Else
     นิพจน์ที่ 3  หากไม่มีเงื่อนไขใดเป็นจริง
End if

ตัวอย่าง  โปรแกรมตัดเกรด แบบ 5 เกรด (A-E) ตามเงื่อนไขของคะแนนคือ ถ้าคะแนนตั้งแต่ 80 ขึ้นไปผลลัพธ์คือ A , ถ้าคะแนนตั้งแต่ 70 ขึ้นไปผลลัพธ์คือ B  ถ้าคะแนนตั้งแต่ 60 ขึ้นไปผลลัพธ์คือ C , ถ้าคะแนนตั้งแต่ 50 ขึ้นไปผลลัพธ์คือ D  ถ้าน้อยกว่า 50 ผลลัพธ์คือ E , และหากไม่ตรงเงื่อนไขใดๆ ผลลัพธ์คือ Error 

|1|     Module Module1

|2|    

|3|         Sub Main()

|4|             Dim score As Integer = 70

|5|             Dim result As String

|6|    

|7|             If score >= 80 Then

|8|                 result = "A"

|9|             ElseIf score >= 70 Then

|10|                result = "B"

|11|            ElseIf score >= 60 Then

|12|                result = "C"

|13|            ElseIf score >= 50 Then

|14|                result = "D"

|15|            ElseIf score < 50 Then

|16|                result = "E"

|17|            Else

|18|                result = "Error"

|19|            End If

|20|           

|21|       Console.WriteLine("Grade is {0}", result)

|22|            Console.ReadLine()

|23|        End Sub

|24|    End Module

การแสดงผล

นักศึกษาทดลองเปลี่ยนแปลงค่าคะแนนจาก 70 เป็นคะแนนอื่น หรือ เขียนคำสั่งเพิ่มเติมเพื่อรับค่าคะแนนจะแป้นคีย์บอร์ด

********************************************************