复制代码到文本文档,重命名为“反序.vbs”
======================================================================
a=inputbox("请输入要反序的数!")
for i=1 to len(a)
b=b&mid(a,len(a)-i+1,1)
next
msgbox b,vbyes,"反序后的结果!"
======================================================================