Bifurcaciones incondicionales con Goto - III

A continuación vamos a proponer un problema que abordaremos aportando una solución mediante dos vías: una que emplee Goto y otra estructurada, para ver las diferencias entre cada una de ellas. Debemos introducir un nombre mediante la ventana de la consola, y mostrarlo convertido a mayúsculas, para posteriormente, concatenar dicho nombre con otra cadena y mostrar el resultado. Veamos en el Código fuente 153 la versión de este algoritmo, con la fase de conversión a mayúsculas realizada utilizando una etiqueta a la que llamaremos con Goto.

Public Sub Main()

Dim Nombre As String

Dim Ciudad As String

Dim Dato As String

Console.WriteLine("Introducir un nombre")

Nombre = Console.ReadLine()

' saltamos con Goto a la etiqueta MostrarMayus

GoTo MostrarMayus

' estas líneas no se ejecutarán

Ciudad = "Salamanca"

Dato = Nombre & " " & Ciudad

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

MostrarMayus:

' en esta etiqueta de código mostramos el valor

' de la variable en mayúsculas

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

Console.ReadLine()

End Sub

Código fuente 153