Question

VB程序设计中如何求判定三角形并求其面积？

以下是我设计的，但是好像错了，我设计的错在哪里啊？望高手指教一二啊。

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim s As Single
Dim area As Single
If a > b Then
t = a
a = b
b = t
End If

If a > c Then
t = a
a = c
c = t
End If

If b > c Then
t = b
b = c
c = t
End If

If (a + b) < c Then
Text4.Text = "这三条边不能构成一个三角形"
Else
If a = b And b = c Then
Text4.Text = "这三条边可以构成一个等边三角形"
ElseIf (a * a + b * b) = c * c Then
Text4.Text = "这三条边可以构成一个直角三角形"
Else
Text4.Text = "这三条边可以构成一个普通三角形"
End If
End If
If (a + b) >= c Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
s = (a + b + c) / 2
area = Sqr(s * (s - a) * (s - b) * (s - c))
Text4.Text = area
End If
End Sub

Private Sub Command2_Click()
End
End Sub

在下不胜感激。

Answer 1

其实，你的程序大多是正确的；只需修改三个地方：
1，再拖一个text5，把Text4.Text = area改为Text5.Text = area
2，把a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
移到Dim area As Single的下方。
3.把If (a + b) < c Then
Text4.Text = "这三条边不能构成一个三角形"
改为If (a + b) < ＝c Then
Text4.Text = "这三条边不能构成一个三角形"

你不妨试一下！

Answer 2

If (a + b) < c Then
改为If (a + b) < =c Then
If (a + b) >= c Then
改为If (a + b) > c Then
分析：a + b=c时不能构成三角形

Answer 3

好象没错吧，海伦公式嘛
比如边长为：3，4，5 面积就是 6
怎么错？