多分支控制结构.docVIP

江苏省无锡立信会计学校备课笔记 教 学 内 容 学生活动 复习： 演示： 三个数比大小 求绝对值 新授课： Select?Case语句是多分支语句，又称为情况语句。 格式： Select?Case?测试表达式 ???Case?表达式列表1 ????????语句块1 ???Case?表达式列表2 ????????????语句块2 ???… ???Case?表达式列表n ????????????语句块n ??[Case?Else ????????????语句块n+1] End?Select 功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。 ?Select?Case语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End?Select下面的语句；如果没找到，则执行Case?Else下面的语句块，然后执行End?Select下面的语句。 说明： ·?·?·?“测试表达式”可以是数值表达式或字符表达式； ·?·?·?“表达式列表”形式有以下3种： （1）一个表达式或用逗号隔开的若干表达式 select??case??val(t1.text) ?????case?1,3,5 ??????????L1.caption=”这是奇数” ?????case?2,4,6 ??????????L1.caption=”这是偶数” end??select （2）表达式1?To??表达式2 select??case??t1.text ?????case?1?to?9 ????????L1.caption?=”此数是在1到10的范围内” ?????case??“A”??to??“Z”? ????????L1.caption?=”请输入数字” end??select （3）Is?关系运算符?表达式 select??case??val(t1.text) ?????case??is=30 ????????L1.caption?=”此数的范围大于30” ?????case??is=20? ????????L1.caption?=”此数的范围大于20” ?????case??is=10? ????????L1.caption?=”此数的范围大于10” end??select 【例】输入一个学生的一门课分数x（百分制），当x≥90时，输出“优秀”；当80≤x＜90?时，输出“良好”；当?70≤x＜80?时，输出“中”；当60≤x＜70?时，输出“及格”，当?x＜60?时，输出“不及格”。 (1)界面设计 ????? (2)代码设计 Private Sub Command1_Click（） ????????? Dim score! ????????? score = val(Text1.Text) ????????? Select Case score ???????????? Case Is = 90 ????????? ??????Text2.Text = 优秀 ??????????? ?Case Is = 80 ??????????????? Text2.Text = 良好 ???????????? Case Is = 70 ??????????????? Text2.Text = 中 ???????????? Case Is = 60 ??????????????? Text2.Text = 及格 ???????????? Case Else ??????????????? Text2.Text = 不及格 ? ????????End Select ??????? End Sub 作业：求分段函数的值 演示 讲解 注意烟点 三种表达式情况对照 举例 分析程序