در خواست راهنمایی

[ahmadfononi]

میخواستم ببینم کسی هست منو راهنمایی کنه

سوال :

برنامه ای بنویسید که خروجی مقابل را تولید کند:

1
2 1
3 2 1
4 3 2 1
​

 

[darkob]

سلام
مشکل شما کجایی این برنامه هست؟
با استفاده از for میتوانید این دستور را بنویسید

 

[ahmadfononi]

من خودمم میدونم با استفاده از درستور for میخواستم اگه میشه برام کامل بنویسینش

چون من تا

1
2 1

میرم باقیش دیگه ادامه میده

​

 

[ahmadfononi]

ببینید من تا اینجا میتونم برم

Private Sub Command1_Click()
For i = 1 To 1
Print i
Next i

For i = 1 To 2
Print i,
Next i
End Sub

​

 

[darkob]

for i= 1 to 4
for j= 1 to i
print j
next j
next

 

[ahmadfononi]

دوست عزیز این اینطوری در میاد

1
1
2
1
2
3
1
2
3
4
​

 

[darkob]

خب دوست عزیز دستورات درست هست نحوه چاپ بر روی فروم همه جور میتونه باشه

 

[ahmadfononi]

من میخوام مثل اعداد مقابل در بیاد

1
2 1
3 2 1
4 3 2 1
​

 

[T090]

با وی بی کار نکردم ولی این رو امتحان کن:
​

Private Sub Form_click()
For i = 1 To 4
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub

به اینا میگن حلقه های تو در تو.
:دوست:
​

 

[T090]

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

 

[ahmadfononi]

خیلی ممنون