1、第09课 海伦公式计算面积,复习引入,1、VB程序设计环境的的窗口主要由对象窗口、控件工具箱、属性窗口、工程窗口组成，控件工具箱集中了常用的基本控件：标签label、文本框TextBox、命令按钮Command Button、列表框ListBox等，如图所示。,图1 VB常用的基本控件,控件常用的共同属性,控件的常用事件名说明,2、事件是发生在对象上的事情，是由用户在对象上激发的一种动作。如在按钮对象上单击或双击鼠标。 控件的常用事件名说明见下表：,赋值语句,3、“=”赋值语句 ，它作用是把等号（赋值号）右边的表达式的计算结果存储到等号左边指定的变量中，或存放到某个对象的指定的属性中，其格式如
2、下：变量名 = 表达式 或 对象名.属性名 = 表达式 例如：Shape1.FillColor = vbBlack,IF选择（条件）语句,4、IF选择（条件）语句。选择语句能使程序在执行过程中，根据不同的判断结果，选择执行不同的处理。如果条件成立的话，那么执行语句组1的语句，否则就执行语句2的语句。 IF条件语句的基本格式有： If 条件 Then 语句组1 Else 语句组2 If 条件 Then 语句组1 If 条件 Then语句组1Else语句组2End If If 条件 Then语句组1End If,选择语句能使程序在执行过程中，根据不同的判断结果，选择执行不同的处理。如果条件成立的话
3、，那么就执行语句组1的语句，否则就执行语句组2的语句。Else和它的后随语句也可以省略，那么如果条件成立，就执行语句组1，否则就直接转向执行If语句的后继语句。,例：输入两个整数A、B，输出其中的较大数。,Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text) If a b Then c = a Else c=bText3.text=str(c) End Sub,行IF语句If ab Then c=a Else c=b 也可写成
4、如下格式：If ab Then c=a Else c=b End If,实践活动,编写一个求三角形面积的VB应用程序。根据用户输入的三条线段长度a、b、c，设计一个VB应用程序。若这三条线段能构成一个三角形，则计算并输出该三角形的面积，否则输出“不能构成三角形”。 若能构成三角形可使用公式 求三角形面积S，其中,（1）界面设计参考如下：,（2）画出算法流程图：,（3）编写程序代码：,A.应用程序使用到的对象属性设置如下表：,B.设计事件处理过程,计算(对象Command1)上的事件处理过程Command1_Click。Private Sub Command1_Click()a = Val(Te
5、xt1.Text) 从文本框对象Text1的读取输入文本经Val函数转化为数值，并赋值给变量ab = Val(Text2.Text) 从文本框对象Text2的读取输入文本经Val函数转化为数值，并赋值给变量bc = Val(Text3.Text) 从文本框对象Text3的读取输入文本经Val函数转化为数值，并赋值给变量c If a + b c And a + c b And b + c a Then 判断能否构成三角形（两边之和大于第三边）p = (a + b + c) / 2 计算ps = Sqr(p * (p - a) * (p - b) * (p - c) 计算三角形面积Text4.Te
6、xt = “能构成三角形，面积是” + Str(s) 输出三角形面积 ElseText4.Text = “不能构成三角形” 输出“不能构成三角形”的提示 End IfEnd Sub,当用户在Text1对象中输入数字时，它是以字符串形式保存在text1对象text属性中，需要使用Val(X)函数将数据从字符串类型转换为数值类型并赋值到变量a中。判断能否构成三角形的条件是两边之和要大于第三边，可以使用逻辑表达式，a+bc And a+cb And b+ca，要求三个条件同时成功，使用And关系连接符，如果能构成三角形，则计算半周长，然后使用海伦公式计算三角形面积，海伦公式与我国宋代的数学家秦九韶提
7、出的“三斜求积术”基本一样。最后在输出显示的方法是设置Text4对象的Text属性，由于计算结果S是数值类型，因而输出时需要转化为字符串类型，使用Str()函数，Text4.txt=“能构成三角形，面积是“ + Str(s)，这里的加号是字符串运算符，是将两个字符串联接起来。,C.运行调试程序,求三角形的面积,课堂练习,1.在Visual Basic中，语句Count1.Caption=“计算”中的“计算”是 （A）对象名（B）属性值（C）属性名（D）类名,B,2.在Visual Basic中，语句Stud1.Text=“高一”中的Text是 （A）属性名（B）属性值（C）对象名（D）窗体名,
8、A,3在Visual Basic代码 Sub Plus_Click()中Click事件的触发条件是 （A）窗口装载（B）鼠标单击（C）鼠标双击（D）键盘按下,B,4.在Visual Basic中，要修改文本框Incoming对象在屏幕上的显示内容，需要修改的属性名（A）Caption（B）Text（C）Name（D）Print,B,5.在Visual Basic中，要在标签对象Label1上显示文字“计算结果:”，下列语句正确的是 （A）Label1.Caption =“计算结果:“ （B）Label1.Text =“计算结果:“ （C）Label1.Font =“计算结果:“ （D）Labe
9、l1.List =“计算结果:“,A,6在Visual Basic中，下列属于正确的赋值语句的是 （A）a+b=0（B）a=a+1（C）a-b=a（D）a*b=1,B,7.在下面Visual Basic块If语句中，有错误的语句行是 #01 If xy Then #02 x=x+1 #03 Else #04 y=y+1 #05 If End （A)第#02行（B)第#03行（C)第#04行（D)第#05行,D,8写一个简单的事件处理过程，处理在文本框Text1上发生的单击鼠标事件，完成下列处理： （1）把用户在该文本框内输入的数据送到变量n中（设变量n的类型为Integer）; （2）清除该文
10、本框中原来的显示内容； （3）使计数器count的值增加1。,参考程序： Dim count As Integer 定义全局变量count Private Sub Text1_Click() 文本框Text1上的鼠标单击事件 Dim n As Integer 定义变量n的类型为Integer n = Val(Text1.Text) 把用户在该文本框Text1内输入的数据送到变量n中 Text1.Text = “ 清除该文本框中原来的显示内容 count = count + 1 使计数器count的值增加1 End Sub,实践活动,编写一个求三角形面积的VB应用程序。根据用户输入的三条线段长度a、b、c，设计一个VB应用程序。若这三条线段能构成一个三角形，则计算并输出该三角形的面积，否则输出“不能构成三角形”。 若能构成三角形可使用公式 求三角形面积S，其中,
