在VB中判断数a非负整数可以表示为？

a>=0 and a-cint(a)=0

dim a as double
a=inputbox("Please input a")
if a>=0 and a=int(a) then
msgbox "a是非负整数"
end if

dim a as integer
a=val(inputbox("请输入一个数：","输入"))
if a>=0 then print "a为非负数" else print "a为负数"

if a=|a| then print"a是整数"

if a>0 and int(a)<>a then
你要干的事，嘿嘿！
end if