Question

vb基础问题 如何判断输入数值是否为数字

我是初二学生 这是我根据老师讲的和自己摸索编的一个周长计算器
现在代码是
Private Sub Command1_Click()
Dim r As Double
Dim a As Double
Dim b As Double
If Option1.Value Then
Let a = Val(Text1.Text)
Text3.Text = a * 4
End If
If Option2.Value Then
Let a = Val(Text1.Text)
Let b = Val(Text2.Text)
Text3.Text = (a + b) * 2
End If
If Option3.Value Then
Const pi = 3.14
Let r = Val(Text1.Text)
Text3.Text = 2 * pi * r
End If
If Option4.Value Then
Let a = Val(Text1.Text)
Let b = Val(Text2.Text)
Let c = Val(Text4.Text)
Text3.Text = a + b + c
End If
If r < 0 Then
Text3.Text = "你见过半径有负数？"
End If
If a < 0 Then
Text3.Text = "你见过边长有负数？"
End If
If b < 0 Then
Text3.Text = "你见过边长有负数？"
End If
End Sub
我现在想加入判断text1 2 4中输入的是否为数字 然后再计算 请问该怎么修改

Answer 1

把下面代码加在你的代码前面
If Isnumeric(me.text1)=false then
msgbox "输入的不是数字“
exit sub
end if

Answer 2

有个函数叫 IsNumeric

Dim MyVar, MyCheck
MyVar = "53" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。
MyVar = "459.95" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。
MyVar = "45 Help" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 False。