Module Module1
 
    Sub Main()
        Dim zahl1 As Single
        Dim antwort As String
 
 
        Console.WriteLine("Heute am " & Now.ToLongDateString & " beginnt das" & _
          "Programmierpraktikum." & Environment.NewLine & "Wir schreiben das" & _
          "erste eigene Programm.")
        Console.WriteLine()
        Try
            Console.Write("Wieviele Programme wollen Sie noch schreiben? ")
            zahl1 = CSng(Console.ReadLine)
            Console.WriteLine()
            Select Case zahl1
                Case Is < 10
                    Console.WriteLine(zahl1 & "! Das sind aber wenig" & _
                      "Programme!")
                Case Is >= 10
                    Console.WriteLine(zahl1 & "! Das sind aber viele" & _
                      "Programme!")
            End Select
        Catch
            Console.WriteLine("Sie haben keine Zahl eingegeben!")
            Console.WriteLine("Bitte drücken Sie die Enter-taste, um dieses" & _
              "Programm zu beenden")
            Console.Read()
            Exit Sub
        End Try
        Try
            Console.Write("Werden Sie das auch schaffen? ")
            antwort = Console.ReadLine
            Select Case antwort
                Case Is = "nein"
                    Console.WriteLine("Dann werden Sie auch keinen Schein" & _
                      "erhalten!")
                Case Is = "ja"
                    Console.WriteLine("Dann will ich Sie nicht aufhalten!")
            End Select
        Catch
            Console.WriteLine("Sie haben weder 'ja' noch 'nein' eingegeben!")
        End Try
        Console.WriteLine("Bitte drücken Sie die Enter-taste, um dieses" & _
          "Programm zu beenden")
        Console.Read()
     End Sub
End Module