Contoh Program Console Menghitung Jumlah Harga

Module Module1

    Sub Main()
        Dim hasil As Integer
        Dim jb As Integer

        Console.Write("Masukan Jumlah Barang : ")
        jb = Console.ReadLine()
        Console.WriteLine("")

        If jb > 100 Then
            hasil = 0.8 * 20000 * jb
            Console.WriteLine("Diskon 20%")
        ElseIf jb > 10 Then
            hasil = 0.9 * 20000 * jb
            Console.WriteLine("Diskon 10 %")
        Else
            hasil = 20000 * jb
            Console.WriteLine("Anda Tidak Mendapat Diskon")
        End If
        Console.WriteLine("======================================")
        Console.WriteLine("Harga satuan = Rp 20000")
        Console.WriteLine("Jumlah Yang harus Dibayar: Rp {0}", hasil)
        Console.WriteLine("======================================")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("          Terima Kasih")
        Console.WriteLine("          ============")
        Console.ReadLine()
    End Sub

End Module