vb程序设计题，当输入一串字符“ABCDE”是， 在窗体上的效果如下

测试通过：

Sub test()
    Dim str As String, str1 As String
    str = "ABCDE"
    For i = 1 To Len(str)
        str1 = str1 & Mid(str, i, Len(str) - i + 1)
        If i > 1 Then str1 = str1 & Mid(str, 1, i - 1)
        str1 = str1 & Chr(13)
    Next i
    MsgBox str1
End Sub

首先把text2的MultiLine 属性设置为True
Private Sub Command1_Click()
Text1 = "ABCDE"
Text2 = ""
Dim a(1 To 5) As String
Dim i As Integer, j As Integer
For i = 1 To Len(Text1)
a(i) = Mid(Text1, i, 1)
Text2 = Text2 & a(i)
Next i
Text2 = Text2 + Chr(13) + Chr(10)
For i = 5 To 2 Step -1
t = a(1): a(1) = a(i): a(i) = t
Next i
For i = 1 To 5
Text2 = Text2 & a(i)
Next i
Text2 = Text2 + Chr(13) + Chr(10)
For i = 5 To 2 Step -1
t = a(1): a(1) = a(i): a(i) = t
Next i
For i = 1 To 5
Text2 = Text2 & a(i)
Next i
Text2 = Text2 + Chr(13) + Chr(10)
For i = 5 To 2 Step -1
t = a(1): a(1) = a(i): a(i) = t
Next i
For i = 1 To 5
Text2 = Text2 & a(i)
Next i
Text2 = Text2 + Chr(13) + Chr(10)
For i = 5 To 2 Step -1
t = a(1): a(1) = a(i): a(i) = t
Next i
For i = 1 To 5
Text2 = Text2 & a(i)
Next i
Text2 = Text2 + Chr(13) + Chr(10)
End Sub