penilaian mahasiswa

desain lah form sebagai berikut :

Public Class penilaian

    Private Sub penilaian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110443")
        npm.Items.Add("12110549")
        npm.Items.Add("12110331")
        npm.Items.Add("12110884")

        kdosen.Items.Add("MS001")
        kdosen.Items.Add("KS002")
        kdosen.Items.Add("TL003")

        kmatakuliah.Items.Add("VB")
        kmatakuliah.Items.Add("PH")
        kmatakuliah.Items.Add("SDB")

        Dim N As Integer
        For N = 100 To 1 Step -5
            nkehadiran.Items.Add(N)
            ntugas.Items.Add(N)
            nuts.Items.Add(N)
            nuas.Items.Add(N)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110443"
                nama.Text = "Maya Lestari"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
            Case "12110549"
                nama.Text = "Nuri Monika"
                jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110331"
                nama.Text = "Shania Junianatha"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
            Case "12110884"
                nama.Text = "Sonya Pandarmawan"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
        End Select
    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged
        Select kdosen.Text
            Case "MS001"
                ndosen.Text = "Mesran,M.Kom"
            Case "KS002"
                ndosen.Text = "Kristian Siregar M.kom"
            Case "TL003"
                ndosen.Text = "Toni Limbong,M.Kom"
        End Select
    End Sub

    Private Sub kmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatakuliah.SelectedIndexChanged
        Select Case kmatakuliah.Text
            Case "VB"
                mkuliah.Text = "Visual Basic"
            Case "PH"
                mkuliah.Text = "Pemograman HTML"
            Case "SDB"
                mkuliah.Text = "Sistem Basis Data"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If nakhir.Text = "" Then
            nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text
            nakhir.Focus()
        End If
        If nakhir.Text >= 50 Then
            ket.Text = "Lulus"
        Else
            ket.Text = "Gagal"
        End If
        If nakhir.Text >= 80 Then
            nhuruf.Text = "A"
        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "C"
        ElseIf nakhir.Text >= 50 Then
            nhuruf.Text = "D"
        Else
            nhuruf.Text = "E"
        End If
    End Sub
    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kdosen.Text = ""
        ndosen.Text = ""
        kmatakuliah.Text = ""
        mkuliah.Text = ""
        nkehadiran.Text = ""
        ntugas.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        ket.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub
End Class

dan hasilnya seperti ini :