reverse string

by ram (3 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 2^nd August 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

reverse string

Rate reverse string



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 this snippet Add to My Saved Code

reverse string Comments

No comments have been posted about reverse string. Why not be the first to post a comment about reverse string.

reverse string

reverse string Comments

Post your comment

Difficulty