穿越现代之盗帅楚留香:判断一个数是否为回数的算法! 谢谢啊(VB)

来源:百度文库 编辑:高校问答 时间:2024/04/30 16:00:56
回数就是121 11211 最起码三位数 以中间一个为轴 两边对称的 呵呵

Dim n as Integer
Dim strInput as String '输入的数字

'先返回输入数字的长度
n=len(strInput )

If n<3 then
msgbox "请至少输入三位数字"
Else
n=(n-1)/2

'比较左右是否相等
If Clng(Left(strInput,n))=Clng(Right(strInput,n)) then
Msgbox "该数字是回数"
Else
Msgbox "该数字不是回数"
End if
End if

正看倒看一样就行了

回数是什么意思?