如何用vb编写输入一串数，如何辨别输入为整型数，若为整型，则输出，若为非整型，提示出错

Question

比如：输入 ：12345 则输出
      输入： qwq1323 ，则提示输错
      

Answer 1

IsNumeric 函数
      返回 Boolean 值，指出表达式的运算结果是否为数。语法IsNumeric(expression)必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。说明如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。如果 expression 是日期表达式，则 IsNumeric 返回 False。

Answer 2

IsNumeric 函数示例
本示例使用 IsNumeric 函数判断变量的值是否可为数值。Dim MyVar, MyCheck
MyVar = "53"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 True。MyVar = "459.95"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 True。MyVar = "45 Help"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 False。

Answer 3

我通常用val()  来判断的val(12.20)=12.20
val(af12)=0

Answer 4

IsNumeric 
用这个函数比较好实现的方式还有，比如TYPANAME函数可以判断变量的类型

Answer 5

If Not IsNumeric(Trim(ctr.Text)) And Trim(ctr.Text) <> "" And Trim(ctr.Text) <> "-" Then
    MsgBox "你输入的不是数字!", vbInformation + vbOKOnly, "电脑提醒你"
else
end if