第四章 结构程序设计(第二讲)——分支.ppt

上节内容回顾 程序的结构(三部分): 1输入数据: 如何输入数据? (1)利用文本框控件; (2)利用输入框inputbox(); (3)利用赋值语句; 2处理加工数据 (1)顺序处理; (2)分支处理; (3)循环处理; 3输出数据 如何输出数据? (1) 利用标签、文本框 （2）利用Print方法； 第三节 分支结构程序设计 一、问题的引入 例如: [例1] 利用公式,当输入一个X值时,求出Y值,并输出. [例2]输入一个成绩x，如果x大于等于90,则输出”成绩是优秀”. 计算过程是: (1)输入一个x值; (2)如果x大于等于90,则输出”成绩是优秀” [例3]输入一个数，如果是3的倍数则输出该数据。(练习) 计算过程是: (1)输入一个x值; (2)如果x除以3的余数为0,则输出x. Private Sub Form_Click() Dim x As Integer x = InputBox(请输入一个值：) If x Mod 3 = 0 Then Print x End Sub [例4]老师在统计学生的成绩情况时，有这样的标准： 60分以下为E等，60-69为D等，70-79为C等，80-89为B等，90-100为A等，则在判断某个学生的成绩好坏时，就可以根据该学生成绩的具体分数确定他所属的档次。要求设计程序，当输入成绩X后，输出所属的等级。 分支的结构类型 分支的结构类型: 有单分支、双分支和多分支 其结构语句： （1）If 条件 Then 语句（单分支结构） （2）If 条件Then 语句 Else 语句（双分支结构） （3）If 条件Then 语句 ElseIf 语句（多分支结构） （4）Select Case 语句（情况语句） 二、If-Then语句（单分支结构） 语句格式： 格式1：（用一行） If 条件 Then 复合语句行 格式2：（用多行） IF 条件 Then 语句块 End If [例3-2]输入一个数，如果是3的倍数则输出该数据。 计算过程是: (1)输入一个x值; (2)如果x除以3的余数为0,则输出x. Private Sub Form_Click() Dim x As Integer x = InputBox(请输入一个值：) If x Mod 3 = 0 Then Print x End Sub [例5] 输入两个数A、B，然后按从大到小输出A、B（即：A的值大，B的值小） 计算过程是: (1)输入两个数给A、B; (2)输出A、B的值（原来的）； (3)如果A小于B,则交换A、B的值. (4) 输出A、B的值（大到小输出） A = InputBox(“A值”) B = InputBox(B值) Print A, B If A B Then T = A A = B B = T End If Print A, B 三、If-Then-Else语句（双分支结构） 格式1： If 条件 Then 语句块1 ELse 语句块2 End If 格式2： If 条件Then 语句组1 Else 语句组2 四、If-Then-ElseIf语句（多分支结构） If-Then-ElseIf语句格式： If 条件1Then 语句块1 ElseIf 条件2 Then 语句块2 …… [Else 语句块 n+1] End If [例7]输入一同学成绩X。若X60，则输出“不及格”，若60≦X80，则输出“及格”，若80≦X90，则输出“良好”，若X≧90，则输出“优秀”。 问题分析： 一元二次方程的根与三个系数（a、b、c）密切相关，对输入的三个系数进行判别，有以下三种情况出现： （1）若b2 - 4ac = 0，有两个相等的实根。 （2）若b2 - 4ac 0，有两个不等的实根。 （3）若b2 - 4ac 0，有两个共轭复根。 画出流程图