Función escritura centrada Curso de Programación Visual Basic

Lección:

Funciones


Ejercicio:

Función escritura centrada 6


Objetivo:

Cree una función para escribir centrado en pantalla el texto que se indica como parámetro (suponiendo un ancho de pantalla de 80 caracteres):

WriteCentered("¡Hola!");


Código:

Imports System
Public Class exercise101
    Public Shared Sub WriteCentered(ByVal text As String)
        Dim i As Integer = 0

        While i < 17
            Console.WriteLine()
            i += 1
        End While

        For i = 0 To 36 - 1
            Console.Write(" ")
        Next

        Console.Write(text)

        For i = 0 To 14 - 1
            Console.WriteLine()
        Next
    End Sub

    Public Shared Sub Main()
        WriteCentered("Hello")
    End Sub
End Class