Artikel -22
Contoh Program Percabangan Case
Public Class Form1
Private Sub Btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnproses.Click
Select Case nilai.Text
Case
Is >= 80
nh.Text = "A"
Case
70 To 79
nh.Text = "B"
Case
60 To 69
nh.Text = "C"
Case
50 To 59
nh.Text = "D"
Case
Is <= 49
nh.Text = "E"
End Select
End Sub
End Class
Tidak ada komentar:
Posting Komentar