Aplikasi Nilai akhir Mahasiswa Pada VB.NET 2005 Console Application

Aplikasi Nilai akhir Mahasiswa Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim nm, nmmk, ket As String
        Dim ntgs, nabsen, nuts, nuas, ntotal As Double
        WriteLine("NILAI AKHIR MAHASISWA")
        WriteLine("---------------------")
        Write(" MASUKAN NAMA ANDA   : ")
        nm = Readline()
        Write(" NAMA MATA KULIAH    : ")
        nmmk = ReadLine()
        Write(" MASUKAN NILAI TUGAS : ")
        ntgs = ReadLine()
        Write(" MASUKAN NILAI ABSEN : ")
        nabsen = ReadLine()
        Write(" MASUKAN NILAI UTS   : ")
        nuts = ReadLine()
        Write(" MASUKAN NILAI UAS   : ")
        nuas = ReadLine()
        ntotal = ntgs * 0.1 + nabsen * 0.1 + nuts * 0.3 + nuas * 0.5
        WriteLine()
        If ntotal >= 65 Then
            ket = "LULUS"
        Else
            ket = "GAGAL"
        End If
        Write("TOTAL NILAI ANDA ADALAH : " & ntotal)
        WriteLine()
        Write("KETERANGAN : ANDA " & ket)
        ReadLine()

    End Sub

End Module