怎样表示一个正整数我在用VB写程序,遇到了这样一个问题：需要用一个式子来表示这个数为正整数（比如,表示负数时,可以为这个数

Question

怎样表示一个正整数
我在用VB写程序,遇到了这样一个问题：需要用一个式子来表示这个数为正整数（比如,表示负数时,可以为 这个数

Answer 1

Private Sub Command1_Click()
If CheckInt(Text2.Text) = True Then
MsgBox "正整数"
Else
MsgBox "不是正整数"
End If
End Sub
Function CheckInt(ByVal str As String) As Boolean
If InStr(1,str,".") = 0 Then
If str > 0 Then
CheckInt = True
Else
CheckInt = False
End If
Else
CheckInt = False
End If
End Function
'日曜星君