Membuat sebuah program untuk mengitung nilai huruf dari sekumpulan mahasiswa yang datanya disimpan ke dalam sebuah array. Data yang diinpu adalah NIM, Nama, UTS, TGS, UAS. Data mahasiswa diinput melalui keyboard dengan n sebagai banyaknya mahasiswa.

NA = 30% UTS+30%TGS+40%UAS
NH = "A" | 100 >= NA > 90
NH = "B+" | 90 >= NA > 80
NH = "B" | 80 >= NA > 70
NH = "C+" | 70 >= NA > 60
NH = "C" | 60 >= NA > 50
NH = "D" | NA >= 50

Rumus lihat dibawah ini :

Structure mahasiswa
        Dim nama As String
        Dim i, nim, uts, uas, tgs As Integer
        Dim na As Single
        Dim nh As String

    End Structure

    Sub Main()
        Dim mhs() As mahasiswa
        Dim n As Integer

        Console.Write("Masukkan Jumlah Mahasiswa  : ")
        n = Console.ReadLine

        ReDim mhs(n - 1)

        For i = 0 To mhs.GetUpperBound(0)
            Console.Write("NIM Mahasiswa ke-" & i + 1 & ": ")
            mhs(i).nim = Console.ReadLine
            Console.Write("Nama Mahasiswa Ke-" & i + 1 & ": ")
            mhs(i).nama = Console.ReadLine
            Console.Write("Nilai UTS : ")
            mhs(i).uts = Console.ReadLine
            Console.Write("Nilai Tugas : ")
            mhs(i).tgs = Console.ReadLine
            Console.Write("Nilai UAS : ")
            mhs(i).uas = Console.ReadLine

            mhs(i).na = 0.3 * mhs(i).uts + 0.3 * mhs(i).tgs + 0.4 * mhs(i).uas

            If 90 < mhs(i).na Then
                mhs(i).nh = "A"
            ElseIf 80 < mhs(i).na Then
                mhs(i).nh = "B+"
            ElseIf 70 < mhs(i).na Then
                mhs(i).nh = "B"
            ElseIf 60 < mhs(i).na Then
                mhs(i).nh = "C+"
            ElseIf 50 < mhs(i).na Then
                mhs(i).nh = "C"
            Else
                mhs(i).nh = "D"
            End If

            Console.WriteLine(StrDup(50, "="))
            Console.WriteLine()

        Next
        Console.Clear()

        Console.ReadKey()
    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!