Percabangan(Branching)

Dim iUmur As Integer
iUmur = 20

If iUmur >= 17 Then
  MsgBox "dewasa"
Else
  MsgBox "masih bau  kencur"
End If

'----------------


Dim iUmur As Integer

iUmur = 20

Select Case iUmur
Case Is >= 17
  MsgBox "dewasa"
Case Else
  MsgBox "masih bau kencur"
End Select

'------------


Dim iNilai As Integer
Dim sHuruf As String
iNilai = 80

If iNilai >= 50 And iNilai <= 60 Then
  sHuruf = "D"
ElseIf iNilai >= 61 And iNilai <= 70 Then
  sHuruf = "C"
ElseIf iNilai >= 71 And iNilai <= 80 Then
  sHuruf = "B"
ElseIf iNilai >= 81 And iNilai <= 90 Then
  sHuruf = "A"
Else
  sHuruf = "di luar kriteria"
End If

MsgBox sHuruf

'--------------------


Dim iNilai As Integer
Dim sHuruf As String

iNilai = 80

Select Case iNilai
  Case 50 To 60
    sHuruf = "D"
  Case 61 To 70
    sHuruf = "C"
  Case 71 To 80
    sHuruf = "B"
  Case 81 To 90
    sHuruf = "A"
  Case Else
    sHuruf = "di luar kriteria"
End Select

MsgBox sHuruf

DOWNLOAD SAMPEL