1樓：vb妮可
2種方法,
1,是使用vb自帶的函式strreverse , 一個數字,被翻過來以後,還和原數字相同,就可以判斷是迴文數了
2.使用迴圈,每次都2端取數字,都相同,就可以判斷為迴文數, 當有不同時,跳出迴圈,不是迴文數
2樓：匿名使用者
最簡單的方法是把數字轉化為字串r，在去掉前導r的空格後，檢查r是否和strreverse(r)相等，如果是，則是迴文數，否則不是。演算法：
n=12345
r=trim(str(n))
if r=strreverse(r) thenprint "是迴文數"
else
print "不是迴文數"
end if
3樓：白木道人
你先判斷所求的數十幾位數，如果為奇數位（比如3）位數，則判斷left(text1,(len(text1)-1)/2)是否等於right(text1,len(text1)/2),如果等於則是迴文數。另外的偶數位的你也可以參照這個。哎，我再給你全部編出來吧：
if len(text1) mod 2<>o thenif 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
4樓：匿名使用者
自己看回文數的定義 就能明白如何設計
vb 判斷一個數是迴文數
5樓：影者東昇
'最簡單的方法是把數字轉化為字串r，
'在去掉前導r的空格後，
'檢查r是否和strreverse(r),相等，'如果是，則是迴文數，否則不是。
'演算法如下：
n=12345
r=trim(str(n))
if r=strreverse(r) thenprint "是迴文數"
else
print "不是迴文數"
end if
關於VB中A尋路演算法的提問
亂石穿空 定理 穿越於一組互不相交的多邊形障礙物s之間 從pstart通往pgoal的任何一條最短路徑，都是一條多邊形路徑，其中所有的內部頂點都是s的頂點。推廣 所有最短路徑問題。結論 只有普遍適用的演算法，沒有普遍適用的 補充 只有問題例項化才能寫出適用 你所遇到的可不只是尋路問題，二維尋路相對簡...
VB中設計加法計算器，怎麼按按鈕能將數字連起來。如 按兩
private sub command9 click text1 text1.text command9.caption end sub 用字串連線就行了 angel的 你的按鈕上比如是9 那你就 9 是8 就 8 text1.text text1.text 9text1.text text1.te...
表示式計算器的設計與實現VB
option explicit public function str18 num as string as double dim i l lstart dim stemp dtemp dtemp2 if num vbnullstring then exit function lstart inst...