tugas anjing

Public Class IP
    Public nilaimatakuliah, jumlahsks As Integer
    Public nilaihuruf, list(5) As String
    Public nilaiangka, sksXangka, totalip As Double

    Private Sub btnINPUT_Click(sender As System.Object, e As System.EventArgs) Handles btnINPUT.Click
        nilaimatakuliah = Val(TextNiMatKul.Text)
        jumlahsks = TextSKS.Text
        If nilaimatakuliah <= 46 Then
            nilaihuruf = "E"
            nilaiangka = 0
        ElseIf nilaimatakuliah <= 55 Then
            nilaihuruf = "D"
            nilaiangka = 1
        ElseIf nilaimatakuliah <= 60 Then
            nilaihuruf = "CD"
            nilaiangka = 1.5
        ElseIf nilaimatakuliah <= 65 Then
            nilaihuruf = "C"
            nilaiangka = 2
        ElseIf nilaimatakuliah <= 70 Then
            nilaihuruf = "BC"
            nilaiangka = 2.5
        ElseIf nilaimatakuliah <= 75 Then
            nilaihuruf = "B"
            nilaiangka = 3
        ElseIf nilaimatakuliah <= 80 Then
            nilaihuruf = "AB"
            nilaiangka = 3.5
        Else
            nilaihuruf = "A"
            nilaiangka = 4
        End If
        sksXangka = nilaiangka * jumlahsks

        list(0) = TextMatKul.Text
        list(1) = nilaimatakuliah
        list(2) = jumlahsks
        list(3) = nilaihuruf
        list(4) = nilaiangka
        list(5) = sksXangka
        LVKeseluruhan.Items.Add(New ListViewItem(list))

        For i = 0 To LVKeseluruhan.Items.Count - 1
            totalip = val(LVKeseluruhan.Items(i).SubItems(5).Text) / Val(LVKeseluruhan.Items(i).SubItems(2).Text)
            TextIP.Text = totalip
        Next
    End Sub

    Private Sub btnCLEAR_Click(sender As System.Object, e As System.EventArgs) Handles btnCLEAR.Click
        LVKeseluruhan.Items.Clear()
        TextIP.Clear()
    End Sub
End Class