حلقه ها

[mohsen_3]

سلام یه کمک کوچولو می خواستم
می خواستم ببینم چطوری می شه یه همچین شکلی رو توی ویژوال بیسیک 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 ها
ولی انگار برعکسه
توی کتاب ما اینطوری گفته

[3Dmajid]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

[mohsen_3]

ببخشید اشتباه شد من این رو می گفتم

[mohsen_3]

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

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

[3Dmajid]

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

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

Dim n, m As Integer

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید