Program Menghitung Nilai DNS pada Console Aplication

Module Module1

    Sub Main()
        Dim UTS, UAS As Integer
        Dim Nilai As Long
        Console.Write("Masukan Nilai UTS Anda: ")
        UTS = Console.ReadLine
        Console.Write("Masukan Nilai UAS Anda: ")
        UAS = Console.ReadLine
        Console.WriteLine("===========================")
        Console.WriteLine("")

        Nilai = (0.7 * UTS) + (0.3 * UAS)

        Select Case Nilai
            Case Is >= 80
                Console.WriteLine("      Selamat Anda LULUS!")
                Console.WriteLine(" Nilai Anda Pada DNS adalah: A")
            Case Is >= 70
                Console.WriteLine("     Selamat Anda LULUS!")
                Console.WriteLine(" Nilai Anda Pada DNS adalah: B")
            Case Is >= 60
                Console.WriteLine("      Selamat Anda LULUS!")
                Console.WriteLine(" Nilai Anda Pada DNS adalah: C")
            Case Is >= 50
                Console.WriteLine("      Selamat Anda LULUS!")
                Console.WriteLine("     Nilai Anda Pada DNS adalah: D")
            Case Else
                Console.WriteLine("      Maaf Anda TIDAK LULUS!")
        End Select
        Console.Write("     Anda Mendapat Nilai: ")
        Console.WriteLine(Nilai)
        Console.WriteLine("===============================")
        Console.ReadLine()
    End Sub


End Module






Contoh:


Masukan Nilai UTS Anda: 80
Masukan Nilai UAS Anda: 70
===========================

     Selamat Anda LULUS!
 Nilai Anda Pada DNS adalah: B
     Anda Mendapat Nilai: 77
===============================