Bifurcaciones incondicionales con Goto - IV

Ahora veamos en el Código fuente 154, el algoritmo resuelto con la conversión a mayúsculas realizada mediante la llamada a un procedimiento. En esta ocasión, el código del programa queda mucho mejor organizado y estructurado, siendo además, más fácil su mantenimiento y lectura.

Public Sub Main()

Dim Nombre As String

Dim Ciudad As String

Dim Dato As String

Console.WriteLine("Introducir un nombre")

Nombre = Console.ReadLine()

' llamamos al procedimiento que realiza la operación de conversión

MostrarMayus(Nombre)

' ejecutamos el resto del código de este procedimiento

Ciudad = "Salamanca"

Dato = Nombre & " " & Ciudad

Console.WriteLine("Los valores unidos son: {0}", Dato)

Console.ReadLine()

End Sub

' -----------------------------

Public Sub MostrarMayus(ByVal ElNombre As String)

' en este procedimiento convertimos el parámetro a mayúsculas

Console.WriteLine("El nombre en mayúsculas es: {0}", UCase(ElNombre))

End Sub

Código fuente 154