1樓：dl_會飛的青蛙
if isnumeric(a)=false thenmsgbox "該數不為數字", , "友情提示"
end if
忘記什麼樣的叫整數了！~
沒有小數點的都叫整數嗎？
如果可以拿小數點判斷就用instr(a,",")>0 就是有小數點
2樓：興
isnumeric 函式示例
本示例使用 isnumeric 函式判斷變數的值是否可為數值。
dim myvar, mycheck
myvar = "53" ' 指定值。
mycheck = isnumeric(myvar) ' 返回 true。
myvar = "459.95" ' 指定值。
mycheck = isnumeric(myvar) ' 返回 true。
myvar = "45 help" ' 指定值。
mycheck = isnumeric(myvar) ' 返回 false。
3樓：
這個題問的不完全。首先應做這樣的宣告，若a是數字，那麼它必是乙個一位數（即只能取0－9），否則你的這個題沒法解。
若a的ascii值不在48－57間，則認為不是數字if (asc(a) < 48 or asc(a)>57) thenmsgbox "該數不為數字", , "友情提示"
end if
若判斷a是否為數字：
dim a as object
a = 1
if (abs(fix(a)) < abs(a)) thenmsgbox(str(a) & "不是整數")else
msgbox(str(a) & "是整數")end if
注意的是：在使用絕對值函式abs前，要在類的前面加上這一句：
imports system.math
4樓：
if (a 不為數字) then
應該為if not isnumeric(a) then或if isnumeric(a) = false then判斷a是否為整數
if int(a) <> a then
msgbox str(a) & "不是整數"
else
msgbox str(a) & "是整數"
end if
VB中得為空判斷，VB 中得為空判斷
悠悠周郎 isnothing 用於判斷某個物件是否尚未賦值。例如 dim 物件 as object，此時 isnothing 物件 true。dbnull 指示 object 缺少的或不存在的資料。dbnull 與 nothing 不同，後者指示變數尚未初始化。dbnull 也與零長度字串不同 零長...
編寫程式,判斷正整數3 是否為素數 用VB）
所謂素數，是指除了1和該數本身之外，不能被其他任何整數整除的數。例如，13是素數，因為它不能被2，3，4，12整除。判斷乙個數n n 3 是否素數的方法是很簡單的 將n作為被除數，將2到 n 1 各個整數輪流作為除數，如果都不能被整除，則n為素數。private sub command1 click...
判斷是否為質數的快速演算法，判斷乙個數是否為素數的演算法
1醉夢紅顏 判斷n是否為質數 bool isprimenumber int n if n 2 0 int sqrtn int sqrt double n bool flag true for int i 3 i sqrtn i 2 return flag 你造一張素數表，假設很大，這個應該是最笨，但...