文档介绍:VB 程序设计作业 1 计网 0904 刘鹏瑶 VB 设计三角形面积计算程序已知三角形的三边边长,计算三角形的面积(用 VB 设计程序)。程序分析: 分析:具体步骤如下。(1 )先分析三条边长是不是能构成三角形; (2 )若三边边长违反三角形成立规则,则不是三角形; (3 )若三边边长符合三角形成立规则,则利用海伦公式求算三角形面积据此,给出计算机求算三角形面积的算法步骤如下: (1) 开始。(2) 获得三角形的三条边长 a、b和c。(3) 判断此三边边长能否构成三角形。若不能,转到( 5) (4) 若能计算三角形面积。(5) 结束。界面设计: 利用 VB 提供的很多控件设计画出右图,其过程如下: (1) 先创建一个窗体( Form ), 标题为“三角形面积计算”。(2) 在窗体上指定位置放若干标签( Label ) ,标题分别为“三角形面积计算”、“边长:”、“a“、”b“、” c“、”面积“,用作说明和提示。(3) 在标题“a“、”b“、”c“、“面积”的标签后面各放一个文本框( TextBox ) 用作输入边长和输出结果(面积)。(4) 在窗体上指定的位置放 3 个命令按钮( CommandButton ) ,标题分别为“清空”、“计算面积”、“退出”。当在运行过程中鼠标单击相应的命令按钮时程序会执行相应的功能。代码设计: 界面设计好了之后,按照下面图所示为各个控件命名,分析控件的作用: (1) 标签是用来表示说明或提示作用,代码设计中不会用到它们,所以没有重新命名。(2) 文本框 t1、 t2和 t3 是用来输入三边边长的,文本框 tarea 是用来输出三角形面积计算的结果。(3) 命令按钮 clear 、 root 和 exit 在程序中运行时被鼠标点击,程序将执行一段代码、完成一个独立功能,所以这些控件需要每个设计一段代码。 VB 程序设计作业 2 计网 0904 刘鹏瑶基于以上分析,必须给每个命令按钮设计完成相应功能的一段程序代码。具体设计如下: (1) 按钮 exit 的程序代码: Private Sub e xit_Click() End End Sub (2) 按钮 clear 的程序代码: Private Sub c lear_Click() t1 .Text = "" t2 .Text = "" t3 .Text = "" t area .Text = "" t1 .SetFocus End Sub (3) 按钮 root 的程序代码: Private Sub r oot_Click() Dim a!, b!, c!, m!, s! a= Val(t 1 .Text) b= Val(t 2 .Text) c= Val(t 3 .Text) 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)) t area .Text =s Else MsgBox (" 这不是三角形") End If End Sub 程序代码分析: 现在有了上述程序代码,为了明确代码的执行过程,分析如下: (一)程序中代码名称的分析: (1) 代码中的 Sub 取自英文单词 Subroutin