用VB怎么把12345变成54321

如题所述

举报该文章

相关建议 2007-06-25

最简单的就是用StrReverse函数：
假设Text1.Text=12345
在发生Command1的单击事件时要让Text2.Text=54321
语句为：
Private Sub Command1_Click()
Text2.Text = StrReverse(Text1.Text)
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pm882f27.html

其他看法

第1个回答 2007-06-25

Function RevStr(ByVal strSrc As String)

Dim i As Integer
Dim strRet As String

For i = 1 To Len(strSrc)
strRet = Mid(strSrc, i, 1) & strRet
Next

RevStr = strRet

End Function

调用方式-------
Dim strA
strA = "12345"
strA = RevStr(strA)本回答被提问者采纳

相似回答

大家正在搜