Dim tmpStr As String
Dim Str() As byte
dim i
Str=tmpStr
for i=0 to len(tmpStr )/2
if Str(i)=Str(len(tmpStr )-i) then
else
exit for
endif
next i
返回指定字符串的字符顺序是相反的字符串。
StrReverse(ByVal Expression As String) As String
用这个反一下 和原先的比较
text=inputbox("","")
if text=StrReverse(text) then msgbox "yes" else msgbox "no"
'这个在vb和vbs里都能用，且简单
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024