教案-江苏-2013_江苏省苏州张家港市一中八年级信息技术《第九讲 Select Case 语句》教案.rar

2第九讲SelectCase语句EndSelect功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。SelectCase语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行EndSelect下面的语句；如果没找到，则执行CaseElse下面的语句块，然后执行EndSelect下面的语句。说明：···“测试表达式”可以是数值表达式或字符表达式；···“表达式列表”形式有以下3种：（1）一个表达式或用逗号隔开的若干表达式selectcaseval(t1.text)case1,3,5L1.caption=”这是奇数”case2,4,6L1.caption=”这是偶数”endselect（2）表达式1To表达式2selectcaset1.textcase1to9L1.caption=”此数是在1到10的范围内”case“A”to“Z”L1.caption=”请输入数字”endselect（3）Is关系运算符表达式selectcaseval(t1.text)caseis>=30L1.caption=”此数的范围大于30”caseis>=20L1.caption=”此数的范围大于20”caseis>=10L1.caption=”此数的范围大于10”endselect【例】输入一个学生的一门课分数x（百分制），当x≥90时，输出“优秀”；当80≤x＜90时，输出“良好”；当70≤x＜80时，输出“中”；当60≤x＜70时，输出“及格”，当x＜60时，输出“不及格”。(1)界面设计(2)代码设计PrivateSubCommand1_Click（）Dimscore!score=val(Text1.Text)SelectCasescoreCaseIs>=90Text2.Text="优秀"CaseIs>=80Text2.Text="良好"CaseIs>=70Text2.Text="中"CaseIs>=60Text2.Text="及格"CaseElseText2.Text="不及格"EndSelectEndSub作业：求分段函数的值