文本框只能输入键盘上0~9数字输入其他键无效，求段代码。

使用keypress事件

用isnumber函数可以判断是不是数字

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

竟然在首页！！！

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Or KeyAscii <Asc("0") Then
KeyAscii = 0
End If
End Sub
//////////////////////////////////////////////
Text1里面只能输入数字了

用Val( )是最简单的

Shutdown

精了？