Imports System.Console
Module Module1
 
    Sub Main()
 
        Dim x As Integer
 
        Write("Eine Zahl von -5 bis 5 eingeben: ")
        x = CInt(ReadLine()) REM Benutzereingabe
            If x < 0 Then
            WriteLine("Zahl ist kleiner als 0 Ihre Zahl lautet: " & x.ToString)
            WriteLine()
            Do While x < 0 REM Solang x kleiner ist als 0, neue _
              Eingabeaufforderung
                Write("Eine Zahl von -5 bis 5 eingeben: ")
                x = CInt(ReadLine()) REM Lese Wert und konvertiere ihn in _
                  "Integer"
                If x < 0 Then
                    WriteLine("Zahl ist kleiner als 0 Ihre Zahl lautet " & _
                      x.ToString)
                    WriteLine()
                Else
                    WriteLine("Zahl ist größer als 0 Ihre Zahl lautet " & _
                      x.ToString)
                    Write("Geschafft !")
                End If
            Loop
        Else
            WriteLine("Zahl ist größer als 0 Ihre Zahl lautet " & x.ToString)
            Write("Geschafft !")
        End If
 
        ReadLine()
 
 
End Sub
 
End Module

__________________________________________________________
Von allen Techniken Zeit zu sparen, ist vielleicht die h?ufige Benutzung
des Wortes ?Nein? die effektivste.

Beitrag wurde zuletzt am 11.07.10 um 16:12:57 editiert.