在VB（Visual Basic）编程中，如果你想要一个文本框（TextBox）只能接收数字，你可以通过处理`KeyPress`事件来实现。以下是一个简单的示例，展示了如何确保文本框中只能输入数字：
新建一个EXE程序 并添加一个TextBox控件，将其命名为`txbNumber`。
编写代码
在代码窗口中，为`txbNumber`的`KeyPress`事件添加处理程序。
在处理程序中，检查输入的字符的ASCII码是否在数字字符（'0' 到 '9'）的范围内。
如果输入的字符不是数字，则将其ASCII码设置为0，从而屏蔽该字符。
为了确保退格键能够正常工作，需要特别处理退格键（ASCII码为8）的情况。
```vb
Private Sub txbNumber_KeyPress（KeyAscii As Integer）
' 如果按下退格键，直接退出事件处理程序
If KeyAscii = 8 Then Exit Sub
' 如果输入的字符不是数字，将其ASCII码设置为0
If KeyAscii < Asc（"0"） Or KeyAscii > Asc（"9"） Then
KeyAscii = 0
End If
End Sub
```
解释
`KeyPress`事件在用户按下并释放某个键时触发。
`KeyAscii`参数是一个整数，表示按下的键的ASCII码。
`Asc`函数返回一个字符的ASCII码。
通过检查`KeyAscii`是否在'0'到'9'的范围内，可以确定输入的字符是否是数字。
如果输入的字符不是数字，将其ASCII码设置为0，从而屏蔽该字符。
退格键的ASCII码是8，通过特别处理，确保退格键能够正常工作，用户可以删除之前输入的非数字字符。
建议
这种方法简单有效，但可能不适用于所有情况，例如处理自定义控件或复杂的用户界面。
如果需要更高级的输入验证，可以考虑使用正则表达式或其他更复杂的逻辑。
通过这种方式，你可以确保在VB程序中，文本框只能接收数字输入。