Fehlersuche

Imports System.Console

Module Module1
    Dim Zahl1, Zahl2, Zahl3 As Integer
    Dim Summe1, Ergebnis2 As Double
    Sub Main()
        Write("Geben Sie die erste Zahl ein: ") 'Anführungszeichen hinzugefügt, Leerstelle entfernt
        Zahl1 = ReadLine()
        Write("Geben Sie die zweite Zahl ein: ")
        Zahl2 = ReadLine() ' ReadLine hinzugefügt
        Summe1 = Zahl1 + Zahl2
        Ergebnis2 = Zahl1 * Zahl2 ' : entfernt
        Write("Die Summe beträgt: ") ' e hinzugefügt Leerstelle entfernt
        WriteLine(Summe1)
        WriteLine("Das Ergebnis lautet: ") ' Leerstelle entfernt
        WriteLine(Ergebnis2) ' Zahl geändert
        ReadLine()
    End Sub
End Module