Question

vb判断是否为整数

我写了段VB代码。计算出来后要求是整数。。
但是由于里面计算公式有除法。
我想判断他是否为整数。
如果是整数则直接显示。
如果不为整数则减去小数。。。
小数*60加到其他单位中去
我要的是个判断。。。。
例如
A=输入数
当A不为整数时
B=A-A的小数
C=A的小数*60
当A为整数的时候
B=A
C=0
我是个新手。。都是自己研究的。。没经过系统学习

Answer 1

判断整数是
if

int(val(text1.text))=val(text1.text)
then
label1.caption=
"是整数
"
else

label1.caption= "不是整数
"
end

if

Answer 2

Private
Sub
Command1_Click()
If
Val(Text1.Text)
=
Int(Val(Text1.Text))
Then

Label1.Caption
=
"整数
"
Else

Label1.Caption
=
"非整数
"
End
If
End
Sub