第09课海伦公式计算面积.ppt

第09课 海伦公式计算面积 复习引入 1、VB程序设计环境的的窗口主要由对象窗口、控件工具箱、属性窗口、工程窗口组成，控件工具箱集中了常用的基本控件：标签label、文本框TextBox、命令按钮Command Button、列表框ListBox等，如图所示。 控件常用的共同属性 控件的常用事件名说明 2、事件是发生在对象上的事情，是由用户在对象上激发的一种动作。如在按钮对象上单击或双击鼠标。????? 控件的常用事件名说明见下表： 赋值语句 ?3、“=”赋值语句 ，它作用是把等号（赋值号）右边的表达式的计算结果存储到等号左边指定的变量中，或存放到某个对象的指定的属性中，其格式如下：变量名 = 表达式　 或　对象名.属性名 = 表达式?? 例如：Shape1.FillColor = vbBlack?? IF选择（条件）语句 4、IF选择（条件）语句。选择语句能使程序在执行过程中，根据不同的判断结果，选择执行不同的处理。如果条件成立的话，那么执行语句组1的语句，否则就执行语句2的语句。 IF条件语句的基本格式有： ①? If? 条件 Then? 语句组1? Else 语句组2 ②? If? 条件 Then? 语句组1 ③? If 条件 Then ???????? 语句组1 ????? Else ?????????语句组2 ??????End If ④ If 条件 Then ???????? 语句组1 End If 选择语句能使程序在执行过程中，根据不同的判断结果，选择执行不同的处理。如果条件成立的话，那么就执行语句组1的语句，否则就执行语句组2的语句。Else和它的后随语句也可以省略，那么如果条件成立，就执行语句组1，否则就直接转向执行If语句的后继语句。 例：输入两个整数A、B，输出其中的较大数。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer ????? a = Val(Text1.Text) ????? b = Val(Text2.Text) ????? If a b? Then c = a Else c=b ????? Text3.text=str(c) End Sub 实践活动 编写一个求三角形面积的VB应用程序。根据用户输入的三条线段长度a、b、c，设计一个VB应用程序。若这三条线段能构成一个三角形，则计算并输出该三角形的面积，否则输出“不能构成三角形”。?? 若能构成三角形可使用公式 求三角形面积S，其中  （1）界面设计参考如下： （2）画出算法流程图： （3）编写程序代码： A.应用程序使用到的对象属性设置如下表： B.设计事件处理过程 计算(对象Command1)上的事件处理过程Command1_Click。 Private Sub Command1_Click() ?????????a = Val(Text1.Text)????? ‘从文本框对象Text1的读取输入文本经Val函数转化为数值，并赋值给变量a ?????????b = Val(Text2.Text)????? ‘从文本框对象Text2的读取输入文本经Val函数转化为数值，并赋值给变量b ???????? c = Val(Text3.Text)????? ‘从文本框对象Text3的读取输入文本经Val函数转化为数值，并赋值给变量c If a + b c And a + c b And b + c a Then????? ‘判断能否构成三角形（两边之和大于第三边） ?????????p = (a + b + c) / 2???????????????????????? ‘计算p ?????????s = Sqr(p * (p - a) * (p - b) * (p - c))??? ‘计算三角形面积 ?????????Text4.Text = “能构成三角形，面积是” + Str(s) ?‘输出三角形面积 Else ????????Text4.Text = “不能构成三角形”??????????????? ‘输出“不能构成三角形”的提示 End If End Sub C.运行调试程序 课堂练习 ? 1.在Visual Basic中，语句Count1.Caption=“计算”中的“计算”是??? （A）对象名 ?????? （B）属性值 ????? （C）属性名 ???? （D）类名? 2.在Visual Basic中，语句Stud1.Text=“高一”中的Text是 ??? （A）属性名 ?????? （B）属性值 ????? （C）对象名