哎,你是学计算机的吧,而且这还是作业,没错吧?!哈哈!
流程如下:(假设该数为 A )
1.用函数将A的字符串逆序输出
2.将1中输出的字符串与原数对比,如为相同,则为回文数,反之亦然。
代码:
Dim A as long
A=inputbox("请输入一个数")
If StrReverse(cstr(A)) = cstr(a) then
msgbox A & " 是回文数"
else
msgbox A & " 不是回文数"
end if
(以上代码经本人亲测,绝对正确,请放心使用!!)
好了好了,快试试先吧~~!
记得给我加分哦~~~~~~~~~~~~~~