Dim s1 As String, s2 As String

Dim c As Integer, i As Integer

s1 = InputBox("请输入一串字符")

s2 = ""

c = Len(s1)

For i =      ▲        

    s2 = Mid(s1, i, 1) + s2

Next i

Print s2

【函数功能提示】

⑴函数Len(x)的功能是：取字符串x的长度值（即字符个数值）。

若x="abc"，则Len(x)的值为3。

⑵函数Mid(x，y，z)的功能是：在字符串x中第y个字符开始取z个字符。

若x="abcdefg"，则 Mid(x，4，3)取得的值是"def"。