谁会字母的逆序排序呀，急急急（在线等待）

[er130]

text1中有asdf，点按纽后，text2中显示fdsa怎么写程序呀！！~~

[ROBOT]

dim i as integer
dim strtemp as string
for i=1 to len(text1.text)
strTEmp=strtemp & mid(text1.text,len(text1.text)-i+1,1)
next

text1.text=strTemp

[99998888ccddcc]

Private Sub Form_DblClick()
Dim x As Integer, a(1 To 4) As String
a(1) = "r": a(2) = "o": a(3) = "s": a(4) = "e"
For x = 1 To 4
Label1.Caption = Label1.Caption + a(x)
Next x
For x = 4 To 1 Step -1
Label2.Caption = Label2.Caption + a(x)
Next x



End Sub

[Reker熊]

a=Len(text1.text)
For I=0 to a-1
tempStr=tempStr+Mid(text1.text,a-I,1)
Next
text2.text=tempStr

[chenlishu413]

Dim tempstr As String
Dim str As String
Dim max As Long
Dim i As Long

str = InputBox("please input a string")
max = Len(Trim(str))

For i = max To 1 Step -1
tempstr = tempstr + Mid$(str, i, 1)
Next

Print tempstr

[chenlishu413]

Dim tempstr As String
Dim str As String
str = InputBox("please input a string")
tempstr = StrReverse(str)
Print tempstr

[loulun]

Private Sub command1_click()

Dim tempstr As String
Dim str As String
If Text1.Text = "" Then
MsgBox ("pleale input a string in the text")
End If
str = Text1.Text
tempstr = StrReverse(str)
Text2.Text = tempstr
End Sub

[qingming81]

这只是倒转字符串，不是逆序排序。用chenlishu413(超级学生)的。