文档介绍：VB设计三角形面积计算程序
已知三角形的三边边长，计算三角形的面积（用VB设计程序）。
程序分析：
分析：具体步骤如下。
（1）先分析三条边长是不是能构成三角形；
（2）若三边边长违反三角形成立规则，则不是三角形；
（3）若三边边长符合三角形成立规则，则利用海伦公式求算三角形面积
据此，给出计算机求算三角形面积的算法步骤如下：
开始。
获得三角形的三条边长a、b和c。
判断此三边边长能否构成三角形。若不能，转到（5）
若能计算三角形面积。
结束。
界面设计：
利用VB提供的很多控件设计画出右图，其过程如下：
先创建一个窗体（Form），标题为“三角形面积计算”。
在窗体上指定位置放若干标签（Label），标题分别为“三角形面积计算”、“边长：”、“a“、”b“、”c“、”面积“，用作说明和提示。
在标题“a“、”b“、”c“、“面积”的标签后面各放一个文本框（TextBox）用作输入边长和输出结果（面积）。
在窗体上指定的位置放3个命令按钮（CommandButton），标题分别为“清空”、“计算面积”、“退出”。当在运行过程中鼠标单击相应的命令按钮时程序会执行相应的功能。
代码设计：
界面设计好了之后，按照下面图所示为各个控件命名，分析控件的作用：
标签是用来表示说明或提示作用，代码设计中不会用到它们，所以没有重新命名。
文本框t1、t2和t3是用来输入三边边长的，文本框tarea是用来输出三角形面积计算的结果。
命令按钮clear、root和exit在程序中运行时被鼠标点击，程序将执行一段代码、完成一个独立功能，所以这些控件需要每个设计一段代码。
基于以上分析，必须给每个命令按钮设计完成相应功能的一段程序代码。具体设计如下：
按钮exit的程序代码：
Private Sub exit_Click()
End
End Sub
按钮clear的程序代码：
Private Sub clear_Click()
= ""
= ""
= ""
= ""

End Sub
按钮root的程序代码：
Private Sub root_Click()
Dim a!, b!, c!, m!, s!

a = Val()
b = Val()
c = Val()

If (a > 0 And b > 0 And c > 0 And a + b > c And a + c > b And b + c > a) Then
m = (a + b + c) / 2#
s = Sqr(m * (m - a) * (m - b) * (m - c))
= s
Else
MsgBox ("这不是三角形")
End If
End Sub
程序代码分析：
现在有了上述程序代码，为了明确代码的执行过程，分析如下：