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
Komentar
Posting Komentar