Question

VB编程题：输入三个任意数，判断该三个数是否为数值，如果为数值，则进一步判断这三个数是否构成三角形

Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If IsNumeric(a) Or IsNumeric(b) Or IsNumeric(c) = False ThenLabel4 = "请输入实数"Exit SubElseIf a + b > c And b + c > a And a + c > b ThenLabel4 = "构成三角形"ElseLabel4 = "不构成三角形"End IfEnd Sub这是我写的代码，运行程序只能执行上半段，不能执行下半段，不管打出来的数是否为数值，都是“请输入实数”。自己也看不出哪里出错了，烦请大佬告知，万分感谢！

Answer 1

判断字符串是否为数字吧，判断整型数据是否为数字？

IsNumeric(需要判断的字符串)

再试试，用这个函数需要注意啥你自行百度吧。