Rabatt

Imports System.Console
Module Module1
    Dim Rabattbetrag, Warenwert, Rabattsatz, Restbetrag As Double
    Sub Main()
        'Eingabe
        Write("Bitte geben Sie den Warenwert ein: ")
        Warenwert = ReadLine()
        If Warenwert > 1000 Then
            Rabattsatz = 5
        Else 'Nach Else folgt NIEMALS eine Bedingung!
            Rabattsatz = 0
        End If
        '=WENN(Warenwert>1000;Restbetrag=5;Rabattbetrag=0)
        'Verarbeitung
        Rabattbetrag = Warenwert * Rabattsatz / 100
        Restbetrag = Warenwert - Rabattbetrag
        'Ausgabe
        Write("Ihr Rabattbetrag in Euro lautet: ")
        WriteLine(Rabattbetrag)
        Write("Ihr Restbetrag in Euro lautet: ")
        WriteLine(Restbetrag)

        ReadLine()
    End Sub

End Module