| ËùÊô·ÖÀࣺ
×Ö·û´¦Àí
×÷Õߣº
¹²ïí
¸üÐÂÈÕÆÚ£º2003-10-29 19:06:46 ÔĶÁ´ÎÊý£º104 |
|
·×ª×Ö·û´®
Function reversestring(revstr As String) As String
revstr: Òª·×ªµÄ×Ö·û´®
·µ»ØÖµ:·×ªºóµÄ×Ö·û´®
Dim doreverse As Long
reversestring = ""
For doreverse = Len(revstr) To 1 Step -1
reversestring = reversestring & Mid$(revstr, doreverse, 1)
Next
End Function
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ûÓÐÏà¹ØÎÄÕÂ
|
|
|
|
