CLS PRINT "Prg.Name: Case-2.BAS" PRINT "Autor: Stephanie Heinrich" PRINT "Datum: 11.11.02" REM---deklaration--- REM Note= Selektor REM---Eingabe--- INPUT "Bitte geben sie den Notenwert ein=", a REM---Verarbeitung--- SELECT CASE a CASE 13 TO 15 PRINT "Die Note lautet: SEHR GUT" CASE 10 TO 12 PRINT "Die note lautet: GUT" CASE 7 TO 9 PRINT "die Note lautet: BEFRIEDIGENT" CASE 4 TO 6 PRINT "Die Note lautet: AUSREICHEND" CASE 1 TO 3 PRINT "Die note lautet: MANGELHAFT" CASE 0 PRINT "Die Note lautet: UNGENUEGEND" CASE ELSE PRINT "Ungueltige Eingabe" END SELECT END