بدست آوردن خروجی این برنامه

[hamidtbt]

سلام. من د ارم بصورت مبتدی ویژوال بیسیک یاد میگیریم. الان تو قسمت آموزش یا یه سوالی مواجح شدم که نمیتونم حلش کنم .

میخواستم بدونم خروجی برنامه زیر را باید چطور بنویسیم.


1
12
123
1234

یا
*
**
***
****
*****
******
*******
********
*********
**********


با تشکر از شما.

[nima.computer]

سلام

برنامه سازی یک رشته کامپیوترو میخونید؟

از حلقه for باید استفاده کنی
برای خروجی اولی
اول یه دکمه بذار رو فرم بعد رو دکمه دابل کلیک کن دستورات زیر رو بنویس
دستورات زیر
For i = 1 To 4
For j = 1 To i
Print j;
Next j
Print
Next i

و برای دومی هم یه کامند (دکمه) بذار رو دکمه دابل کلیک کن و دستورات پایینو بنویس
For i = 1 To 10
For j = 1 To i
Print "*";
Next j
Print
Next i

موفق باشی

[hamidtbt]

ممنون مشکل من این بود که بجای حلقه دوم که با نام j اینطوری مینوشتم
for j=1 to 4

ممنون از شما بهخاطر راهنمایی( مشکلم حل شد).

من از برنامه سازی 1و2و3 دارم استفاده میکنم چون بهترین آموزش را در بین آموزش های دیگه که دیدم داره .

[hamidtbt]

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





1 2 3 4 5 6 7
1 2 3 4 5
1 2 3
1






کدی که من نوشتن این هستش

For i = 1 To 4
For j = 1 To i + (i - 1)
Print j;
Next j
Print
Next i

و خروجی آن

1234567
12345
123
1

[returnx]

خوب الان مشکلتون کجاست!؟
خروجی شما با بالا یکی هست دیگه...

[hamidtbt]

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

[hamidtbt]

خودم پیدا کردم

For i = 4 To 1 Step -1
Print Spc((4 - i) * 2);
For j = 1 To i * 2 - 1
Print j;
Next j
Print
Next i

[MohammadGh2011]

دوست عزيز اين طوري هم ميشه فقط ايني كه من نوشتم شما خودت يه عدد بهش ميدي خودش برات همونجور كه ميخواي ميچينه فقط اين كد ها رو تو يه CommandButton بريز.موفق باشي
اين براي مثلثي
Dim x#, y%, z%, i%, j%
x = InputBox("")
For y = 1 To x
Print Spc(x - y);
For z = 1 To y
Print z;
Next z
Print
Next y

اين يكي هم برعكس مثلثيه
Dim x#, y%, z%, i%, j%
x = InputBox("")
For i = x To 1 Step -1
Print Spc(x - i);
For j = 1 To i
Print j;
Next
Print
Next

[nima.computer]

خوبه دارین خوب پیش میرین ممنون برا منم یاداوری شد

یادم رفته بودم چطوریه فقط این یادم بود که از spase باید استفاده کنی

البته اینم میشه هااااا
For i = 7 To 1 Step -2
Print Spc(7 - i);
For j = 1 To (i - 1)
Print j;
Next j
Print i
Next i

[MohammadGh2011]

دوستان چند تا ديگه براتون نوشتم ميزارم
اين هم باسه لوذي
Dim x#
x = InputBox("")
For y = 1 To x
Print Spc(x - y);
For z = 1 To y
Print z;
Next z
Print
Next y
For i = x - 1 To 1 Step -1
Print Spc(x - i);
For j = 1 To i
Print j;
Next j
Print
Next i

اين هم خودتون امتحان كنيد
Dim x#
x = InputBox("")
For i = 1 To x
For j = 1 To x
Print "*";
Next j
Print
Next i
Print

موفق باشــــــــــــــــــــــ ـــــــــــــيد