reverse string

ram (3 Submissions) Miscellaneous Visual Basic 5.0 Unknown Difficulty Fri 2^nd August 2002 Mon 8^th February 2021

reverse string

Rate reverse string

(1(1 Vote))


Dim str As String
Dim a, i, x As Integer
str = Text1.Text
a = Len(str)
For i = 0 To a
x = a - i - 1
If x > 0 Then
Text2 = Text2 & Mid(Text1, x, 1)
End If

Next
End Sub

Download snippet Save to my list

reverse string Comments

No comments yet — be the first to post one!

reverse string

reverse string Comments

Post a Comment