VB ingresa una oración en inglés, determina cuántas palabras hay en la oración, cuenta el número de artículos que contiene, luego elimina los artículos y conserva el resto.

Código: ¿Privado?Dim?Sentence?As?String,?strWord()?As?String,?WordCount?As?Integer,?RemainingWords()?As?String,?RemainingWrodCount?As?Integer ,?ArticleCount?As?Integer,?Punctuation?As?String Sentence?=?InputBox("Ingrese una declaración en inglés con un espacio entre las palabras y una puntuación al final de la oración"). ,?" InputBox",?" La "palabra "secretaria "proviene de "la misma raíz "latina "que "la "palabra "secreto">) Text1.Text"="Sentence strWord"="Split(Left(Sentence) ,?Len(Oración)?-?1), ?"?") ¿Puntuación?=?Derecha(Oración,?1) WordCount?=?UBound(strWord)?-?LBound(strWord)? =?WordCount For?i?=?LBound(strWord)?To?UBound(strWord)

Si?strWord(i)?lt;gt;?entonces"The"? "Y?strWord(i) )?lt;gt;? "el"? "Y?strWord(i)?Entonces ReDim?Preserve?RemainingWords(RemainingWrodCount) RemainingWordCount? =?strWord(i) RemainingWrodCount?=?RemainingWrodCount? ?1

¿Fin?Si es siguiente?i ¿Recuento de artículos?=?Recuento de palabras?-?UBound(Palabras restantes)?-?1 Texto3.Texto?=?Recuento de artículos para?i?=?LBound(Palabras restantes)?A?UBound(Palabras restantes) ?-?1

Texto4.Texto?=?Texto4.Texto? ?Palabras Restantes(i)? ?Espacio(1) Siguiente?iTexto4.Texto?=?Texto4.Texto? ))? Puntuación

Fin?Sub

Privado?Sub?Form_Load()Text1.Text?=?"" Text2.Text?=?"" Text3.Text4 . Text?=?""

End

End?Sub

Interfaz de diseño:

Interfaz de ejecución: