思路:使用 循环 字符数 to 1 配合mid 提取每个字符就可以 示范代码: Private Sub Command1_Click() Dim a As String a = " abcdefg " For i = Len (a) To 1 Step - 1 b = b & Mid (a, i, 1 ) Next iPrint b End Sub