如何判断一个数是正整数

'判断一个数是不是正整数，首先判断是否大于0，然后把这个数强制转换成整形，相减如果为0则为正整数

'下面是VB代码
If (TextBox4.Text < 0 Or TextBox4.Text - CInt(TextBox4.Text) <> 0) Then
MessageBox.Show("请输入正整数。")
End If