Rectángulo hueco Curso de Programación Visual Basic

Lección:

Control del Flujo


Ejercicio:

Rectángulo hueco 29


Objetivo:

Escribe un programa en Visual Basic que pida un símbolo, un ancho y una altura y muestre un rectángulo hueco de ese ancho y esa altura, usando ese número para el símbolo exterior, como en este ejemplo:

Introduzca un símbolo: 4
Introduzca el ancho deseado: 3
Introduzca la altura deseada: 5

444
4 4
4 4
4 4
444


Código:

Imports System
Public Class exercise42
    Public Shared Sub Main()
        Dim row, column As Integer
        Console.Write("Enter a symbol: ")
        Dim symbol As Integer = Convert.ToInt32(Console.ReadLine())
        Console.Write("Enter the desired width: ")
        Dim width As Integer = Convert.ToInt32(Console.ReadLine())
        Console.Write("Enter the desired height: ")
        Dim height As Integer = Convert.ToInt32(Console.ReadLine())
        Console.WriteLine()

        For row = 1 To height

            For column = 1 To width

                If (row = 1) OrElse (row = height) Then
                    Console.Write(symbol)
                Else

                    If (column = 1) OrElse (column = width) Then
                        Console.Write(symbol)
                    Else
                        Console.Write(" ")
                    End If
                End If
            Next

            Console.WriteLine()
        Next
    End Sub
End Class