Question

我编写了一个判断输入的三个数字是能够成三角形的vb代码，可是运行后输入数字都显示“不是三角形”

Answer 1

其实呢 abc三边是数据类型的 不是字符串 不能定义成字符型的 当然 你的如果要令a等于文本框的内容的话 应该这样写 a = text1.text 不是你那样写的 还有就是 你的标签怎么可能是label4呢 ？你之前根本就没有标签控件出现的哦，不是你那样写的 然后正确的代码是这样的
Dim a As Single
Dim b As Single
Dim c As Single
a = Val(Text1.Text) 这个表示的是 把字符串转化为数值型 这是个函数
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b > c And b + c > a And a + c > b Then
label1.caption = "是三角形"
Else
label1.caption = "不是三角形"
End If

Answer 2

试下这个
dim a as single
dim b as single
dim c as single
a=text1.text
b=txet2.text
c=text3.text
if a b >c. and. b c > a and a c >b then
text3.text="是三角形"
else
text3.text="不是三角形"
end if

Answer 3

a=text1及下有错，text1是字符型变量，不能赋值
应这样写
Private sub_command1 click()
a=Val(text1.text)
b=Val(text2.text)
c=Val(text3.text)
if a c＞b and a b＞c and b c ＞a then
msgbox("是三角形”)
else
msgbox("不是三角形“)
end if
end sub

Answer 4

三个数组成有五种形态：任意三角形，不是三角形，等边三角形，等腰三角形，直角三角形。只要代码没问题，三个数只有这五种结果。

Answer 5

a , b ,c 要定义数字类型 如 integer