请问下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 xif x-int(x)>0 then print x;"isn't a integer." else print x;"is a integer."