مساعدة في كود

معقوول ماحد يعرف

إذا كان تبغى الرسم بال for loop فهذا الحل

الرسمة الأولى ( المثلث )

 Dim star As String = "*"
        Dim a As String = ""
        For k As Integer = 0 To 10
            For s As Integer = 0 To k
                a = a & star
            Next
            a = a & Environment.NewLine
        Next
        TextBox2.Text = a

الرسمة الثانية ( المربع )

 Dim star As String = "*"
        Dim a As String = ""
        For k As Integer = 0 To 10
            For s As Integer = 0 To 10
                a = a & star
            Next
            a = a & Environment.NewLine
        Next
        TextBox2.Text = a

ملاحظة : لازم يكون ال textbox

multiline