رسم اشکال مختلف

[SlowCode]

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

*****
****
***
**
*
تو هر مرحله یه دونه از تعداد ستاره ها از سمت چپ کم بشه و تعداد فاصله ها یه دونه بیشتر بشه. هرچی می نویسم درست ازآب در نمیاد.

[sr2m72]

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

*****
****
***
**
*
تو هر مرحله یه دونه از تعداد ستاره ها از سمت چپ کم بشه و تعداد فاصله ها یه دونه بیشتر بشه. هرچی می نویسم درست ازآب در نمیاد.

سلام، بفرمایید:

Private Sub Command1_Click()
For i = 5 To 1 Step -1
For c = 5 To i Step -1
Text1.Text = Text1.Text + " "
Next
For j = 1 To i
Text1.Text = Text1.Text + "*"
Next
Text1.Text = Text1.Text + vbNewLine
Next
End Sub

[sr2m72]

راستی یادم رفت بگم: باید یه تکس باکس روی فرم قرار بدین و حتما بای خاصیت multiline تکس باکس رو True کنید.
موفق باشید.