وارونه کردن یک string

[setak]

آیا تابعی برای وارونه کردن یک string وجود دارد؟
برای مثال تبدیل "1234" به "4321"

[Asad.Safari]

ببین این کار میکنه :



StrReverse(str)

موفق باشید

[zarrin_306]

هدف در این کد :
تعیین طول رشته . معکوس کردن ترتیب کارکتر ها .و کپی دنبالع ای از کارکتر های درون رشته به آرایه کارکتری است




Module modMiscellaneous

Sub Main()
Dim string1, output As String
Dim characterArray As Char()
Dim i As Integer
Dim quotes As Char = ChrW(34)

string1 = "hello there"
characterArray = New Char(5) {}

' output string
output = "string1: " & quotes & string1 & quotes

' test Length property
output &= vbCrLf & "Length of string1: " & string1.Length

' loop through characters in string1 and display
' reversed
output &= vbCrLf & "The string reversed is: "

For i = string1.Length - 1 To 0 Step -1
output &= string1.Chars(i)
Next

' copy characters from string1 into characterArray
string1.CopyTo(0, characterArray, 0, 5)
output &= vbCrLf & "The character array is: "

For i = 0 To characterArray.GetUpperBound(0)
output &= characterArray(i)
Next

MessageBox.Show(output, "Demonstrating String" & _
" properties Length and Chars", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub ' Main

End Module ' modMiscellaneous