StrReverse函数
StrReverse函数 描述返回一个字符串,其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串,它的字符顺序要被反向。如果string1是一个长度为零的字符串(""),则返回一个长度为零的字符串。如果string1为Null,则产生一个错误。
str2 = StrReverse(str1)
窗体上画一个按钮和文本框:
Private Sub Command1_Click()
Text1 = ""
Dim a()
strtxt = InputBox("输入字符串", "Tips")
l = Len(strtxt)
ReDim a(l)
For i = 1 To l
a(i) = Mid(strtxt, i, 1)
Next i
For i = l To 1 Step -1
Text1 = Text1 & a(i)
Next i
End Sub