VB HitungNilaiUjian

 Module HitungNilaiUjian

    'Buka HitungNilaiUjian.vbproj

    Sub Main()

        Dim nilaiIndeks As Char

        Dim nilaiUTS As Single, nilaiUAS As Single, nilaiAkhir As Single

        nilaiUTS = InputBox("Masuk nilai UTS:")

        nilaiUAS = InputBox("Masuk nilai UAS:")

        Debug.Print("Nilai UTS = " & nilaiUTS)

        Debug.Print("Nilai UAS = " & nilaiUAS)

        'Rumus untuk hitung nilai akhir ujian

        nilaiAkhir = (0.4 * nilaiUTS) + (0.6 * nilaiUAS)

        'Mengkonversi ke nilai abjad

        If (nilaiAkhir >= 80) Then

            nilaiIndeks = "A"

        ElseIf (nilaiAkhir >= 70) Then

            nilaiIndeks = "B"

        ElseIf (nilaiAkhir >= 50) Then

            nilaiIndeks = "C"

        ElseIf (nilaiAkhir >= 30) Then

            nilaiIndeks = "D"

        Else  '(nilaiAkhir < 30)

            nilaiIndeks = "E"

        End If

        Debug.Print("Nilai Akhir = " & nilaiAkhir)

        Debug.Print("Nilai Abjab = " & nilaiIndeks)

    End Sub

End Module