在VB中，如何判断输入的一个数字是整型还是浮点型？

2025-03-25 08:10:21

推荐回答（3个）

回答1：

如果一个数取整后大小不变，那么它就是整数，反之就是浮点数：

x = Val(InputBox("请任意输入一个数"))
If Int(x) = x Then
MsgBox "你输入的是整数"
Else
MsgBox "你输入的是浮点数"
End If

回答2：

Dim a As String
a = InputBox("输入一个数")
If IsNumeric(a) Then
  If Int(a) = a Then
    MsgBox a & "是一个整数"
  Else
    MsgBox a & "是一个浮点数"
  End If
Else
  MsgBox a & "不是数字"
End If

回答3：

Private Sub Form_Click()

x = Val(InputBox("x="))

If Int(x) = x Then Print x; "是一个整数" Else Print x; "是一个实数"

End Sub