VB中判斷數是否是整數的語句是什麼

2021-05-23 05:37:23 字數 1142 閱讀 3796

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的質數看是否...