Private Sub Form_Load()
Dim A As String, B As String
Show
A = ""'A用来存放倒序的字符，其初始值为空
For i = Len(B) To 1 Step -1 '用循环来实现倒序，依次取B的倒数第一个，倒数第二个字符....
A = A &Mid(B, i, 1) '存入A中
Next
Print A '在窗体上打印出A（倒序的字符串），结果为“321是我”
End Sub
关键在那个For循环中，如果不懂的话再问我。
因为char *strings[]不是指针而是指针数组，那么temp = strings[top]
strings[top] = strings[seek]
strings[seek] = temp
这种交换交换的就是主调函数中的数组中的指针，把指向字符串的指针顺序改变了，当然按次序输出就达到排序目的了……
