Dim s As String = e.Form.ConTrols("TextBox1").Text
If IsNumeric(s) Then
If CInt(s) = CDbl(s) Then
MessageBox.Show("整数")
Else
MessageBox.Show("小数")
End If