Question

vb中，如何判断一个变量所代表的值是否为正整数？

Answer 1

给你写一下哈，就是用int()函数判断，都x=int(x)时，就是正整数了，当然要排除零的。
Private Sub Command1_Click()
n = Val(InputBox("n"))
If n <> 0 Then
If n = Int(n) Then
Print n; "为正整数"
Else
Print n; "不是正整数"
End If
Else
Print 0; "不是正整数"
End If
End Sub

Answer 2

Private Sub Command1_Click()
n = Val(InputBox("请输入一个数字"))
If n = Int(n) And Sgn(n) = 1 Then
Print n; "为正整数"
Else
Print n; "不是正整数"
End If
End Sub