contoh soal fungsi case

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("14110191")
        npm.Items.Add("14110192")
        npm.Items.Add("14110193")
        npm.Items.Add("14110194")
        npm.Items.Add("14110195")


        matakuliah.Items.Add("Konsep Pemrograman")
        matakuliah.Items.Add("Pemrograman Html")
        matakuliah.Items.Add("Manajemen Umum")
        matakuliah.Items.Add("Teknik Digital")
        matakuliah.Items.Add("Imk")

        For i = 1 To 8
            semester.Items.Add(i)

        Next


    End Sub

    Private Sub cek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cek.Click
        Select Case nilaiangka.Text
            Case Is >= 80
                nilaihuruf.Text = "A"
                ket.Text = "nilai anda memuaskan"
            Case 70 To 79
                nilaihuruf.Text = "B"
                ket.Text = "pertahankan nilai anda"
            Case 60 To 69
                nilaihuruf.Text = "C"
                ket.Text = "anda harus mengulang"
            Case 50 To 59
                nilaihuruf.Text = "D"
                ket.Text = "anda harus mengulang"
            Case Is <= 50
                nilaihuruf.Text = "E"
                ket.Text = "anda harus mengulang lagi"





        End Select
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        npm.Text = ""
        nama.Text = ""
        matakuliah.Text = ""
        semester.Text = ""
        nilaiangka.Text = ""
        nilaihuruf.Text = ""






    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "14110191"
                nama.Text = "yanggi"
            Case Is = "14110192"
                nama.Text = "dyah"
            Case "14110193"
                nama.Text = "restu"
            Case "14110194"
                nama.Text = "mita"
            Case Else
                nama.Text = "sisi"
        End Select
    End Sub
End Class