Mensajes

GRACIAS NEBIRE

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim filas As Integer = 0
        Dim tri As String = ""
        filas = InputBox("INGRESE UN NUMERO MAYOR A 0", "VENTANA DE CARGA")
        While (filas < 0)
            MsgBox("Introduzca solo valores mayores a 0")
            filas = InputBox("INGRESE UN NUMERO MAYOR A 0", "VENTANA DE CARGA")
        End While
            For n As Integer = 1 To filas
                For i As Integer = 1 To n
                    If i = 1 Or i = n Or n = filas Then
                        tri = tri + "1 "
                    Else
                        tri = tri + "0 "
                    End If
                Next
                tri += vbNewLine
            Next
        MsgBox("Triángulo:" + vbNewLine + vbNewLine + tri)
    End Sub

Código (vbnet) [Seleccionar] Expandir

necesito su ayuda con un programa.

necesito hacer un programa en visual basic en aplicacion windows from.NET que dibuje un triangulo de 0 y 1 en un msgbox, de n números de filas.

por ejemplo n=7

1
11
101
1001
10001
100001
1111111

por favor alguien podria decirme como se hace, llevo varias horas intentandolo y no lo consigo ni de cerca o almenos darme alguna idea. soy muy nuevo en esto