Ingrese un párrafo de caracteres en vb, solicite eliminar otros caracteres, deje solo letras mayúsculas y envíelas en orden inverso de z a a

Cree un nuevo proyecto y arrastre un control Comando al formulario. Luego ingrese al área de códigos, elimine todo el código y pegue el siguiente código: Option?Explicit

Private?Sub?Command1_Click()

Dim?InS?As?String, S?As ?Cadena, T? Cadena

Dim?InS? ¿Cadena? p>

¿Dim?I ¿Como? String

Dim?C()?=?InputBox("Ingrese una cadena",?"" ,?" 1Ae4ui95487KuywY1Z2F") If?InS?=?"" ?Entonces?Salir?Sub J? =? Len(InS) For?I?=?1?To?J S?=?Mid(InS，?I，?1) 'Busca todas las letras mayúsculas y guárdalas en la variable T

If? Asc (S)?gt;?64?Y?Asc(S)?lt;?91?Entonces

T?=?T?amp;?S?amp;?" ??"

¿Fin?Si Siguiente?I T?=?Recortar(T) C?=?Dividir(T,?" ?") L?=?UBound(C) 'Organizar las letras en orden inversoPara?I?= ?0?A?L?1 Para?J?=?I? ?1?A?L

Si?C(I)?lt；?C(J)?Entonces?X?=? C (I):?C(I)? =?C(J):?C(J)? =?X ¿Siguiente?J ¿Siguiente?I 'Salida al formularioPara?I?=?0?A?L Imprimir? (I); ¿Siguiente? ¿Fin? Sub

Para ejecutar el efecto, ingrese 1Ae4ui95487KuywY1Z2F. Los resultados son los siguientes: