ให้นักเรียนฝึกเขียนโปรแกรมเงื่อนไข
ตัวอย่าง 3 เงื่อนไข
if ………..เงื่อนไข ……….then
จริงทำ…………………………………………..
ถ้าไม่จริงไปเช็คเงื่อนไขต่อไป
else if …..เงื่อนไข …….. then
จริงทำ…………………………………………..
else
นอกเหนือจากนั้นทำ………………………………..
end if
แนวคิด
Dim h, w, bmi AsSingle ‘ ประกาศตัวแปรเป็นประเภททศนิยม
w = txt_w.Text
h = txt_h.Text
bmi = w / (h / 100) ^ 2 ‘ คำนวณตามสูตร
lbl_bmi.Text = bmi
If bmi >= 30 Then
lbl_result.Text =“อ้วน”
ElseIf bmi >= 25 Then
lbl_result.Text =“น้ำหนักเกิน”
ElseIf bmi >= 23 Then
lbl_result.Text =“ท้วม”
ElseIf bmi >= 18.5 Then
lbl_result.Text =“สมส่วน”
Else
lbl_result.Text =“ผอม”
EndIf