圆周率公式海伦公式求三角形面积调试记录

海伦公式求三角形面积.exe 调试记录


界面
：
















说明：主要采用了6个Label控 件，3个TextBox控件，2个CommandButton控
件，1个PictureBox控件 ，力求界面简洁明了，容易操作。

程序调试
：

PART1：对“查看证明过程”按钮触发程序的调试记录

该部分代码：
Private Sub Command2_Click()
MsgBox 由余弦定理有cosC = (a^2+b^2-c^2)2ab
MsgBox 则S=12*ab*sinC
MsgBox √(1-cos^2 C)
MsgBox √[1-(a^2+b^2-c^2)^24a^2*b^2]
MsgBox √[4a^2*b^2-(a^2+b^2-c^2)^2]
MsgBox √[(2ab+a^2+b^2-c^2)(2ab-a^2-b^2+c^2)]
MsgBox √[(a+b)^2-c^2][c^2-(a-b)^2]
MsgBox √[(a+b+c)(a+b-c)(a-b+c)(-a+b+c)]
MsgBox 设p=(a+b+c)2
MsgBox 则p=(a+b+c)2, p-a=(-a+b+c)2, p-b=(a-b+c)2,p-c=(a+b-c)2,
MsgBox 上式=√[(a+b+c)(a+b-c)(a-b+c)(-a+b+c)16]


MsgBox √[p(p-a)(p-b)(p-c)]
MsgBox 所以，三角形ABC面积S=√[p(p-a)(p-b)(p-c)]
MsgBox 证毕
End Sub
说明：本部分主要采用“MsgBox”语句输出证明过程，独立于计算程序部分之外。

调试界面：







































调试结果分析：满意，确定采用该段代码。

PART2：对“计算面积”按钮触发的程序的调试记录

第一次调试
：

该部分代码：
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim p As Double
Dim s As Double
a = Text1
b = Text2
c = Text3

p = (a + b + c) 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
s
End Sub

说明：该段代码直接采用公式计算，简便易行。采用双精度浮点数据类型增加了
计算的精确度。

调试数据记录表：

测试序号 输入a 输入b 输入c 输出S
1 3 4 5 6
2 4 5 6 9.92156741
3 3.1 4.8 5.2 7.30661301
4 3 5 8 0
5 3 4 8 程序崩溃
6 -3 4 5 6
7 -3 -4 5 6
8 -3 -4 -5 6
9 0 3 4 程序崩溃

调试结果分析：对于输入正数且能构成三角形的数据， 程序能正确计算。但存在
以下两个主要问题：
1. 输入负数仍能计算出结果，容易误导使用者。
2. 输入不能构成三角形的一组数，会导致程序直接崩溃。



第二次调试
：

该部分代码：
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim p As Double
Dim s As Double
a = Text1
b = Text2
c = Text3

If a > 0 And b > 0 And c > 0 Then
If a + b > c And b + c > a And a + c > b Then
p = (a + b + c) 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
s
Else
MsgBox 不能构成三角形，请重新输入
End If
Else
MsgBox 三角形三边必须为正，请重新输入
End If
End Sub

说明：针对上次调试发现的问题，我们在程序中加入了两个条件结 构，以避免当
数据不合规定时走进计算流程导致程序崩溃。

调试数据记录表：

测试序号 输入a 输入b 输入c 输出S
1 3 4 5 6
2 4 5 6 9.92156741
3 3.1 4.8 5.2 7.30661301
4 3 5 8 不能构成三角
形，请重新输
入
5 3 4 8 不能构成三角
形，请重新输
入
6 -3 4 5 三角形三边必


7 -3 -4 5
8 -3 -4 -5
9 0 3 4
须为正，请重
新输入
三角形三边必
须为正，请重
新输入
三角形三边必
须为正，请重
新输入
三角形三边必
须为正，请重
新输入

调试结果分析：对本次调试结果满意，决定采用。

最终结果
：

界面：



















代码：
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim p As Double
Dim s As Double


a = Text1
b = Text2
c = Text3

If a > 0 And b > 0 And c > 0 Then
If a + b > c And b + c > a And a + c > b Then
p = (a + b + c) 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
s
Else
MsgBox 不能构成三角形，请重新输入
End If
Else
MsgBox 三角形三边必须为正，请重新输入
End If
End Sub

Private Sub Command2_Click()
MsgBox 由余弦定理有cosC = (a^2+b^2-c^2)2ab
MsgBox 则S=12*ab*sinC
MsgBox √(1-cos^2 C)
MsgBox √[1-(a^2+b^2-c^2)^24a^2*b^2]
MsgBox √[4a^2*b^2-(a^2+b^2-c^2)^2]
MsgBox √[(2ab+a^2+b^2-c^2)(2ab-a^2-b^2+c^2)]
MsgBox √[(a+b)^2-c^2][c^2-(a-b)^2]
MsgBox √[(a+b+c)(a+b-c)(a-b+c)(-a+b+c)]
MsgBox 设p=(a+b+c)2
MsgBox 则p=(a+b+c)2, p-a=(-a+b+c)2, p-b=(a-b+c)2,p-c=(a+b-c)2,
MsgBox 上式=√[(a+b+c)(a+b-c)(a-b+c)(-a+b+c)16]
MsgBox √[p(p-a)(p-b)(p-c)]
MsgBox 所以，三角形ABC面积S=√[p(p-a)(p-b)(p-c)]
MsgBox 证毕
End Sub