VB反序操作代码 例如输入1234 输出4321 有什么L = Len(Text1)的

Question

如题所述

Answer 1

Private Sub Command1_Click()

Dim str As String

Dim iTextLen As Integer

Dim outStr As String

str = Text1.Text

iTextLen = Len(Text1.Text)

If iTextLen < 1 Then Exit Sub

outStr = ""

Dim i As Integer

For i = iTextLen To 1 Step -1

outStr = outStr & Mid(str, i, 1)

Next i

Text1.Text = outStr

End Sub

Answer 2

+1

Answer 3

Private Sub Command1_Click()
l = Len(Text1.Text)
For i = 1 To l
Text2.Text = Mid(Text1.Text, i, 1) & Text2.Text
Next i
End Sub追问

貌似运行不了，还是谢谢