Fungsi Pemilihan

Pemilihan adalah sebuah kondisi dimana satu atau lebih baris program akan dieksekusi jika memenuhi kondisi tertentu. Jika kondisi tidak terpenuhi, maka program akan mengeksekusi baris program berikutnya.

Macam-macam struktur pemilihan:

1. IF ... THEN
• If (kondisi) Then (statemen1)
• If (kondisi) Then
  (statemen1)
  (statemen2)
  End If
• If (kondisi) Then
  (statemen1)
  Else
  (statemen2)
  End If
• If (kondisi1) Then
  (statemen1)
  Else If (kondisi2) Then
  (statemen2)
  Else
  (statemen3)
  End If
2. SELECT ... CASE : digunakan bila terjadi banyak kondisi. Merupakan penyederhanaan dari If Then Else.
   

Select Case (kondisi yang dites)
Case (memenuhi kondisi1)
(statemen1)
Case (memenuhi kondisi2)
(statemen2)
Case Else
(statemen3)
End Select

Contoh Program
>> Form

>> Code

Private Sub Command1_Click()
Dim Nilai As Single
Dim NilaiHuruf As String
Nilai = Text1.Text
If Nilai < 6 Then
NilaiHuruf = "D"
ElseIf Nilai >= 6 And Nilai < 7 Then
NilaiHuruf = "C"
ElseIf Nilai >= 7 And Nilai < 8 Then
NilaiHuruf = "B"
Else
NilaiHuruf = "A"
End If
Text2.Text = NilaiHuruf
End Sub

Private Sub Command2_Click()
Dim Nilai As Single
Dim NilaiHuruf As String
Nilai = Text1.Text
Select Case Nilai
Case Is < 6
NilaiHuruf = "D"
Case Is < 7
NilaiHuruf = "C"
Case Is < 8
NilaiHuruf = "B"
Case Else
NilaiHuruf = "A"
End Select
Text2.Text = NilaiHuruf
End Sub