请问下vb怎样判断一个数是否是整数？

Question

如：在text1.text里输入一个数，如果是整数，就让text1.text=空("")vb怎么写啊

Answer 1

方法有多种，看你要怎么用了。
一、判断是否为数字且是否包含小数点：
IsNumeric(Text1) And InStr(1, Text1, ".", vbTextCompare)=0
二、计算：
Int(Val(Text1)) = Text1
三、正则表达式：
[0-9]{1,}

Answer 2

if x=int(x) then print x;"is a integer." else print x;"isn't a integer."
或者
input x
if x-int(x)>0 then print x;"isn't a integer." else print x;"is a integer."