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

Question

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

Answer 1

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)
nexttext1.text=strTemp
 

Answer 2

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 xEnd Sub

Answer 3

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

Answer 4

Dim tempstr As String
Dim str As String
Dim max As Long
Dim i As Longstr = InputBox("please input a string")
max = Len(Trim(str))For i = max To 1 Step -1
    tempstr = tempstr + Mid$(str, i, 1)
NextPrint tempstr

Answer 5

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

Answer 6

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

Answer 7

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