1樓:匿名使用者
dim a as double
a = inputbox("輸入一個整
數或小數", , "12.345")
if fix(a) = a then
msgbox "是整數"
else
msgbox "不是整數"
end if
2樓:圖杭科技
dim a as single
a = inputbox("輸入一個整數
或小數", , "55.345")
if int(a) = a then
msgbox "是整數"
else
msgbox "不是整數"
end if
int函式更確切.
3樓:匿名使用者
'寫了一個完美判斷資料是否是整數的函式,粘到vb中執行即可
private sub form_load()
'這個是例子
dim a as string
a = "123213.334"
if isint(a) then
msgbox "整數"
else
msgbox "不是整數"
end if
end sub
'這個是函式
function isint(source as string) as boolean
if isnumeric(source) and source <> "" then
if instr(source, ".") = 0 then
isint = true '是整數
exit function
end if
end if
isint = false '不是整數
end function
專業**建設、動畫設計、**優化、**託管
萍緣設計 http://****pingyuansheji.***
4樓:匿名使用者
fix是結尾取整...
int是求最小整數..都可以
vb中判斷是否為迴文數,急 求 VB判斷迴文數的程式碼
參考 private sub mand1 click text1.text trim text1.text if isnumeric text1.text thenif text1.text strreverse text1.text then msgbox text1.text 是迴文數。else...
VB中正確的迴圈語句是,vb中的迴圈語句
for x 迴圈變數 1 初始值 to 10 終止值 step 2 步進 next 以上為完整的迴圈結構 1.沒有終止值 所以錯 3.初始值比終止值小 所以步進應該為整數 而它是負數 所以也錯4.初始值大於終止值 預設步進為1 無法迴圈 所以也錯 for語句 for counter start to...
判斷數是否是質數判斷一個數是否是質數
根據質數的定義,在判斷一個數n是否是質數時,只要用1至n 1去除n,看看能否整除即可。還有更好的辦法 先找一個數m,使m的平方大於n,再用小於等於m的質數去除n n為被除數 如果都不能整除,則n必然是質數。如我們要判斷1993是不是質數,50 50 1993,那麼只要用1993除以 50的質數看是否...