Imports System.Console.
Enviado por Sandra Zapata • 6 de Noviembre de 2015 • Trabajo • 494 Palabras (2 Páginas) • 124 Visitas
[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]
...