Invertir una cadena - Versión para impresión

Código:
' Gambas class file



Public Sub Form_Open()



  Dim z As Integer

  Dim s As String

  Dim stx As New String[]

  Dim otx1 As New String[]

  Dim otx2 As New String[]

  Dim j As Integer

  Dim m As New Byte[]



  For i = 1 To 100

    For j = 0 To 15

      m.Add(Rand(33, 165))

    Next

    s = m.ToString()

    stx.Add(s)

    m.Clear

  Next



  otx1 = Reverse1(stx)

  otx2 = Reverse2(stx)



  If otx1.Count = stx.Count And otx2.Count = stx.Count Then

    For z = 0 To stx.Max

      Print stx[z]& ":" & otx1[z] & ":" & otx2[z]

Next

  Endif



  Me.Close



End



Public Sub Reverse2(stx As String[]) As String[]



  Dim otx As New String[]

  Dim s As String

  Dim r As New Byte[]



  For Each s In stx

    r.FromString(s)

    r.Reverse()

    otx.Add(r.ToString())

  Next



  Return otx



End



Public Sub Reverse1(stx As String[]) As String[]



  Dim otx As New String[]

  Dim s As String



  For Each s In stx

    otx.Add((Byte[].FromString(s)).Reverse().ToString())

  Next

  Return otx

End