Aplikasi Nilai Ujian Mahasiswa Pada VB.NET 2005 Console Application

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

Imports System.Console
Module Module1

    Sub Main()
        Dim noujian, nama, jk, jeniskelamin, angkatan, namamk, mk, ruang, di, ket As String
        Dim ut, up, score As Double
        WriteLine(" DAFTAR NILAI UJIAN ULANG ")
        WriteLine("==========================")
        Write(" MASUKAN NAMA              : ")
        nama = ReadLine()
        Write(" MASUKAN NO UJIAN          : ")
        noujian = ReadLine()
        Write(" MASUKAN NILAI UJIAN TEORI : ")
        ut = ReadLine()
        Write(" MASUKAN NILAI PRAKTEK     : ")
        up = ReadLine()
        jk = Microsoft.VisualBasic.Left(noujian, 1)
        namamk = Microsoft.VisualBasic.Mid(noujian, 3, 2)
        ruang = Microsoft.VisualBasic.Mid(noujian, 5, 2)
        angkatan = Microsoft.VisualBasic.Right(noujian, 4)
        If namamk = "JV" Then
            mk = "JAVA"
        ElseIf namamk = "WP" Then
            mk = "WEB PROGRAMMING"
        Else
            namamk = "SALAH ISI KODE"
        End If
        If jk = "1" Then
            jeniskelamin = "LAKI-LAKI"
        ElseIf jk = "2" Then
            jeniskelamin = "PEREMPUAN"
        Else
            jeniskelamin = "salah isi kode"
        End If
        If ruang = "1A" Then
            di = "1A"
        ElseIf ruang = "2A" Then
            di = "2A"
        Else
            ruang = "salah isi kode"
        End If
        score = ut * 0.4 + up * 0.6
        If score >= 75 Then
            ket = " ANDA LULUS "
        ElseIf score = 60 <= 75 Then
            ket = " ANDA HER "
        ElseIf score < 50 Then
            ket = " ANDA TIDAK LULUS "
        Else
            ket = " SALAH MASUKAN NILAI "
        End If
        Clear()
        WriteLine("KETERANGAN HASIL UJIAN ANDA")
        WriteLine("------------------------------------------")
        WriteLine(" NAMA ANDA           : " & nama)
        WriteLine(" NO UJIAN ANDA       : " & noujian)
        WriteLine(" JENIS KELAMIN ANDA  : " & jeniskelamin)
        WriteLine(" ANDA ANGKATAN       : " & angkatan)
        WriteLine(" MATAKULIAH          : " & namamk)
        WriteLine(" ANDA DI RUANG       : " & ruang)
        WriteLine(" SCORE ANDA          : " & score)
        WriteLine(" KETERANGAN          : " & ket)
        ReadLine()
    End Sub

End Module