Andres
31 de Octubre del 2005

Que tal,

Pues tengo que hacer un mini proyecto como practica para aprender pero no me sale...

Lo que tengo que hacer es que en un text box poner una frase o palabra y que al presionar un boton la palabra se voltee, por ejemplo hola=aloh y tambien en otro text box poner una palabra y que reemplaze las a por 1 y las i por 2...

eso es todo, tengo conocimiento basico de las funciones pero no puedo hacer esto, a ver si alguien aqui me puede ayudar por que es la pagina mas profesional que he encontrado sobre este tema...

Saludos y muchas gracias

mvallejos
31 de Octubre del 2005

Veamos

Para dar vuelta una cadena de caracteres, se recorre la cadena de atrás hacia adelante, concatenando los caracteres en una variable auxiliar.

Dim Cad as String
Dim i as Integer

Cad=""
For i = Len(Txet1.Text) Downto 1 Step -1
Cad = Cad & Mid(Text1.Text, i, 1)
Next i


Para reemplazar vocales por numeros, se usa la función Replace

Text1.Text = Replace(Text1.Text,"a","1")

Saludos