Question

VB中判断一个数是否是整数的语句是什么

Answer 1

Dim A As Double
A = InputBox("输入一个整数或小数", , "12.345")

If Fix(A) = A Then
MsgBox "是整数"
Else
MsgBox "不是整数"
End If

Answer 2

'写了一个完美判断数据是否是整数的函数,粘到vb中运行即可

Private Sub Form_Load()
'这个是例子
Dim a As String
a = "123213.334"
If isINT(a) Then
MsgBox "整数"
Else
MsgBox "不是整数"
End If
End Sub

'这个是函数
Function isINT(source As String) As Boolean
If IsNumeric(source) And source <> "" Then
If InStr(source, ".") = 0 Then
isINT = True '是整数
Exit Function
End If
End If
isINT = False '不是整数
End Function

--------------------------------------------------------------------------------------------
专业网站建设、动画设计、网站优化、网站托管
萍缘设计 http://www.pingyuansheji.com
My QQ ZONE:http://user.qzone.qq.com/396689791

Answer 3

Dim A As single
A = InputBox("输入一个整数或小数", , "55.345")

If int(A) = A Then
MsgBox "是整数"
Else
MsgBox "不是整数"
End If
int函数更确切.

Answer 4

fix是结尾取整...
int是求最小整数..
都可以