Reverses Text ! ( !Txet sesreveR )

BuBa_kInG (6 Submissions) String Manipulation VB 6.0 Unknown Difficulty Tue 23^rd May 2000 Mon 8^th February 2021

Rate Reverses Text ! ( !Txet sesreveR )

(1(1 Vote))



Dim leng, i, x
leng = Len(Text1)
For i = 0 To leng
x = leng - i - 1
Text2 = Text2 & Mid(Text1, x, 1)
Next

End Sub

Reverses Text ! ( !Txet sesreveR ) Comments

No comments yet — be the first to post one!