Question

vb判断正整数

Answer 1

Sgn 函数

返回一个Variant (Integer)，指出参数的正负号。
语法
Sgn(number)
必要的number参数是任何有效的数值表达式。
返回值
number Sgn 返回
大于 0 1
等于 0 0
小于 0 -1
说明
number 参数的符号决定了Sgn 函数的返回值。

Answer 2

Private Sub Command1_Click()
Dim n As Double
n = Val(InputBox("请你输入一个数"))
If n > 0 And Int(n) = n Then
MsgBox "是正整数"
Else
MsgBox "不是正整数"
End If
End Sub