用VB设计一个程序，将输入的字符串以反序显示

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim S As String, T As String
S = InputBox("输入一个字符串")

Print T
Dim I As Integer
For I = Len(S) To 1 Step -1
T = T & Mid(S, I, 1)
Next
Print T

End Sub最简单的Private Sub Command1_Click()
Dim S As String, T As String
S = InputBox("输入一个字符串")
'T = StrReverse(S)
End Sub

Answer 2

Option Explicit
Private Sub Form_Load()
Dim a() As String
Dim i As Integer
Dim j As Integer
Dim s As String
Dim t As String
Dim n As Integer
s = InputBox("输入字符串")
ReDim a(Len(s))
i = 1
n = Asc(Mid(s, 1, 1))
While n <> 32
a(i) = Mid(s, i, 1)
i = i + 1
n = Asc(Mid(s, i, 1))
Wend
j = i - 1
While j > 0
Print a(j);
j = j - 1
Wend
End Sub

Answer 3

Public Function reverseStr(ByVal revStr As String) As String
    reverseStr = StrReverse(revStr)
End Function