Imports System.Console.

[pic 3]

UNIVERSIDAD TÉCNICA DE AMBATO

FACULTAD DE CIENCIAS HUMANAS Y DE LA EDUACIÓN

CARRERA DE DOCENCIA EN INFORMÁTICA

[pic 4][pic 5][pic 6]

codigo

Imports System.Console

Module Module1

    Sub Main()

        Dim palabra As String

        Dim contador1, contador2, contador3, contador4, contador5, contador6 As Integer

        contador1 = 0

        contador2 = 0

        contador3 = 0

        contador4 = 0

        contador5 = 0

        contador6 = 0

        Write(" Introdusca  una palabra   ")

        palabra = ReadLine()

        For i = 1 To 10

            contador1 = contador1 + 1

        Next

        For i = 1 To palabra.Length()

            If (Mid(palabra, i, 1)) = "a" Then

                contador2 = contador2 + 1

            ElseIf (Mid(palabra, i, 1)) = "e" Then

                contador3 = contador3 + 1

            ElseIf (Mid(palabra, i, 1)) = "i" Then

                contador4 = contador4 + 1

            ElseIf (Mid(palabra, i, 1)) = "o" Then

                contador5 = contador5 + 1

            ElseIf (Mid(palabra, i, 1)) = "u" Then

                contador6 = contador6 + 1

            End If

        Next

        WriteLine(" a == " & contador2)

        WriteLine(" e == " & contador3)

        WriteLine(" i == " & contador4)

        WriteLine(" o== " & contador5)

        WriteLine(" u == " & contador6)

        ReadLine()

    End Sub

End Module

Corrido Del Programa

[pic 7]

...