اشکال در برنامه ی چاپ ستاره

[mehrdad.gh]

سلام به همگی

میخواهیم برنامه ای بنویسیم که در ص.رت ورود عدد 5 شکل زیر را ایجاد کند

*
**
***
****
*****

تا یه جاهاییشا پیش رفتم

Dim a As Integer
Dim b As Integer
Dim c As Integer
c = Int(TextBox1.Text)
For a = 1 To c
For b = 1 To c - a
Console.Write(" ")
Next
For b = a To a * 2 - 1
Console.Write("*")
Next
Next

ولی نمیدونم
consol.writeline
کجای برنامه بزارم

[mehrdad.gh]

خودم به جواب رسیدم فقط یکمی حلقهاش زیاد وقت برد

Dim a As Integer
Dim k As Integer = 1
a = Int(TextBox1.Text)
For i = 1 To a
a -= 1
For j = 0 To a
Console.Write(" ")
Next
For j = 1 To k
Console.Write("*")
Next
k += 2
Console.WriteLine()
Next



*
***
*****
*******
*********