Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Ganzzahl stellenweise ausgeben

Uploader:AdministratorSebastian
Datum/Zeit:01.04.2012 18:02:22

Dim zahl As Integer = 123456780

Print "Gebe die Zahl " & zahl & " stellenweise von hinten nach vorne aus:"
Print

Dim As Integer x = zahl, ziffer
Do
    ziffer = x MOD 10
    x = x \ 10
    Print ziffer
Loop Until x = 0

Print
Print "Fertig."

sleep