数据类型判断
VB编程中遇到的问题：
怎样判断一个输入框中的数值是否为整型，即在一个文本框中输入数字，如果它输入的不是整形则提示错误，怎么判断文本框中的数字不是整型？
[解决办法]
Private Sub Command1_Click()
Dim strTmp As String
Dim blnIsInt As Boolean
strTmp = Trim(Text1.Text)
If IsNumeric(strTmp) Then
blnIsInt = (InStr(1, strTmp, ". ") = 0)
End If
If blnIsInt Then
MsgBox "输入的是整数 "
Else
MsgBox "输入的不是整数 "
End If
End Sub
