可能是这个样子的了 Dim s, i, j s = "1234567890" For i = len(s) To 1 step -1 j = j & Mid(s, i, 1) Next msgbox j 测试下
Private Sub Command1_Click()Me.ClsDim t As String, s As String, j As Longt = "ABCD你好吗"For j = 1 To Len(t)s = Mid(t, j, 1) & sNextPrint tPrint sEnd Sub