Para poder entender todo lo que vamos a ver, sería mejor que tuviera a mano el código que hicimos en las lecciones anteriores.

Veamos cómo quedaría el código en Visual Basic:

LetraA = 0 'Inicializamos todas las variables a 0.
LetraE = 0
LetraI = 0
LetraO = 0
LetraU = 0
Posición = 1 'Situamos el puntero en la primera posición.
Letra = LCase(Frase.Text, Posición, 1) 'Almacenamos en la variable ¿Letra¿ la letra que hay en la posición en la que nos encontramos. Para poder compararla.
Do While Letra <> "." 'Comenzaremos con el bucle hasta que encontremos un punto.
       Select Case Letra 'En caso...
            Case "a" 'En el caso que la letra sea una a...
                  LetraA = LetraA + 1 'Sumaremos 1 a la variable LetraA.
            Case "e" 'En el caso que la letra sea una e...
                  LetraE = LetraE + 1 'Sumaremos 1 a la variable LetraE.
            Case "i" 'En el caso que la letra sea una i...
                   LetraI = LetraI + 1 'Sumaremos 1 a la variable LetraI.
             Case "o" 'En el caso que la letra sea una o...
                    LetraO = LetraO + 1 'Sumaremos 1 a la variable LetraO.
             Case "u" 'En el caso que la letra sea una u...
                    LetraU = LetraU + 1 'Sumaremos 1 a la variable LetraU.
        End Select 'Fin En caso...
        Posición = Posición + 1 'Instrucción equivalente a MoverDer, ya que incrementamos la posición en 1.
        Letra = LCase(Frase.Text, Posición, 1) 'Almacenamos en la variable Letra la letra que hay en la posición en la que nos encontramos.
Loop 'Finalizamos el bucle mientras.
NumA.Caption = LetraA 'Mostramos la variable LetraA.
NumE.Caption = LetraE 'Mostramos la variable LetraE.
NumI.Caption = LetraI 'Mostramos la variable LetraI.
NumO.Caption = LetraO 'Mostramos la variable LetraO.
NumU.Caption = LetraU 'Mostramos la variable LetraU.

Todo lo que aparece después de 'son anotaciones para aclarar las instrucciones' son anotaciones que se ponen en el Visual Basic. El programa no hace caso de ellas.

Intente ver las similitudes con el código que hemos planteado en esta lección y el que hicimos en la lección anterior. Seguramente no entiendan todas las instrucciones que aparecen en este código, pero lo único que pretendemos es que veáis cómo hemos "traducido" el código de un lenguaje que nos sirve para plantearnos el problema a otro real.