1. Visual Basic - Curso completo teoria y practica

Command1
Command2
Command3
Nombre CmdAceptar
Caption &Aceptar
Nombre CmdLimpiar
Caption &Limpiar
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
Pág. 289