如何把一段字符串倒过来？

来源：百度知道 编辑：UC知道 时间：2024/06/24 04:23:06
比如在文本框中输入vt54uidf，点一下按钮，文本框的内容就变成了fdiu45tv。请问如何实现此功能？

楼上……笨哦。。
有现成函数
private sub command1_click()
text1.text = StrReverse(text1.text)
end sub

StrReverse:属于vba(vba.StrReverse)。
功能:将一串字符串颠倒顺序。

一个文本框 text1
一个按钮 command1

-------------程序段--------------
Dim i As Integer
Dim texts As String
Private Sub Command1_Click()
For i = Len(Text1.Text) To 1 Step -1
texts = texts & Mid(Text1.Text, i, 1)
Next i
Text1.Text = texts
End Sub
------------------------------------------
经vb6.0下测试成功

Private Sub Command1_Click()
Text1 = StrReverse(Text1)
End Sub