在VB编程中怎么判断文本框中所打的内容全为数字？知道的写下！举个列子最好！

if Isnumeric(text1) then
msgbox "全是字符"
else
msgbox "还有其他字符"
end if

isnumeric(s) 如果返回true则是纯数字，否则除数字外有其他字符。
如果判断纯字母则要自己写函数了。
判断是否都是大写或都是小写，可以用 ucase(n)=n、lcase(n)=n来判断。

领教了 Isnumeric(X)

只有YES OR NO时, 应该习惯用IIF语句:

MsgBox IIf(IsNumeric(Text1), "全是数字", "不是数字")

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
Beep
KeyAscii = 0
KeyAscii = 13
MsgBox "你输入的不是数字"
End If
End Sub