Question

“如果y是整数”这句话能不能翻译成VB语言

Answer 1

Dim MyNumber

MyNumber = Int(99.8)' 返回 99.

MyNumber = Fix(99.2)' 返回 99.

MyNumber = Int(-99.8) ' 返回 -100.

MyNumber = Fix(-99.8)' 返回 -99.

MyNumber = Int(-99.2) ' 返回 -100.

MyNumber = Fix(-99.2) ' 返回 -99.

以上示例可以看出 用Int和Fix来对正负整数判断是不一样的

为了正负一致 可以通过这样做 通过整除来判断

y = InputBox("请输入要判断的数值")

If Val(y) 1 y Then MsgBox "y不是整数" Else MsgBox "y是整数"