VB中设计算法，判断某一个数是不是回文数（用文字叙述就可以了）

Question

如题所述

Answer 1

2种方法,
1,是使用VB自带的函数StrReverse , 一个数字,被翻过来以后,还和原数字相同,就可以判断是回文数了

2.使用循环,每次都2端取数字,都相同,就可以判断为回文数, 当有不同时,跳出循环,不是回文数

Answer 2

最简单的方法是把数字转化为字符串R，在去掉前导R的空格后，检查R是否和StrReverse(R)相等，如果是，则是回文数，否则不是。算法：
N=12345
R=trim(str(N))
if R=StrReverse(R) then
print "是回文数"
else
print "不是回文数"
end if

Answer 3

你先判断所求的数十几位数，如果为奇数位（比如3）位数，则判断left(text1,(len(text1)-1)/2)是否等于right(text1,len(text1)/2),如果等于则是回文数。另外的偶数位的你也可以参照这个。哎，我再给你全部编出来吧：
if len(text1) mod 2<>o then
if left(text1,(len(text1)-1)/2)=right(text1,(len(text1)-1)/2) then
msgbox("shi")
else
msgbox("bushi")
end if
else
if left(text1,len(text1)/2)=right(text1,len(text1)/2) then
msgbox("shi")
else
msgbox("bushi")
end if
end if

Answer 4

http://baike.baidu.com/view/101387.htm
自己看回文数的定义 就能明白如何设计