คําสั่งที่ใช้ในการตัดสินใจเลือกทํา (Decision Statements)
เป็นคําสั่งที่ใช้ในการตัดสินใจเลือกทิศทางการทํางานของโปรแกรม สามารถสรุปได้ดังนี้
1. If…Then… เป็นการตัดสินใจหนึ่งทางเลือก
2. If…Then…Else… เป็นการตัดสินใจเลือกในกรณีที่มีสองทางเลือก
3. If ซ้อน If เป็นการตัดสินใจเลือกในกรณีที่มากกว่าสองทางเลือก
4. Select…Case เป็นการตัดสินใจเลือกในกรณีที่มากกว่าสองทางเลือก
1. If…Then
เป็นคําสั่งตัดสินใจเลือกที่มีทางเลือก คือ ทําหรือไม่ทําคําสั่งชุดนั้น โดยตรวจสอบเงื่อนไขก่อน ซึ่ง
สามารถอธิบายได้ดัง Flow Chart ต่อไปนี้
รูปแบบคําสั่ง เป็นดังนี้
if <เงื่อนไข> then
<ชุดคำสั่งที่เป็นจริง>
End if
ตัวอย่างการใช้คําสั่ง If…Then
Dim score As single
score = txt1.text
if score >= 70 then
messagebox.show(score.tostring + "มากกว่าหรือเท่ากับ 70")
End if
txt1.text = ""
txt1.focus()
End sub
เงื่อนไขในตัวอย่างนี้คือ score >= 70 ซึ่งถ้าเป็น True โปรแกรมจะทําคําสั่งหลัง Then นั่นคือ จะ
แสดงข้อความใน MessageBox แต่ถ้าเงื่อนไขเป็น False จะไม่ทําคําสั่งหลัง Then แต่จะไปทําคําสั่งในบรรทัด
ถัดไปทันทีคือ คําสั่ง txt1.Text = “” และ txt1.Focus()
2. If…Then…Else…
เป็นคําสั่งที่ใช้ในการตัดสินใจเลือกจากทางเลือก 2 ทางเลือก ถ้าเงื่อนไขเป็นจริง ก็ให้ทําชุดคําสั่งหนึ่ง
แต่ถ้าเงื่อนไขเป็นเท็จให้ทําอีกชุดคําสั่งหนึ่ง ซึ่งสามารถอธิบายได้ดัง Flow Chart ต่อไปนี้
รูปแบบคําสั่ง เป็นดังนี้
If <เงื่อนไขที่กําหนด> Then
<ชุดคําสั่งที่ให้ทํา เมื่อเงื่อนไขเป็นจริง (True)>
Else
<ชุดคําสั่งที่ให้ทํา เมื่อเงื่อนไขเป็นเท็จ (False)>
End If
ตัวอย่างการใช้คําสั่ง If…Then…Else…
Dim score As single
score = txt1.text
if score > 70 then
messagebox.show(score.tostring + "มากกว่า 70")
Else
messagebox.show(score.tostring + "น้อยกว่า 70")
End if
txt1.text = ""
txt1.Focus()
End Sub
ความคิดเห็น
แสดงความคิดเห็น