Question

我想知道，怎么用VB编写判断，文本框中所输入的是不是数字，如果不是数字的话怎么终止接下来的步骤。

Answer 1

你可以按下面方法自行扩展应用
'限制只能输入0-9数字和小数点、退格、回车键
Function LimitCurrency(ByRef tmpCode As Integer)
If InStr("0123456789.-" & Chr(8) & Chr(13), Chr(tmpCode)) <= 0 Then
tmpCode = 0
End If
End Function
调用方法举例：
Private Sub Text1_KeyPress(KeyAscii As Integer)
LimitCurrency KeyAscii
End Sub