If-Else Statement

penyataan if-else yang simple

If Then
Tindakan 1
Else
Tindakan 2
End If

if-else ni ibarat kata...kita nak buat pilihan tapi kena ikut syarat.

contohnya time poket kering...(loan tak masuk lagi)...nak makan kena memilih tempat cket..tak boleh la redah restoran mahal jek..

setelah di olah ke bahasa VB

If duit > 50 Then
makan = "KFC boleh lagi"
Else
makan = "Makan kat Sally je la"
End If

sepatah dua 'code' buat studentku

Public Sub PontengKelas_Click( )

jamPonteng = Inputbox ("Berapa jam dah ponteng kelas?","Jam Ponteng")

select Case val(jamPonteng)
case is >= 13
Print "SURAT TUNJUK SEBAB"
case is = 12
Print "SURAT AMARAN 2"
case is >= 4
Print "SURAT AMARAN 1"
end select

End Sub