3.2使用VB设计应用程序

1、（中考题）找出下列几组数据中满足构成三角形三边的是（ ） A、5cm,7cm,13cm B、3cm,5cm,9cm C、6cm,9cm,14cm D、5cm,6cm,11cm,显然，我们一眼可以看出答案是C，依据是三角形的两边之和大于第三边，两边之差小于第三边。 那么，对于任意一组数据如 是否可以立即判断它们是否能构成三边呢？这时，我们可以编制计算机程序来解决这个问题。,问题1：任意给定一组数据，设计程序自动判别是否能够构成一个三角形的三边。,3.2 使用VB设计程序,学习目标：,懂得什么是计算机程序和了解编程解决问题的基本过程； 熟悉VB的程序界面以及它的基本工具； 学会读懂VB程序。,一、

2、什么是计算机程序？,计算机程序是按照一定的语法规则编写成的能够指挥计算机工作的指令语句。,二、编制计算机程序解决问题的基本过程。,回忆一下表格信息加工与表达的基本过程：,明确任务、建立表格、分析数据、形成报告。,计算机解决问题的基本过程：,检测结果,分析问题,设计算法,编写程序,调试运行,分析： 即通过勾股定理和开方函数从而得到斜边长。 为了直观可以先绘制一个直角三角形，并且在边的旁边插入文本框。,三、（例题1）已知三角形的两条直角边求斜边。,求直角三角形的斜边长界面,程序代码如下： Private Sub Command1_Click() a% = Text1.Text b% = Text2

3、.Text c = Sqr(a 2 + b 2) Text3.Text = c End Sub,四、问题1：任意给定一组数据，设计程序自动判别是否能够构成一个三角形三边。,分析：能够构成三角形三边的三个数据必须满足两边之和大于第三边，两边之差小于第三边。,三个数是否能够构成三角形三边界面,Private Sub Command1_Click() a% = Text1.Text b% = Text2.Text c% = Text3.Text If a + b c And a + c b And b + c a Then Text4.Text = 符合条件 Else Text4.Text = 不符

4、合条件 End If End sub,程序代码如下：,五、编写一元二次方程求根的程序。,分析：当判别式大于或者等于零时可以直接算出方程的解；而当判别式小于零时则表示方程无实数解。,求一元二次方程的解界面,Private Sub Command1_Click() a% = Text1.Text b% = Text2.Text c% = Text3.Text d = b 2 - 4 * a * c If d = 0 Then p = -b / (2 * a) q = Sqr(d) / (2 * a) Text4.Text = p + q Text5.Text = p - q Else Text4.Text = 此方程在实数范围内无解！ End If End Sub,程序代码如下：,六、课堂小结,1、什么是计算机程序？ 答：计算机程序是按照一定的语法规则编写成的能够指挥计算机工作的指令语句。 2、编制计算机程序解决问题的基本过程。 答：计算机解决问题的基本过程：分析问题、设计算法、编写程序、调试运行、检测结果。 3、VB语言：顺序语句和条件语句。工具：文本工具、划线工具、按钮工具和文本框工具。还有sqr函数。,七、课后作业,Private Sub Command1_Click() x% = Text1.Text If x 0 Then