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