Pemilihan dengan CASE

Salah satu model percabangan adalah percabangan index atau yang dikenal dengan pemilihan berindex, dalam visual Basic percabangan index ini menggunakan Select Case dengan format:


Select Case <variable>
Case 0;
        <Proses untuk keadaan variabel=0>
Case 1;
        <Proses untuk keadaan variabel=1>
Case 2;
        <Proses untuk keadaan variabel=2>

Case 3;
        <Proses untuk keadaan variabel=3>
.................................
End Select

Contoh
Departemen di sebuah perusahaan dikodekan dengan nomor urut sebagai berikut:
1: Akuntasi
2: Marketing
3: Gudang
4: Kasir

Dengan memasukkan kode departemen, akan ditampilkan nama departemen. Hal ini dapat dilakukan dengan:

Select Case kodeDepartemen 
Case 1: 
     namaDepartemen = ”Akuntasi” 
Case 2: 
     namaDepartemen = ”Marketing” 
Case 3: 
     namaDepartemen = ”Gudang” 
Case 4: 
     namaDepartemen = ”Kasir” 
End Select