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

2024-11-17 12:44:33

推荐回答（4个）

回答（1）：

Private Sub Command1_Click()
For i = 1 To Len(Text1)
s = s & Left(Right(Text1, i), 1)
Next
Text2 = s
End Sub

回答（2）：

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

回答（3）：

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

回答（4）：

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