تابع Reverse یا برعکس کردن متن

با سلام و سپاس

 

تکه کد کاربردی برعکس کردن متن یا Reverse

 

Sub Reverse (T As String) As String
  Dim s As String
  For i = T.Length - 1 To 0 Step -1
    s = s & T.CharAt(i)
  Next
  Return s
End Sub

 

و گرفتن خروجی از ساب به صورت زیر می باشد :

 

 

Log(Reverse("YAHOO98")) 'خروجی: ۸۹OOHAY