Triángulo V2 Curso de Programación Visual Basic

Lección:

Matrices, Estructuras y Cadenas


Ejercicio:

Triángulo V2 35


Objetivo:

Escriba un programa de Visual Basic para pedirle al usuario su nombre y muestre un triángulo con él, comenzando con 1 letra y creciendo hasta que tenga la longitud completa:

Introduce tu nombre: Juan
J
Ju
Jua
Juan


Código:

Imports System
Public Class exercise83
    Public Shared Sub Main()
        Dim n, ancho, alto As Integer
        Dim row, column As Integer
        Console.Write("Introduce un número: ")
        n = Convert.ToInt32(Console.ReadLine())
        Console.Write("Introduce la anchura: ")
        ancho = Convert.ToInt32(Console.ReadLine())
        alto = ancho

        For row = 0 To alto - 1

            For column = 0 To ancho - 1
                Console.Write(n)
            Next

            Console.WriteLine()
            ancho -= 1
        Next
    End Sub
End Class