Percabangan Select Case

Penjelasan Pembuatan:

Private Sub Command1_Click()

Dim grade As String

Dim nilai As Integer               (Deklarasi Variabel dan Tipe Data)

Nilai = val(Text1.Text)

Select Case nilai

Case Is >= 80

grade = “A”

Case Is >= 70

grade = “B”                             (Perintah Percabangan Select-Case)

Case Is >= 60

grade = “C”

Case Is >= 50

Grade = “D"

End Select

Label2.Caption = grade          (Perintah untuk Menampilkan Grade di Label 2)      

End Sub

Private Sub Command2_Click()

Text1.Text = “ “                      (Perintah untuk Refresh Text 1 dan Label 2)

Label2.Caption = “ “

End Sub