Question

在vb中的文本框里输入一个数,按下按钮后,如何判断它是否是整数

Answer 1

这个有个很笨的方法，就是检索“.”,把每个数字分开来比如：123.89 这个数字可以用以下方法

Mid函数
Mid(X,n,m)
由X的第n个字符读起，读取后面的m个字符。
你就
Private Sub Command1_Click()

Dim X As String
Dim P As String
Dim i, k As Integer '以上三行为定义那啥

X = Text1.Text '取文本框内的字符
k = Len(X) '取文本框内的字符长度 并传给k

For i = 1 To k '循环体，从第一个字符开始找，一直找到K（字符串的长度，最后一个字符）
P = Mid(X, i, 1)
If P = "." Then MsgBox "唉，输入有小数哟！"
Next i
End Sub

另外，还有一个方法，你可以试试，就是用ASCII码的方式，来限制输入只能为数字：
在TextBox的KeyPress事件中加入代码
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >=48 And KeyAscii <=57 Then
KeyAscii = 0
Else
Msgbox "Error"
End If

End Sub

如果回答得让你满意，你就加分，好了，就这样！

Answer 2

If IsNumeric(Text1) Then
If Val(Text1) = Int(Text1) Then
Print "整数"
Else
Print "非整数"
End If
Else
Print "不是数字"
End If

Answer 3

有很多方法，前面说的都行得通，我也略说一下我的想法吧，就是先假想该数有小数点，用该数减去整数部分，若结果为零这自然是整数，若不为零即小数
Private Sub Command1_Click()
If Val(Text1.Text) - Fix(Val(Text1.Text)) = 0 Then
MsgBox "整数"
Else
MsgBox "小数"
End If
End Sub