تمام اعداد

با سلام
می خوام با یه حلقه کاری کنم که تمام حالت اعداد هر چند رقمی که کاربر بده رو تولید کنه
از ما خواستن این برنامه رو با حلقه ها بنویسیم
و باید بعد از ایجاد شدن هر کد اون رو در یک فایل توی درایو سی ذخیره کنیم
توضیح :
مثلاً اگه کاربر داد یک رقمی : 0و1و2و3و
تمام اعداد یک رقمی اگه داد 2 رقمی تمام اعداد 2 رقمی و الی اخر ....
داخل همون حلقه باید نتایج رو تویه فایل ذخیره کنیم
متشکرم

سلام

اینم جوابش

دوتا listbox به فرم اضاف کن و این کدها رو بنویس

کد:

---

Private Sub Form_Load()
With List1
.AddItem "Yek Ragham"
.AddItem "Do Ragham"
.AddItem "Se Ragham"
.AddItem "Char Ragham"
.AddItem "Panj Ragham"
.AddItem "Shesh Ragham"
End With
End Sub

Private Sub List1_Click()
Dim a As Integer
Dim yek, du As Integer
Dim se, char, panj, shesh As Double
a = List1.ListIndex
Select Case a
Case 0
For yek = 0 To 9
List2.AddItem yek
Next yek
Case 1
For du = 10 To 99
List2.AddItem du
Next du
Case 2
For se = 100 To 999
List2.AddItem se
Next se
Case 3
For char = 1000 To 9999
List2.AddItem char
Next char
Case 4
For panj = 10000 To 99999
List2.AddItem panj
Next panj
Case 5
For shesh = 10000 To 99999
List2.AddItem shesh
Next shesh
End Select
End Sub

---

اینم سورسش

حجم 1 کیلو بایت

لینک مستقیم

کد:

---

http://samba.persiangig.com/tamamAdad.rar

---

موفق باشید