چاپ ستاره در خطوط مختلف

[alireza_anba]

با سلام خدمت عزیزان و برنامه نویسان دات نت

با عرض پوزش خدمت مدیران عزیز از اینکه بنده این تاپیک بسیار مبتدی رو بطور خیلی ناشیانه زدم !!
راستیتش این هست که بنده میخواهم یک اسکریپتی بوسیله دات نت بنویسم که خط اول 1 ستاره و خط دوم 3 ستاره و خط سوم 5 ستاره و خط چهارم 7 ستاره باشه !! یعنی دو تا دو تا بره بالا !!
اگه عملیش رو بخواید خروجیش به این صورت است :

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

[ali_najari]

دوست عزيز شما ميتونيد از روش زير استفاده كنيد!

ابتدا بايد تعداد خط هايي كه ميخواهيد پيش بريد رو مشخص كنيد كه نياز داريد يه Textbox بزاريد يا يه Inputbox يا اينكه بصورت پيش فرض تعيين كنيد كه در مثال زير من از INputBox استفاده ميكنم:

اين يه كد بسيار ساده واسه اين كاره!

Dim TotalLine as Integer = InputBox("Enter Line Number")
Dim Str as String
Dim Str2 as string

For I as interger = 1 To TotalLine
Str2 = ""

For j as integer = 1 to i
Str2 &= "*"
next

if i = 1 then
Str &= Str2
Else
Str &= VbCrlf & Str2
End if
Next

Msgbox (Str)