private sub command1_click()
dim a as string ,s as string ,k as integer
a =""
for k = 1 to len(text1) ——k的循环从1 to len(text1)的字符长度
s = mid(text1,k,1) ——表示从text1中的第k个字符开始,向后提取1个字符。
a = s + a ——代表每次提取的字符放在最前面从而实现倒序排列,如果写成a = a +s 则正序开始排列
next k
text1.text = a
end sub