تکرار عدد صفر در اعداد تولید شده

[Tabrizi123]

سلام دوستان
با تشکر از همه عزیزانی که زحمت قبول میکنند و به سوالات جواب میدهند
من این فایل را از این آدرس دریافت کردم
http://www.4shared.com/file/98654831/beb81eee/AutoNomber.html
این برنامه تولید شماره میکند اعداد ثابت که در تمام عدد ها تکرار میشه مشکلی ندارم ولی نوشته که از شماره : تا شماره :
وقتی در textbox از شماره 001 را وارد مکینم تا شماره 100
دو صفر قبل از یک حذف میشه کمکم کنید تا این مشکل برام حل بشه
من میخوام شماره ها بدین صورت باشه :
2201
2202
2203
......
2220

[parselearn]

Cls
a = 1000
For i = 0 To 999
s = "000000" + CStr(i)
s = Right(s, 3)
List1.AddItem s
Next


تاپيك كمكي
http://barnamenevis.org/forum/showthread.php?t=154993

[vbhamed]

سلام
اگر TextBox هاي فرمتون رو به ترتيب از بالا به پايين Text1 و Text2 و Text3 در نظر بگيريم :


On Error Resume Next

Dim i&

For i = Val(Text2) To Val(Text3)

List1.AddItem Text1 & Format$(i, String(Len(Text3) - 1, "0") & "#")

Next