Question

vb判断是否为整数

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

Answer 1

那就来点通俗的吧
新建一个VB工程 添加一个Command按钮控件 然后复制下面代码

Private Sub Command1_Click()
Dim a As Double, b As Long, c As Double
a = 3.143
If a = Int(a) Then
b = a
c = 0
Else
b = Int(a)
c = (a - Int(a)) * 60
End If

Print a, b, Round(c, 2)
End Sub

点击按钮 即可达到你要的目的 代码中的a=3.143 你自己可以随意修改 a就是你的输入数.

Answer 2

如果要四舍五入
x=cint(x)
如果不要就
x=int(x)
x就是检查的数，而且把他变成整数了

Answer 3

你要的程序代码是这样的:

Private Sub Command1_Click()
Dim s, t As Single
s = 10 / 3
Print "取整前:" & s
t = Round(s, 0)
Print "取整后:" & t
End Sub

我已经验证OK!!!你自己试试吧!!!

Answer 4

Int 函数 返回数的整数部分
用这个函数处理一下就可以了
if b-int(b)>0 then

Answer 5

A=1.5
if format(A,"0")=A then
msgbox "A为整数"
else
msgbox "A不为整数"
End if