SELECT .. CASE

Perintah SELECT CASE mirip seperti perintah IF yaitu untuk membandingkan nilai,

SELECT CASE variabel
    Case Nilai1
        Pernyataan1
    Case Nilai2
        Pernyataan2
    ...
    Case Else
        Pernyataan_Terakhir
END SELECT
    

Contoh penggunaan perintah SELECT CASE:

Module.Module1
    Sub Main()
        Dim a As Integer
        a = 2
        SELECT CASE a
        Case 1
            Console.WriteLine("Nilai1 Terpenuhi")
        Case 2
            Console.WriteLine("Nilai2 Terpenuhi")
        Case 3
            Console.WriteLine("Nilai3 Terpenuhi")
        Case Else
            Console.WriteLine("Tidak ada yang memenuhi syarat")
        END SELECT
    Console.ReadKey()
    End Sub
End Module
    

Jika pernyataan SELECT CASE di atas dijalankan maka akan menampilkan hasil sebagai berikut:

Nilai2 Terpenuhi