حلقه ها

سلام یه کمک کوچولو می خواستم
می خواستم ببینم چطوری می شه یه همچین شکلی رو توی ویژوال بیسیک 6 درست کرد
با حلقه های متداخل
این برنامه رو نوشتم خودم ولی با حلقه های جدا جدا
7 6 5 4 3 2 1
5 4 3 2 1
3 2 1
1

اینو
راستی یه سوال
for I=1 to 10
کد ها یی رو که می خوای بعد از درستی حلقه ی اول انجام بشن باید اینجا بزاریم ؟
for J=1 to 5

next J
next I
این طوری مگه نیست طرز قرار گرفتن next ها
ولی انگار برعکسه
توی کتاب ما اینطوری گفته

توسط کد زیر به راحتی میتونی این شکل رو دست کنی :

کد:

---

Private Sub Form_Paint()
For i = 7 To 1 Step -2
    For j = 1 To i
    Print j;
    Next j
    Print
Next i
End Sub

---

اگه نیاز به توضیح و کمک بیشتری داری در خدمتم :20:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ببخشید اشتباه شد من این رو می گفتم

Private Sub Command1_Click()
Dim n, m As Integer
n = 7
m = 3
For s1 = 1 To 4
For s = 1 To n
Print s;
Next s
Print
Print Spc(m);
n = n - 2
m = m + 2
Next s1


End Sub

بلاخره خودم درستش کردم
:5::19:

خوب زود تر میگفتی :31:

راستی بد نیست یه چیز دیگه رو هم بدونی، البته شاید بدونی ولی از طرز کدنویسیت حدس زدم گفتم شاید نمی دونی :20:

نقل قول:

---

Dim n, m As Integer

---

اگه برای تعیین چند متغیر هم نوع از این روش استفاده کنی، این روش غلطه.
در کد بالا متغیر m به درستی از نوع Integer تعریف میشه ولی متغیر n از نوع Variant تعریف میشه.
اگه یادت باشه در تعریف متغیر ها گفتیم اگه بعد از اسم متغیر نوع داده ذکر نشه اون رو از نوع Variant تعریف میکنه. پس با این حال روش درست کد به صورت زیر :

کد:

---

Dim n as integer, m as integer

---