例如: dim tempstr as string dim str as string str=inputbox("please input str") tempstr=strreverse(str) print tempstr
例如: dim tempstr as string dim str as string dim max as long dim i as long str=inputbox("please input str") max=len(trim(str)) for i=max to 1 step -1 tempstr=tempstr+mid$(str,i,1) next print tempstr
dim tempstr as string
dim str as string
str=inputbox("please input str")
tempstr=strreverse(str)
print tempstr
dim tempstr as string
dim str as string
dim max as long
dim i as long
str=inputbox("please input str")
max=len(trim(str))
for i=max to 1 step -1
tempstr=tempstr+mid$(str,i,1)
next
print tempstr