Struktur Keputusan Pada Visual basic

Struktur keputusan yang didukung oleh Visual Basic adalah sebagai berikut :

If...Then
Gunakan suatu struktur If...Then untuk menjalankan suatu pernyataan secara kondisional.
Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris :
If kondisi Then pernyataan
atau
If kondisi Then
pernyataan-pernyataan
End If
Kondisi biasanya berupa suatu perbandingan, maupun ekspresi yang menghasilkan nilai
numerik. Visual Basic menginterpretasikan False sebagai nol (0), dan True sebagai bukan
nol.


If...Then...Else
Gunakan If…Then…Else untuk mendefinisikan beberapa blok pernyataan yang akan
dijalankan salah satu berdasarkan kondisi yang memenuhi syarat

If kondisi1 Then[blok pernyataan-1]
[ElseIf kondisi2 Then
[blok pernyataan-2]] ...
[Else
[blok pernyataan-n]]
End If

Visual Basic awalnya akan mencoba kondisi1. Jika False, maka Visual Basic akan
memeriksa kondisi2, dan seterusnya sampai menemukan suatu kondisi True untuk
dijalankan blok pernyataannya. 
Contoh :

If JlhRec > 0 Then
Posisi = 1
Else
Posisi = 0
End If

Select Case

Visual Basic menyediakan struktur Select Case sebagai suatu alternatif terhadap
If...Then...Else. Suatu Select Case statement memiliki kemampuan yang sama dengan
If…Then…Else…, tetapi membuat code lebih mudah dibaca.

Struktur Select Case bekerja dengan suatu percobaan tunggal yang hanya dievaluasi satu
kali pada bagian atas struktur. Visual Basic then membandingkan hasil ekspresi dengan
nilai pada setiap Case didalam struktur tersebut, jika ada yang sesuai, akan dijalankan
blok statement yang sesuai

Select Case ekspresiyangdicoba
[Case ekspresi1
[blokpernyataan-1]]
[Case ekspresi2
[blokpernyataan-2]]
…
[Case Else
[blokpernyataan-n]]
End Select

Contoh :

Select Case x
Case 0: angka = "Nol"
Case 1:
If posisi = 1 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select