vba编写一程序,输入一个字符串,将字符串逆序重放后输出

Question

如题所述

Answer 1

For I = 1 to str1.length -1
Str2 = str2 + right(left(str1'i),1)

Next I
其中str1 为原始字符串，即输入的字符串，str2为输出字符串，他们的定义和赋值你应该会的，对吧？追问

这是老师布置的作业，可是我看你写的怎么这么陌生

追答

sub a()
dim str1 as string
dim str2 as string
str1 = sheet1.cells(1,1).rows.value
str2 = ""
dim i as integer
for i = 1 to len(str1)
str2 = str2 + left(right(str1,i),1)
next i
sheet1.cells(1,2).rows.value = str2
end sub
就是你在sheet1中A1单元格输入内容，如“12345”，则运行过程后，在A2单元格输出“54321”。
昨晚手机打的，输错了，那里是正序的。