Question

VB中如何判断Text中为数字？

Text1.Text只要是数字就可以，如果含有英文、汉字、符号等其他非数字（允许小数点）则Text1.Text清0

Answer 1

IsNumeric 函数 语言参考
版本 1

请参阅

--------------------------------------------------------------------------------

描述
返回 Boolean 值指明表达式的值是否为数字。
语法
IsNumeric(expression)
expression 参数可以是任意表达式。

说明
如果整个 expression 被识别为数字，IsNumeric 函数返回 True；否则函数返回 False。 如果 expression 是日期表达式
，IsNumeric 函数返回 False。下面的示例利用 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 2

if not IsNumeric(Text1.text) then texte1.text="0"

Answer 3

if not isnumeric(text1.text) then text1.text=""

Answer 4

if not isnomeric(text1.text) then text1="0"

Answer 5

if not isnomeric(text1) then text1=""