fb:porticula NoPaste
ZahlSplit per String
Uploader: | ytwinky |
Datum/Zeit: | 09.09.2007 13:18:37 |
Dim Zahl As uInteger, j As uInteger, z As String
Input "Zahl:", Zahl
z=Str(Abs(Zahl))
j=Len(z)
For i As uInteger=1 To j
?10^(j-i)&"er=" &Chr(z[i-1])
Next
Sleep