IF2

Imports System.Console

Module Program
    'Vereinbarungsteil
    Dim Antwort As String
    Sub Main()
        'Eingabe
        Write("Hallo, alles klar? Antworte mit Ja/Nein: ")
        Antwort = ReadLine()

        'Zweiseitige Ausgabe
        If Antwort = "Nein" Then
            WriteLine("Oh weh!")
        Else
            WriteLine("Let's go!")
        End If

        'Einseitige Ausgabe
        If Antwort = "Ja" Then
            WriteLine("Super!")
        End If
        If Antwort = "Nein" Then
            WriteLine("Schade...")
        End If
        ' Zusatz Lösung: Der Else-Block der zweiseitigen Auswahl Zeile 14 wird immer ausgeführt sobald der Benutzer etwas anderes als "Nein" eingibt.
        ' Im Gegensatz dazu funktioniert die einseitige Auswahl nur wenn man Ja oder Nein eingibt!

    End Sub
End Module