Código
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles procesar.Click Dim palabra(), oracion() As String Dim letra As String Dim indice As String = 1 Dim contar_vocal As Integer = 0 Dim i As Integer oracion = Split(TextBox1.Text) For i = 0 To Len(TextBox1.Text) If i > 0 Then For long_pal = 1 To Len(oracion(i)) + 1 letra = Mid(oracion(i), 1, long_pal) Select Case letra Case "a" contar_vocal = contar_vocal + 1 Case "A" contar_vocal = contar_vocal + 1 Case "e" contar_vocal = contar_vocal + 1 Case "E" contar_vocal = contar_vocal + 1 Case "i" contar_vocal = contar_vocal + 1 Case "I" contar_vocal = contar_vocal + 1 Case "o" contar_vocal = contar_vocal + 1 Case "O" contar_vocal = contar_vocal + 1 Case "u" contar_vocal = contar_vocal + 1 Case "U" contar_vocal = contar_vocal + 1 End Select letra = "" Next ' mostrar.Items.Add(letra) ' mostrar.Items.Add(oracion(i)) ' mostrar.Items.Add(" Numeros de Vocales: ") ' mostrar.Items.Add(contar_vocal) contar_vocal = 0 Else ' mostrar.Items.Add(oracion(i)) End If i = i + 1 Next End Sub
me arroja un error en:
Código
el siguiente Información adicional: Índice fuera de los límites de la matriz.
For long_pal = 1 To Len(oracion(i)) + 1
me pueden ayudar?...