Contoh console menggunakan case menggantikan IF - Else - Then

Karena mungkin masih banyak yang bertanya cara menggunakan case maka akan saya coba untuk memberikan satu contoh yang mungkin sudah dibuat dengan menggunakan IF - ELSE - THEN.

Contoh :
Buat perhitungan nilai akhir dengan nilai hurufnya
Input :

1. Nilai Kehadiran.
2. Nilai Tugas
3. Nilai UTS
4. Nilai UAS

Ketentuan:


Nilai Akhir = Nilai Kehardiran * 10% + Nilai Tugas * 20% + Nilai UTS * 30% + Nilai UAS * 40%
Nilai huruf, bila nilai akhir :
>=80 : Nilai Huruf A dan Keterangan "Anda Lulus"
>=70 : Nilai Huruf B dan Keterangan "Anda Lulus"
>=60 : Nilai Huruf C dan Keterangan "Anda Lulus"
>=50: Nilai Huruf D dan Keterangan "Anda Lulus"
<50 :=":" br="br" dan="dan" e="e" huruf="huruf" keterangan="keterangan" lulus="lulus" nda="nda" nilai="nilai" tidak="tidak">
Silahkan dicoba membuat programnya seperti dibawah ini... "INGAT TUJUANNYA BUKAN ANDA BISA MEMBUAT PROGRAM INI TAPI MEMAHAMI MENGGUNAKAN CASE UNTUK MEMBUAT PROGRAM"

Imports System.Console

Module Module1

    Sub Main()
        Dim NK, NT, UTS, UAS As Integer
        Dim Nilai As Long
        WriteLine("=========================================")
        WriteLine("  Program Penghitungan Nilai Kelulusan")
        WriteLine("=========================================")
        Write("Masukan Nilai Kehadiran Anda: ")
        NK = ReadLine()
        Write("Masukan Nilai Tugas Anda: ")
        NT = ReadLine()
        Write("Masukan Nilai UTS Anda: ")
        UTS = ReadLine()
        Write("Masukan Nilai UAS Anda: ")
        UAS = ReadLine()
        WriteLine("=========================================")
        WriteLine("")

        Nilai = (0.1 * NK) + (0.2 * NT) + (0.3 * UTS) + (0.4 * UAS)

        Select Case Nilai
            Case Is >= 80
                WriteLine("           Selamat Anda LULUS!")
                WriteLine("      Nilai Anda Pada DNS adalah: A")
            Case Is >= 70
                WriteLine("           Selamat Anda LULUS!")
                WriteLine("      Nilai Anda Pada DNS adalah: B")
            Case Is >= 60
                WriteLine("           Selamat Anda LULUS!")
                WriteLine("      Nilai Anda Pada DNS adalah: C")
            Case Is >= 50
                WriteLine("           Selamat Anda LULUS!")
                WriteLine("      Nilai Anda Pada DNS adalah: D")
            Case Else
                WriteLine("      Maaf Anda TIDAK LULUS... COBA LAGI !")
        End Select
        Write("         Anda Mendapat Nilai: " & Nilai)
        WriteLine()
        WriteLine("=========================================")
        ReadLine()
        WriteLine("   Ini adalah contoh menggunakan case")
        WriteLine("   Silahkan coba untuk kasus yg lain")
        WriteLine("               GOOD LUCK")
        ReadLine()

    End Sub

End Module