Función WriteRectangle Curso de Programación Visual Basic

Lección:

Funciones


Ejercicio:

Función WriteRectangle 28


Objetivo:

Cree una función WriteRectangle para mostrar un rectángulo (relleno) en la pantalla, con el ancho y el alto indicados como parámetros, utilizando asteriscos. Complete el programa de prueba con una función principal:

WriteRectangle(4,3);

debe mostrarse
****
****
****

Cree también una función WriteHollowRectangle para mostrar sólo el borde del rectángulo:
WriteHollowRectangle(3,4);

debe mostrarse
***
* *
* *
***


Código:

Imports System
Public Class exercise129
    Private Shared Sub WriteRectangle(ByVal width As Integer, ByVal height As Integer)
        For i As Integer = 0 To width

            For j As Integer = 0 To height
                Console.Write("*")
            Next

            Console.WriteLine()
        Next
    End Sub

    Private Shared Sub WriteHollowRectangle(ByVal width As Integer, ByVal height As Integer)
        For i As Integer = 1 To height

            For j As Integer = 1 To width

                If (i = 1) OrElse (i = height) Then
                    Console.Write("*")
                Else

                    If (j = 1) OrElse (j = width) Then
                        Console.Write("*")
                    Else
                        Console.Write(" ")
                    End If
                End If
            Next

            Console.WriteLine()
        Next
    End Sub

    Private Shared Sub Main(ByVal args As String())
        WriteRectangle(4, 3)
        Console.WriteLine()
        WriteHollowRectangle(3, 4)
        Console.ReadLine()
    End Sub
End Class