نمایش صفر در اول عدد

[ehsanocx]

سلام دوستان
من می خوام شماره موبایل ها به صورت پشت سر هم تولید بشن . اما یه مشکلی دارم اونم اینه که 0 اول عددم نمایش نمی ده

من مثلا از این شماره 09112221000 می خوام شروع به ساختن کنه تا 1000 تا شماره بعد از این.
هزار تا شماره ساخته میشه اما 0 اول شماره موبایل ساخته نمیشه و نمایشش نمیده چرا؟

If Text3.Text <> "" And Text1.Text <> "" Then

TxtSer = Val(Text1.Text)
Sum = 0

For I = 1 To Text3.Text
TxtSer = TxtSer + 1

List1.AddItem (Trim(CStr(TxtSer)))


Next I

اینم کد ساخت سریالمه

میشه کمکم کنید

[far9090]

این کدتون که اشکال داره . مثلا حلقه For شما کاملا از نظر ساختار ایراد داره . ولی اگه شما شماره هاتون رو به صورت رشته نگه دارین 0 اول هم دیگه از بین نمی ره . من اگه درست منظورتون رو فهمیده باشم بهتره شماره ها تون رو به صورت رشته نگه دارین و یا از پیش شماره 98 به جای 0 برای نگهداری به صورت عدد استفاده کنید .

[parselearn]

s = "0" & cstr(number)

[vbhamed]

سلام

اينم كد مورد نظر


Dim n@

n = 9112221000@

Dim i%
For i = 1 To 1000
n = n + 1
List1.AddItem "0" & n
Next