Hola amigos!, estoy haciendo un codigo que me piden: dada una oracion, tomar cada palabra de dicha oracion una ves contar las vocales de cada palabra y mostrarla. He programado lo siguiente:

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:

 For long_pal = 1 To Len(oracion(i)) + 1

el siguiente Información adicional: Índice fuera de los límites de la matriz.

me pueden ayudar?...

Gracias!!

como podria hacer  para copiar el historial de navegacion de los exploradores en W7, es decir que todo sitio web que visite quede guardarlo de modo que cuando se limpie el historial de los navegadores, quede guardado un un archivo auxiliar... es posible??

Saludos!  amigos tengo un problema con mi lapto, cuando la enciendo, los botones de de la pila y wifi encienden pero el boton de disco duro no enciende, no da video, ni siquiera muestra la imagen de arranque, y tampoco emite ningun tipo de pitidos......

cuando la enciendo el procesador y tarjeta de video integrada se calientan lo normal, pero el fan cooler no enciende, decidi probar el fan cooler por aparte y esta bien, encendio, lo conecte a un USB de un CPU funcionando..... por lo que descarto q esta malo el fan cooler,...... y repito presiono el boton de encendido, los led de bateria y wifi encienden, el procesador esta funcionando por que esta  calentando, al igual que la tarjeta integrada de video.... cual podra ser la falla???......

ayudenme por favor, ya que aqui una lapto estan muy caras y quiero arreglar la mia......

Saludos amigos y Feliz Año!!! 

tengo un lenovo A376 y el SO se puso extraño,  cambia de tema, se pega mucho y se han desaparecido opciones administrativas(ej: cuando preciono el boton de "Power" me sale solo la opcion de "Apagar" cuando al principio me salia:"Apagar, Reiniciar,Modo Avion, Vibrar, sonar.") entonces opte por formatear el telefono completo, instalarle de nuevo el S.O. pero cuando trate de entrar en Mode Recovery para instalar de nuevo un SO me sale el signo de android con un signo de interrogacion rojo. y no puedo hacer nada, he buscado aplicaciones para Flashear el celular pero ninguna funciona, he usado:
-Descargadas desde Google play: ROM Mananger, Universal androot
-descargadas desde la PC: RecoverX,

y no me han funcionado ninguna, podrian ayudarme! a flashear mi celular??,,,,, gracias!

Se pueden espiar las conversaciones de whatsapp?????

hice otras pruebas, y note que es el disco duro que esta fallando, pueda que sea algun sector del disco. 

pero lo extraño es que es un disco sata de 80 gb y anteriormente tenia windows xp,  hace 3 dias lo formatee e instale ubuntu 14 y 2 dias despues me dio esa falla.

mira lo que muestra:




ejecute el fsck /dev/sda1

y muestra un error: este_>

ubuntu@ubuntu:~$ sudo fsck /dev/sda1
fsck desde util-linux-ng 2.17.2
fsck: fsck.ntfs: no se encontró
fsck: Error 2 mientras se ejecutaba fsck. ntfs para /dev/sda1
ubuntu@ubuntu:~$ 
 
 
 

aplique el

fdisk -l
 

y nada, no hizo nada, ahora la Bios si me reconoce el disco duro, por otra parte tengo 2 HDD uno para  windows y datos(HDD IDE) y otro para ubuntu(HDD SATA) solo, iniciando el sistema me muestra el recuadro de ubuntu para seleccionar el sistema que voy a  usar, si selecciono windows me levanta el sistema normal y puedo trabajar en el,  pero si selecciono ubuntu me pasa lo que comente arriba.


saludos!

otra cosa que esta haciendo y que no hacia es que tarda un poco mas de lo normal cuando inicia la Bios, es decir cuando esta reconociendo los  periféricos, tarda un poco y sale al finas des escritorio CHECK NVRAM y eso no lo mostraba antes.