Ich habe ein Problem mit folgendem Quellcode:
Code
Module Module1
Dim ein As String
Sub Main()
While (True)
ein = Console.ReadLine()
If ein = "einexitcodewort" Then
GoTo 47 ' Hier liegt das Problem: wie programmiert man das denn???
Else
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
Console.WriteLine("Spam by CX")
End If
End While
Console.Write("console wird heruntergefahren")
Console.Read()
End Sub
End Module
Alles anzeigen