Setelah itu pilih Console Application dan klik OK
Dan akan muncul tampilan seperti di bawah ini :
Kemudian masukkan code di bawah ini :
Module Module1
Sub Main()
Dim nama As String
Dim a, b, c, d, e As Integer
Console.WriteLine()
Console.
WriteLine("-- INPUT NILAI UAN MU --")
WriteLine("-- INPUT NILAI UAN MU --")
Console.WriteLine()
Console.Write("Nama Siswa : ")
nama = Console.ReadLine
Console.WriteLine()
Console.Write("M T K : ")
a = Console.ReadLine
Console.Write("B. Inggris : ")
b = Console.ReadLine
Console.Write("B. Indonesia : ")
c = Console.ReadLine
Console.Write("Ujian Kejuruan : ")
d = Console.ReadLine
Console.WriteLine()
Console.WriteLine("----------------------------")
Console.WriteLine()
e = (a + b + c + d) / 4
Console.WriteLine("Jumlah Rata-Rata : " & e)
Console.WriteLine(nama & IIf((e >= 60), ", SELAMAT ANDA LULUS!!?", " Maaf, ulang tahun depan yach!!?"))
Console.ReadLine()
End Sub
End Module
------------------------------------------------------------
Hasil program nya :
Tidak ada komentar:
Posting Komentar