1樓：聽不清啊
private sub ***mand1_click()text1.text=trim(text1.text)if isnumeric(text1.
text) thenif text1.text = strreverse(text1.text) then
msgbox text1.text & " 是迴文數。"
else
msgbox text1.text & " 不是迴文數。"
end if
else
msgbox text1.text & " 不是一個數回字。答"
end if
end sub
2樓：匿名使用者
private sub ***mand1_click()dim n as long
n = val(inputbox("請輸入一bai個數！
du"))
if trim(str(n)) = trim(strreverse(n)) then
msgbox n & "是回
zhi文dao數！"
else
msgbox n & "不是迴文數！"
end if
end sub
vb編寫function過程，判斷數字是否是迴文數。程式要求輸入一系列數字，找出所有的迴文數並顯示在文字框中 50
3樓：網海1書生
private sub ***mand1_click()dim x as long, a as integerfor a = 1 to 5
x = val(inputbox("請輸入一個整數"))if fac(x) then text1.text = text1.text & x & " "
next
end sub
function fac(x as long) as booleanfac = (x = val(strreverse(x)))end function
怎麼樣，我這函式只用一行語句就解決了！原理就是把一個數左右反轉，如果與原來的數相等，那麼就是迴文數。
vb怎樣查詢並判斷數字是否為連續
本想寫出 由於樓主太小氣不給分，就只寫出思路 用for迴圈至文字長，再用mid擷取，再比較兩個數值差是1即為連續數，呵呵，如果按這思路還寫不出來的話，下次問問題時一定記住要給分。a split text1.text,for i lbound a to ubound a 1for j i 1 to u...
c從鍵盤輸入正整數，判斷是否為迴文數
輸入字串s 也可以輸入數字然後用sprintf程式設計字串 int len strlen s 1,i bool judge true for i 0 i 輸入以下程式即可判斷 int len strlen s 1,i bool judge true for i 0 i if s i s len i ...
sql判斷是否為數字
sqlserver判斷是來否為數字的函式 isnumeric 確定表示式是源否為一個有效的數字型別。語法isnumeric expression 引數 expression 要計算的表示式。返回型別 int註釋 當輸入表示式得數為一個有效的整數 浮點數 money 或 decimal 型別，那麼 i...