VB设计三角形面积计算程序.docx

VB程序设计作业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在程序中运行时被鼠标点击，程序将执行一段代码、完成一个独立功能，所以这些控件需要每个设计一段代码。基于以上分析，必须给每个命令按钮设计完成相应功能的一段程序代码。具体设计如下：（1） 按钮exit的程序代码：Private Sub exit_Click() EndEnd Sub（2） 按钮clear的程序代码：Private Sub clear_Click() t1.Text = t2.Text = t3.Text = tarea.Text = t1.SetFocusEnd Sub（3） 按钮root的程序代码：Private Sub root_Click() Dim a!, b!, c!, m!, s! a = Val(t1.Text) b = Val(t2.Text) c = Val(t3.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) tarea.Text = s Else MsgBox (这不是三角形) End IfEnd Sub程序代码分析：现在有了上述程序代码，为了明确代码的执行过程，分析如下：（一）程序中代码名称的分析：（1） 代码中的Sub取自英文单词Subroutine（子程序、过程）的前3个字母每段代码前的Sub和最后的End Sub构成的一个过程的定义格式（固定格式）：Sub后面的exit_Click（如第一段代码）为过程代码，其中exit_Click就称之为对应命令按钮exit的单击click的事件过程，即当用鼠标单击命令按钮exit时，程序会自动调用执行事件过程exit_Click；这一段代码，过程名称exit_Click后面的一对小括号“（）”是定义过程时必须有的Sub前面的Private（似有的）说明过程exit_Click的作用范围，与Public对应。（2） 代码t1.Text中的t1是文本框的名称，称之为文本框对象，Text是文本框的一个属性，该属性就表示文本框中输入或显示的内容。用文本框对象名称去访问它的属性的语法格式就是t1.Text，既可以取出文本框属性的值，也可以给文本框属性赋值。（3） 代码t1.SetFocus中的SetFocus是方法（名称），即对应一段代码，是VB系统提供的，其功能是让文本框t1获得焦点。（4） 代码中每行后面的单引号“”后的内容为注释，对程序其说明作用，编译程序对原程序进行编译时不予处理注释部分。（二） 程序代码的注释说明分析：（1） 按钮exit的程序代码：* 过程名称：exit_Click() * * 功 能：终止程序的运行，关闭程序 * *Private Sub exit_Click() 过程exit_Click定义开始 End 终止该程序的执行End Sub 过程exit_Click定义结束（2） 按钮clear的程序代码：* 过程名称：clear_Click() * * 功 能：清空文本框t1、t2、t3和tarea并把焦点放在文本框t1中 * *Private Sub clear_Click() 过程clear_Click定义开始 t1.Text = 清空文本框t1 t2.Text = 清空文本框t2 t3.Text = 清空文本框t3 tarea.Text = 清空文本框tarea t1.SetFocus 让文本框t1获得输入焦点End Sub 过程clear_Click定义结束（3） 按钮root的程序代码：* 过程名称：root_Click() * * 功 能：以输入的3个数为三角形的三边边长，计算出三角形的面积并输出结果 * *Private Sub root_Click() 过程root_Click定义开始 Dim a!, b!, c!, m!, s! 定义变量a,b,c,arae为单精度类型 a = Val(t1.Text) 把t1中的值取出来转换为数值赋给变量a b = Val(t2.Text) 把t2中的值取出来转换为数值赋给变量b c = Val(t3.Text) 把t3中的值取出来转换为数值赋给变量c 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# 计算海伦公式中的中间值m并赋予其为双精度变量 s = Sqr(m * (m - a) * (m - b) * (m - c) 计算三角形面积 tarea.Text = s 输出三角形面积计算结果 Else 给出的值不能构成三角形 MsgBox (这不是三角形) 显示对话框提示“这不是三角形” End If 与IfThen配对构成分支结构End Sub 过程root_Click定义结束程序的运行过程：完成了以上步骤之后，下面就要开始程序的运行检测了。先编译成目标文件（.obj文件），再经过连接形成可执行文件(.exe文件)后才能执行。当执行该程序是，操作系统将该程序加载到内存并执行它。其执行步骤如下：（1） 首先，显示人机界面（如第一幅图所示），然后暂停，等待用户响应。（2） 依次在文本框t1、t2、t3中输入三个数字，接着鼠标单击命令按钮root，程序就会自动调用执行事件过程的root_Click的程序代码，根据输入中的a、b、c的值计算出结果并在文本框tarea中显示出来，如图所示。（3） 如果想求解另一个三角形的面积，用鼠标单击命令按钮