第1个回答 推荐于2018-03-11
Private Sub Command1_Click()
Dim a As String
a = InputBox("请输入一串字符", "输入")
For i = Len(a) To 1 Step -1
Print Mid(a, i, 1);
Next
End Sub本回答被提问者和网友采纳
第2个回答 2009-11-11
Function StrRe(ByVal StrText As String) As String
StrRe = StrReverse(StrText)
End Function
Sub main()
Dim strre As String
Console.WriteLine("请输入字符串:")
strre = Console.ReadLine()
strre = StrReverse(strre)
Console.WriteLine("逆序后的字符串:")
Console.WriteLine(strre)
Console.ReadLine()
End Sub
第3个回答 2009-11-08
是啊 我才想起来 StrReverse(string1) 受教了
第4个回答 2009-11-08
用StrReverse函数可以使字符反向!
str=StrReverse(string1)