Contoh Coding Select Case

Maker : Hanurita Christy


Private Sub Command1_Click()
Dim kb As String
Select Case Text1.Text
Case "A"
nb = "Anggur"
harga = 20000
Case "J"
nb = "Jeruk"
harga = 8000
Case "D"
nb = "Delima"
harga = 15000
End Select
Label4.Caption = nb
Label5.Caption = harga
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub