Ich weiß nicht warum es nicht geht. Ich kann die Eingabe machen und dann nichts mehr.
VB.NET-Quellcode
- Module Module1
- Sub Main()
- Dim rand As New Random
- Dim rand1 As Integer = rand.Next(1, 100)
- Console.WriteLine(rand1)
- Dim eingabe As Integer = Console.ReadLine()
- Do
- If eingabe > rand1 Then
- Console.WriteLine("Die gesuchte Zahl ist groeßer.")
- Console.ReadLine()
- eingabe = Console.ReadLine()
- ElseIf rand1 < eingabe Then
- Console.WriteLine("Die gesuchte Zahl ist kleiner.")
- Console.ReadLine()
- eingabe = Console.ReadLine()
- ElseIf rand1 = eingabe Then
- Console.WriteLine("Sie haben gewonnen.")
- Console.ReadLine()
- End If
- Loop While eingabe <> rand1
- Console.ReadLine()
- End Sub
- End Module