s = Text1.Text:n = Len(s)
'按s中字符顺序从左到右依次存入到数组a中,代码略
i = 1
Do While i <= n - 1
t = ①
For j = n - 1 To i Step -1
a(j + 1) = a(j)
Next j
②
i = i + 1
Loop
For i = 1 To Len(s)
Text2.Text = Text2.Text + ③
Next i