Función escribir subrayado Curso de Programación Visual Basic

Lección:

Funciones


Ejercicio:

Función escribir subrayado 34


Objetivo:

Crear una función capaz de escribir centrado en pantalla el texto que se indica como parámetro (suponiendo un ancho de pantalla de 80 caracteres) y luego subrayarlo (escribiendo varios guiones bajo esa palabra):

WriteUnderlined("¡Hola!");


Código:

Imports System
Public Class exercise102
    Public Shared Sub WriteUnder(ByVal text As String)
        Dim countSpaces As Integer = (80 - text.Length) / 2
        Dim i As Integer = 0

        While i < countSpaces
            Console.Write(" ")
            i += 1
        End While

        Console.WriteLine(text)

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

        For i = 0 To text.Length - 1
            Console.Write("_")
        Next
    End Sub

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