Jumat, 28 Desember 2012

Contoh Program Percabangan Case


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