Question

VB三角形判断程序

如果输入三边，则判断是否构成三角形，如果是，则判断是否直角，且计算面积，不是则显示 不是三角形（有两个FORM）

Answer 1

简单的给你讲一下思路吧，构成三角形的条件是，a+b>c，就是任意两边的和大于第三边，用and连接判断条件语句，必须都成立的情况下才是三角形。
判断是否直角就是利用勾股定理，你可以找出较小的两条边进行勾股定理，比如a和b，a*a+b*b是否等于c*c，等于就是直角三角形，前提是较小边的平方和。
计算面积就是底乘以高/2就好了在直角三角形的前提下！
具体代码还是你自己写吧，既然学就要自己好好学
！

Answer 2

a+b>=c&&a-b<c;
判断直角用；
a^2+b^2=c^2||b^2+c^2=a^2||a^2+c^2=b^2
其他的相信你也知道了，

Answer 3

Dim d(1 To 3) As Single, a As Single, b As Single, c As Single
Private Sub Command1_Click()

d(1) = Val(Text1.Text)
d(2) = Val(Text2.Text)
d(3) = Val(Text3.Text)
For i = 1 To 3
For j = i + 1 To 3
If d(i) < d(j) Then t = d(i): d(i) = d(j): d(j) = t
Next
Next
a = d(1): b = d(2): c = d(3)
If a < b + c And a > b - c Then
Print "这三条线段能围成三角形"
If a ^ 2 = b ^ 2 + c ^ 2 Then
Print "这个三角形是直角三角形，它的面积是：" & b * c / 2
Else
Print "这个三角形不是直角三角形"
End If
Else
Print "这三条线段不能围成三角形"
End If

End Sub