VB编程问题:怎么判断输入的是不是数字?

来源:百度知道 编辑:UC知道 时间:2024/05/26 06:15:18
编写一个计算器是中间有这样一句代码:
Dim x!, N1!, N2! 'N1,N2分别代表输入的第一个数和第二个数
Dim StrN1$, StrN2$ ' StrN1,StrN2分别代表输入第一个数和第二个数的字符串形式
Dim FirstN As Boolean ' 判断是否是数字开头

Private Sub Form_Load()
N2 = 0: N2 = 0 ' 令 N1 和 N2 为 0
StrN1 = "": StrN2 = "" ' 令 StrN1 和 StrN2 为空串
FirstN = True '确定为数字开头
End Sub
然后有一句代码:
Private Sub cmdn_Click(Index As Integer)
Select Case Index ' 用Index 作为判断分支的条件
Case 0 To 9 ' 如果Index是0到9,即数字
If FirstNum Then ' 输入为第一个数字的话
StrN1 = Str(Index) ' 实型转字符型
FirstN = False ' 初赋值标志为假
Else ' 输入不是第一个数字的话
StrN1 = StrN1 + Str(Index) ' 将输入的字符添加到原有字符串上

End If ' 结束 if 块
labxs.Caption = StrN1 ' 将字符串结果显示到标签上
End Select
请问为什么:If First

判断字符的ascii码是否为数字区间
码表如下
http://www.xin35.com/info/html/it/238.html

哥们用这个函数 IsNumeric()去判断就行了