在VB中，如何判断输入的一个数字是整型还是浮点型？
展开全部
如果一个数取整后大小不变，那么它就是整数，反之就是浮点数：
x = Val(InputBox("请任意输入一个数"))
If Int(x) = x Then
MsgBox "你输入的是整数"
Else
MsgBox "你输入的是浮点数"
End If
x = Val(InputBox("请任意输入一个数"))
If Int(x) = x Then
MsgBox "你输入的是整数"
Else
MsgBox "你输入的是浮点数"
End If
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub Form_Click()
x = Val(InputBox("x="))
If Int(x) = x Then Print x; "是一个整数" Else Print x; "是一个实数"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
