Percabangan NESTED IF (IF - THEN - ELSE) di VB.NET (Console)

STRUKTUR NESTED IF

Pada kondisi pemrograman tertentu di dalama struktur IF – THEN atau IF – THEN – ELSE dapat ditempatkan struktur IF – THEN atau IF – THEN – ELSE yang lain. Bentuk semacam ini disebut dengan IF Bersarang atau Nested IF. Bentuk penulisan dari IF Bersarang dengan struktur IF – THEN atau IF – THEN – ELSE sebagai berikut :

IF (kondisi 1) Then
IF (kondisi 2) Then
Ekspresi 1
End IF
Else
IF (kondisi 3) Then
Ekspresi 2
End IF
End IF
IF (kondisi 1) Then
IF (kondisi 2) Then
Ekspresi 1
Else
Ekspresi 2
End IF
Else
IF (kondisi 3) Then
Ekspresi 3
Else
Ekspresi 4
End IF
End IF

Keterangan :

Kondisi 1 : berisi perbandingan antara satu variable/konstanta dengan variable/konstanta yang lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang menghasilkan nilai “Benar” atau “Salah”.
Kondisi 2 : kondisi yang dikerjakan jika kondisi 1 terpenuhi.
Kondisi 3 : kondisi yang dikerjakan jika kondisi 1 tidak terpenuhi.
Ekspresi 1 : rangkaian kode program (blok program) yang akan dijalankan jika kondisi 2 bernilai “Benar” (memenuhi syarat).
Ekspresi 2 : rangkaian kode program (blok program) yang akan dijalankan jika kondisi 2 bernilai “Salah” (tidak memenuhi syarat)

Contoh Program :

Imports System.Console
Module Module1
Sub Main ()
Dim Usia As Integer
Dim Ket As String
Write (“Usia Anda : “)
Usia = Readline()
If Usia <= 5 Then
Ket = “BALITA”
Else
If Usia <=16 Then
Ket = “ANAK-ANAK”
Else
If Usia <= 24 Then
Ket = “REMAJA”
Else
Ket = “DEWASA”
End If
End If
End If
Write (“Keterangan : “&ket)
Readline()
End Sub
End Module