五、分支结构(选择结构)【DOC精选】.docVIP

【教学目标与知识点】 1）掌握和理解选择结构的几种形式 2）学会使用选择结构解决问题 【教学重点】选择结构的几种形式 【教学难点】Selece Case语句形式和选择结构的嵌套使用 【教学过程】 复习顺序结构：交换两个变量中的数据 【流程图】 ? 【程序代码】 Dim a As Single, b As Single, c As Single a=Val(Inputbox(请输入a, 输入框)) b=Val(Inputbox(请输入b, 输入框)) Print 交换前：a=;a; b=;b c=a a=b b=c Print 交换后：a=;a; b=;b 引入新课：比较上面程序和下面程序的执行结果，比较程序的不同之处。 【程序二】 Dim a As Single, b As Single, c As Single a=Val(Inputbox(请输入a, 输入框)) b=Val(Inputbox(请输入b, 输入框)) Print 交换前：a=;a; b=;b If ab Then c=a a=b b=c End if Print 交换后：a=;a; b=;b 【分析】不同之处：【程序二】中多了以下语句If ab Then……End If，这就是本节可我们要学习的选择机构。 1、选择结构格式 【形式一】单分支选择结构 If 条件 Then ?? 语句或语句组???? 语句组是指有多条语句的情况 End if 说明：如果条件为真就执行语句或语句组中语句，否则继续执行这段程序后面的语句。 【例一】 【程序代码】 a=10 b=20 If ab Then ?? a=20 ?? b=10 End if Print a;b ? 【形式二】双分支选择结构 If 条件 Then ?? 语句或语句组1 Else ?? 语句或语句组2 End if 说明：如果条件成立就执行语句或语句组1中的语句，条件不成立就执行语句或语句组2中的语句。 【例二】某次满分100分的考试中，输入考试分数，大于等于60分显示“及格”否则显示“不及格”。 【程序代码】 Private Sub Command1_Click() a = Val(InputBox(请输入考试分数, 输入框)) If a = 60 Then Print 及格 Else Print 不及格 End If End Sub 运行结果：输入80显示 及格 输入50显示不及格 ? 【形式三】多分支结构 If 条件1 Then ?? 语句或语句组1 ElseIf 条件2 Then ?? 语句或语句组2 …… ElseIf 条件n Then ?? 语句或语句组n Else ?? 语句或语句组n+1 End if 说明：条件1成立执行语句或语句组1，条件1不成立及条件1成立执行语句或语句组2，依此类推，所有条件都不成立执行语句或语句组n+1。 【例三】某次满分100分的考试中，=90分显示“优秀”，75～90分显示“良好”，60～75分显示“一般”，60分显示“不及格”。 【程序代码】 a = Val(InputBox(请输入考试分数, 输入框)) If a = 90 Then ?? Print 优秀 ElseIf a = 75 Then ?? Print 良好 ElseIf a = 60 Then ???Print 一般 Else ?Print 不及格 End If 运行结果：输入95显示 优秀 ????????? 输入85显示 良好 ????????? 输入70显示 一般 ????????? 输入50显示 不及格 ? 当程序出现多分支结构时，用If语句比较烦琐，而使用多分支选择结构Selece Case语句就方便多了。 【形式四】Select Case语句 Select Case 表达式 ????? Case 表达式列表1 ?????? ?语句或语句组1 ????? Case表达式列表2 ?? ?????语句或语句组2 ????? Case表达式列表3 ??????? 语句或语句组3 ……………… ????? Case Else ??????? 语句或语句组n End Select 说明：同格式三 【例四】题目同【例三】 【程序代码】 a = Val(InputBox(请输入考试分数, 输入框)) Select Case a ????? Case Is = 90 ??????? Print 优秀 ????? Case Is = 75 ??????? Print 良好 ???? ?Case Is = 60 ??????? Print 一般 ????? Case Else ??????? Print 不及格 End Select 运行结果：同例三 ? 2、课堂练习 【课堂练习一】输入3个不相同的数