Programación inversa del alfabeto
Subcomando privado 1_Click()
Dim i es un número entero, m es un número entero
text2.text= " "
i = Len(Text1.Text)
Para m = 1 a I
s = Mid(Text1. Text, m, 1)
Si Asc > = 65 y Asc(s) <then=90
Texto 2. Texto = s + Texto2 texto
Terminará si...
Siguiente m
Finalizar conector