Тема: 001,002,003...007
Показать сообщение отдельно
Старый 24.11.2006, 02:48   #5
HolyDel
 
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений
(для 2,707 пользователей)
Re: 001,002,003...007

2 SubZero
тогда уж:
j=Len(Str(i))
For k=1 To 3-j
s$=s$+"0"
Next
s$=s$+Str(i)
(Offline)
 
Ответить с цитированием