حلقه تو در تو

[mansourii]

Templator = Text1.Text
For Counter_i = 1 To Templator
For Counter_j = 1 To Counter_i
List1.AddItem (Counter_j)
Next Counter_j
Next Counter_i

' listBox2
For Counter_i = Templator To 1 Step -1
For Counter_j = 1 To Counter_i
List2.AddItem (Counter_j)
Next Counter_j
Next Counter_i

به این کد نگاه کنید.
این کارش اینکه از تکست یه عدد می خونه و توی لیست باکس چاپش میکنه
وقتی اجراش میکنم توی list1 اینطوری چاپ میکنه

1
1
2
1
2
3
1
2
3
4
1
2
3
4
5

اما من میخوام بدین شکل چاپ کنه
1
12
123
1234
12345

چی کارش کنم؟

[محسن واژدی]

سلام
کد زیر را بررسی کنید:


Private Sub Command1_Click()
Dim old_str$
'Templator = Text1.Text
Templator = 5
List1.Clear
List2.Clear
For Counter_i = 1 To Templator
old_str$ = old_str$ & Counter_i
List1.AddItem old_str$
Next Counter_i

' listBox2
old_str$ = Empty
For Counter_i = Templator To 1 Step -1
old_str$ = old_str$ & Counter_i
List2.AddItem old_str$
Next Counter_i
End Sub



موفق باشید

[mansourii]

ممنونم

اما بلعکسش هم میگی چطوریه؟

یعنی به این شکل در بیاد

12345
1234
123
12
1

این کدمم درست کنید اگه ممکنه


For Counter_i = Templator To 1 Step -1
For Counter_j = 1 To Counter_i

List3.AddItem (Counter_j)
Next Counter_j
Next Counter_i

این کدم این طوری نمایش میده

1
2
3
4
5
1
2
3
4
1
2
3
1
2
1

[محسن واژدی]

کد زیر را بررسی کنید:

Private Sub Command1_Click()
Dim old_str$, j%
Templator = 10
List2.Clear
For Counter_i = Templator To 1 Step -1
old_str$ = Empty
For j = 1 To Counter_i
old_str$ = old_str$ & j
Next 'j
List2.AddItem old_str$
Next Counter_i
End Sub


موفق باشید