CADENA INVERTIDA

Escriba una función que reciba como argumento una cadena de caracteres y la devuelva en forma inversa, por ejemplo si se ingresa la cadena CORAZON deberá retornar NOZAROC.

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

2 etiquetas
2 cajas de texto
3 botones de comando

En seguida proceda a establecer las propiedades según se indica:

Form1

Nombre
FrmCadInvertida

Caption
Cadena invertida

BorderStyle
3-Fixed Dialog

Label1

Nombre
LblCadena

Autosize
True

Caption
Ingresa una cadena:

Label2

Nombre
LblInvertida

Autosize
True

Caption
Cadena invertida:

Text1

Nombre
TxtCadena

Text


Text2

Nombre
TxtInvertida

Locked
True

Text


Command1

Nombre
CmdAceptar

Caption
&Aceptar

Command2

Nombre
CmdLimpiar

Caption
&Limpiar

Command3

Nombre
CmdSalir

Caption
&Salir

Una vez establecidas las propiedades de la interfaz, proceda a ingresar el siguiente código:

Function CadInvertida(Cadena As String) As String
Dim Invertida() As String * 1
Dim I As Integer
Dim J As Integer
N = Len(Cadena)
ReDim Invertida(N)
For I = 1 To N
Invertida(I - 1) = Mid(Cadena, I, 1)
Next I
For J = (N - 1) To 0 Step -1
CadInvertida = CadInvertida & Invertida(J)
Next J
End Function

Private Sub CmdInvertir_Click()
TxtInvertida = CadInvertida(TxtCadena)
End Sub

Private Sub CmdLimpiar_Click()
TxtCadena = “”
TxtInvertida = “”
TxtCadena.SetFocus
End Sub

Private Sub CmdSalir_Click()
End
End Sub