Struktur Kontrol Select…Case

Struktur logika Select Case tidak jauh berbeda dengan logika if, Select case lebih memungkinkan untuk kondisi lebih banyak dari struktur if 

Bentuk penulisan (syntax) struktur SELECT…CASE :

SELECT CASE <Pilihan>

CASE <Pilihan 1>
    <statement 1>

CASE <Pilihan 2>
    <statement 2>

CASE <Pilihan n>
    <statement n>

[CASE ELSE] <Pilihan x>
    <statement x>]

END SELECT

Bila <Pilihan> sesuai dengan <Pilihan 1> maka <statement 1> akan dikerjakan, dst. Tetapi bila <Pilihan> tidak ada yang sesuai dengan <Pilihan 1> s/d <Pilihan n>  maka <statement x> yang akan dikerjakan.

PRAKTIKUM :

Desain Form seperti gambar berikut :

Pada komponen ComboBox Combo1, isi properties list dengan list

Makan

Tidur

Jalan-jalan

Shoping

Chating

Seperti pada gambar berikut :

Kemudian Ketik Listing Program berikut :

Private Sub Command1_Click()
    Dim nm As String
    Dim pil As String
    nm = Text1.Text
    pil = Combo1.ListIndex
    Select Case pil
        Case 0
            Text2.Text = "Hallo " + nm + ", Anda Suka Makan kan??"
        Case 1
            Text2.Text = "Hallo " + nm + ", Anda Suka Tidur kan??"
        Case 2
            Text2.Text = "Hallo " + nm + ", Anda Suka Jalan-jalan kan??"
        Case 3
            Text2.Text = "Hallo " + nm + ", Anda Suka Shoping kan??"
        Case 4
            Text2.Text = "Hallo " + nm + ", Anda Suka Chating kan??"
        Case Else
            Text2.Text = "Hallo " + nm + ", Anda Suka Fban kan??"
    End Select
End Sub


Jalankan Program