Red de conocimiento informático - Problemas con los teléfonos móviles - Escrito en VB, escriba un programa para filtrar caracteres alfabéticos de una cadena y almacenarlos en orden inverso.

Escrito en VB, escriba un programa para filtrar caracteres alfabéticos de una cadena y almacenarlos en orden inverso.

'text1 corresponde a tu cadena de entrada

'text2 corresponde a la cadena invertida

'command1 corresponde al botón de separar e invertir

'El botón borrar correspondiente al comando2

'El código ascii correspondiente a a es 97 y el código ascii correspondiente a z es 122

'El código ascii correspondiente a A es 65 Z correspondiente El código ascii es 90

Private Sub Command1_Click()

''Calcular el código inverso

Si Text1.Text <> "" Entonces

For i = 0 To Len(Text1.Text) - 1

c = Mid(Text1.Text, Len(Text1.Text) - i, 1)

Si Asc (c) > 65 y Asc(c) < 90 o Asc(c) > 97 y Asc(c) < 122 entonces

Si '' es una letra, se mostrará el resultado

Texto2 .Texto = Texto2.Texto & c

Else

Finalizar si

Fin Sub

Sub Comando Privado2_Click()

''Borrar

Texto1.Texto = ""

Texto2 .Text = ""

Texto1.SetFocus

Fin Sub