fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Klassenliste

Uploader:	Key_Frogger
Datum/Zeit:	11.10.2009 19:18:00

Dim as Integer Lehrer, Schueler, Klassen, Noch, Noch2

Screen 18



Input "wieviele Schueler werden uns Dieses Jahr beehren: ", Schueler



Klassen = Schueler / 24

If Klassen >24 then

    Print "Es wird nur 1  Klasse Dieses Jahr geben!"

else

    Print "es wird",Klassen,"Klassen geben"

end if





Input "wieviele Lehrkraefte wird es geben:", Lehrer



Noch = Lehrer / Klassen - 1



If Noch = 0 then



    Print "es geht genau auf "

    sleep

else

    Print "es sind noch", Noch, "Lehrkraefte über!"

    Sleep

end if

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.