急~~~~~~在线等!!简单VB编程,将字符反向输出

不用StrReverse函数,编程将输入的字符串反向输出。要求用left、right或者left和right联合编写一个程序
谢啦~~~~~
要求从文本框中输入字符串,单击反向输出按钮式,在另一个文本框中输出反向字符串

Private Sub Command1_Click()
For i = 1 To Len(Text1)
s = s & Left(Right(Text1, i), 1)
Next
Text2 = s
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-11-08
Private Sub Command1_Click()
s=Text1
m=Len(s)
For i=1 To m
k=k & SubStr(S,m-i+1,1)
Next
Text2=k
End Sub
第2个回答  2011-11-08
Sub Command1_Click()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & Left(Right(Text1.Text, i), 1)
Next
End Sub
第3个回答  2011-11-08
Private Sub Command1_Click()
Dim StrTmp As String
For i = 1 To Len(Text1.Text)
StrTmp = Right(Text1.Text, i)
Text2.Text = Text2.Text & Left(StrTmp, 1)
Next
End Sub