Problema - Nivel 4

Problema

Primeiramente crie uma RichTextBox chamada "Desenho" e um botão que terá de colocar em cima dela chamado "Desenhar".
O seu objetivo neste exercício é, utilizando o ciclo For, fazer aparecer o desenho que segue abaixo na RichTextBox "Desenho".



Obs1: As RichTextBox comportam-se da mesma forma que as TextBox, com a excepção de permitirem mais linhas.
Obs2: Para efectuar o efeito de um "Enter" (mudança de linha) escreva no código: vbNewLine. (Ex: texto = "Texto numa linha" + vbNewLine + "Texto noutra linha")

Resolução

Public Class Form1
    Private Sub Desenhar_Click(sender As Object, e As EventArgs) Handles Desenhar.Click
        Dim resultado As String

        For linha = 1 To 7
            For asteriscos = 1 To linha
                resultado = resultado + "*"
            Next
            resultado = resultado + vbNewLine
        Next
        Desenho.Text = resultado

    End Sub
End Class

Formulário