fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Ganzzahl stellenweise ausgeben von links nach rechts

Uploader:	Sebastian
Datum/Zeit:	01.04.2012 18:14:55

Dim zahl As Integer = 123456780



Dim anzahlStellen As Integer = Fix(Log(zahl) / Log(10)) + 1



Print "Die Zahl " & zahl & " hat " & anzahlStellen & " Stellen"

Print "und wird jetzt von links nach rechts stellenweise ausgegeben:"

Print



Dim stellen(1 To anzahlStellen) As UByte



Dim As Integer x = zahl, i = anzahlStellen

Do

    stellen(i) = x MOD 10

    x = x \ 10

    i = i - 1

Loop Until x = 0



' Jetzt das Array richtig herum ausgeben:

For i = 1 To anzahlStellen

    Print stellen(i)

Next i



Print

Print "Fertig."



sleep

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.