Sub Main()
Dim dblA As Double
Dim strgB As String
Dim dblEndpreis As Double
Dim dblrabatt As Double
Dim strEingaben As String
Console.Write("Guten Tag Lieber Kunde!" & vbNewLine & vbNewLine)
Console.Write("Bitte geben Sie den Preis ein!")
Console.WriteLine()
dblA = Console.ReadLine()
Console.Write("Sind Sie ein Stammkunde? (j/n)")
Console.WriteLine()
strgB = Console.ReadLine()
If dblA >= 200 Then
dblrabatt = dblA / 100 * 5
End If
If strgB = "j" Then
dblrabatt = dblrabatt + (dblA - dblrabatt) * 0.03
End If
dblEndpreis = dblA - dblrabatt
Console.WriteLine("Rabatt: " & Format(dblrabatt, "0.00 Euro"))
Console.WriteLine("Endpreis: " & Format(dblEndpreis, "0.00 Euro"))
Console.WriteLine("Sind Ihre eingaben korrekt? (j/n)" & vbNewLine & vbNewLine)
strEingaben = Console.ReadLine()
If strEingaben = "j" Then
End If
Console.Write("Zum beenden ENTER drücken!")
Console.ReadLine()
End Sub