For I = 1 to str1.length -1Str2 = str2 + right(left(str1'i),1)Next I 其中str1 为原始字符串,即输入的字符串,str2为输出字符串,他们的定义和赋值你应该会的,对吧?