信息技术九年级北师大版分支结构选择结构教案精

1、【教学目标与知识点】1）掌握和理解选择结构的几种形式2）学会使用选择结构解决问题【教学重点】选择结构的几种形式【教学难点】Selece Case语句形式和选择结构的嵌套使用【教学过程】复习顺序结构：交换两个变量中的数据【流程图】 【程序代码】Dim a As Single, b As Single, c As Singlea=Val(Inputbox("请输入a", " 输入框")b=Val(Inputbox("请输入b", " 输入框")Print "交换前：a="a; "

2、b="bc=aa=bb=cPrint "交换后：a="a; "b="b引入新课：比较上面程序和下面程序的执行结果，比较程序的不同之处。【程序二】Dim a As Single, b As Single, c As Singlea=Val(Inputbox("请输入a", " 输入框")b=Val(Inputbox("请输入b", " 输入框")Print "交换前：a="a; "b="bIf a>b Thenc=aa=b

3、b=cEnd ifPrint "交换后：a="a; "b="b【分析】不同之处：【程序二】中多了以下语句If a>b ThenEnd If，这就是本节可我们要学习的选择机构。1、选择结构格式【形式一】单分支选择结构If 条件 Then   语句或语句组     '语句组是指有多条语句的情况End if说明：如果条件为真就执行语句或语句组中语句，否则继续执行这段程序后面的语句。【例一】【程序代码】a=10b=20If a<b Then   a=20 

4、;  b=10End ifPrint a;b 【形式二】双分支选择结构If 条件 Then   语句或语句组1Else   语句或语句组2End if说明：如果条件成立就执行语句或语句组1中的语句，条件不成立就执行语句或语句组2中的语句。【例二】某次满分100分的考试中，输入考试分数，大于等于60分显示“及格”否则显示“不及格”。【程序代码】Private Sub Command1_Click()a = Val(InputBox("请输入考试分数", "输入框")If a >= 60 Th

5、enPrint "及格"ElsePrint "不及格"End IfEnd Sub运行结果：输入80显示 及格输入50显示不及格 【形式三】多分支结构If 条件1 Then   语句或语句组1ElseIf 条件2 Then   语句或语句组2ElseIf 条件n Then   语句或语句组nElse   语句或语句组n+1End if说明：条件1成立执行语句或语句组1，条件1不成立及条件1成立执行语句或语句组2，依此类推，所有条件都不成立执行语句或语句组n+1。【例三

6、】某次满分100分的考试中，>=90分显示“优秀”，7590分显示“良好”，6075分显示“一般”，<60分显示“不及格”。【程序代码】a = Val(InputBox("请输入考试分数", "输入框")If a >= 90 Then   Print "优秀"ElseIf a >= 75 Then   Print "良好"ElseIf a >= 60 Then   Print "一般"Else&#

7、160;Print "不及格"End If运行结果：输入95显示 优秀          输入85显示 良好          输入70显示 一般          输入50显示 不及格 当程序出现多分支结构时，用If语句比较烦琐，而使用多分支选择结构Selece Case语句就方便多了。【形式四】

8、Select Case语句Select Case 表达式      Case 表达式列表1        语句或语句组1      Case表达式列表2        语句或语句组2      Case表达式列表3        语句或语句

9、组3      Case Else        语句或语句组nEnd Select说明：同格式三【例四】题目同【例三】【程序代码】a = Val(InputBox("请输入考试分数", "输入框")Select Case a      Case Is >= 90        Print "优秀&qu

10、ot;      Case Is >= 75        Print "良好"      Case Is >= 60        Print "一般"      Case Else      &

11、#160; Print "不及格"End Select运行结果：同例三 2、课堂练习【课堂练习一】输入3个不相同的数，求出其中的最小数。【流程图】 【程序代码】Private Sub Form_Click()Dim a As Single, b As Single, c As Single, min As Singlea = Val(InputBox("请输入a", " 输入框")b = Val(InputBox("请输入b", " 输入框")c = Val(InputBox

12、("请输入c", " 输入框")Print "输入的3个数分别为" a; b; cIf a < b Then   min = aElse   min = bEnd IfIf c < min Then   min = cEnd IfPrint "3个数中的最小数为：" minEnd Sub 【课堂练习二】循环的嵌套【例】设计一个界面如下图一所示的屏幕保护程序的密码输入对话框，要求密码为6位字符，输入密码时以“*”代替输入的字符。当输入正

13、确时显示下图二所示的信息框；当输入不正确时，显示下图三所示的信息框。 【解析】要使密码不超过6位字符，只要将文本框的MaxLength属性设置为6；要使输入的字符显示为“*”，则要将文本框的PasswordChar属性设置为“*”，同时将文本框初值设置为空。出错时显示包含“重试”、“取消”按钮的信息框，则Msgbox函数“按钮”参数的取值为vbRetryCancel。【程序代码】'按钮“确定”的程序代码Private Sub cmdOk_Click()  pass=text1.text  if pass="123" then 

14、   '假设正确密码是123      msgbox "输入正确",vbokonly,"密码"   else    '输入错误的情况      a=msgbox("输入的密码不正确，请重新输入",vbRetryCancel,"密码")      '因为要取得你是点了“取消”还

15、是“重试”的值，所以用msgbox的函数语句将值赋予a      if a=4 then  '“选重试将返回4”          text1.text=""         else  '选择的是“取消”           end        end if end ifEnd Sub'按钮“取消”的程序代码Private Sub cmdCancel_Click() EndEnd Sub