VB第3章第3节2-Select语句.ppt

第3章VB NET面向对象程序设计 第3节2选择结构语句 本节的学习内容 学点什么呢 熟练掌握用VB语言的选择语句进行选择结构程序设计的方法 第3章VB NET面向对象程序设计 第3节2选择结构语句 选择结构 双分支选择结构 单分支选择结构 第3章VB NET面向对象程序设计 第3节2选择结构语句 选择结构 多分支选择结构 第3章VB NET面向对象程序设计 第3节2选择结构语句 选择结构语句 1 If语句2 Select语句3 Goto语句 第3章VB NET面向对象程序设计 第3节2选择结构语句 结构化程序设计语句 第3章VB NET面向对象程序设计 第3节2选择结构语句 三 选择语句 SelectCase语句 程序1 Ifs 90ThenMessageBox Show ClassA Ifs 80Ands 70Ands 80ThenMessageBox Show ClassC Ifs 70ThenMessageBox Show ClassD 程序2 Ifs 90ThenMessageBox Show ClassA ElseIfs 80ThenMessageBox Show ClassB ElseIfs 70ThenMessageBox Show ClassC ElseMessageBox Show ClassD EndIf 第3章VB NET面向对象程序设计 第3节2选择结构语句 上述问题用SelectCase语句 SelectCaseInt s 10 Case9 10MessageBox Show ClassA Case8MessageBox Show ClassB Case7MessageBox Show ClassC Case0To6MessageBox Show ClassD EndSelectSelectCase语句功能 在程序中实现多值判别并选择执行相应的语句 第3章VB NET面向对象程序设计 第3节2选择结构语句 SelectCase语句格式 SelectCase测试表达式 Case表达式1 语句1 Case表达式2 语句2 CaseElse 语句 EndSelect 第3章VB NET面向对象程序设计 第3节2选择结构语句 说明 1 测试表达式可以是变量 函数 数值表达式 字符串表达式或逻辑表达式 2 Case子句中表达式的数据类型应与测试表达式的数据类型一致 3 Case子句中表达式的几种形式 常数或表达式例 CaseTrue测试表达式的值等于True 常数1 表达式1 To常数2 表达式2 例 Case1To5测试表达式的值在1到5范围内 Is比较运算表达式例 CaseIs 6测试表达式的值大于6的值 第3章VB NET面向对象程序设计 第3节2选择结构语句 4 Case子句中允许含有多个表达式 表达式间用逗号分隔 例 Case1To5 10To5 21 Is MinCase A C To F Name 5 SelectCase语句允许嵌套 6 SelectCase语句以EndSelect结束 第3章VB NET面向对象程序设计 第3节2选择结构语句 7 计算机执行SelectCase语句的过程 计算测试表达式的值并与语句中各Case子句中表达式的值进行比较 如果相等 就执行与该Case相关联的语句 若没有一个Case子句的值与测试表达式的值相等 则执行CaseElse部分的语句 若无CaseElse部分 则直接执行SelectCase语句的后继语句 第3章VB NET面向对象程序设计 第3节2选择结构语句 SelectCase语句流程图 SelectCase Case EndSelect的下个语句 为表达式取值范围 可以是 常量或常量列表如10 20值1To值2如30To50Is常量如Is 50 第3章VB NET面向对象程序设计 第3节2选择结构语句 例3 12 计算分段函数的值 并在消息对话框上显示计算结果 DimxAsSingle yAsIntegerx InputBox 请输入X的值 Ifx100ThenEndSelectCaseInt x 10 Case0To5y 2Case6y 3 Case7 8y 4Case9 10y 5EndSelectMessageBox Show y y 请考虑 使用If语句的程序 第3章VB NET面向对象程序设计 第3节2选择结构语句 例3 13 从键盘顺序输入由常数 运算符 常数构成的简单算术式 如5 0 3 2 其中运算符可以是 试编写程序 在消息对话框上显示该算术表达式及其值 DimAAsSingle BAsSingle SAsSingleDimOpAsStringA InputBox 请输入A的值 B InputBox 请输入B的值 Op InputBox 请输入运算符 SelectCaseOpCase S A BMessageBox Show A B S Case S A BMessageBox Show A B S 第3章VB NET面向对象程序设计 第3节2选择结构语句 Case S A BMessageBox Show A B S Case IfB0ThenS A BMessageBox Show A B S ElseMessageBox Show 分母为0 EndIfCaseElseMessageBox Show 输入符号有误 EndSelect 第3章VB NET面向对象程序设计 第3节2选择结构语句 例 exp1 由计算机给出一系列的1 10的操作数和运算符 学生输入该题的答案 计算机根据学生的答案判断正确与否 当结束时给出成绩 分析 产生1 10操作数 可通过Int 10 Rnd 1 实现设置的控件名 Label1 txtInput txtoutput Button1 Button2 Button3 第3章VB NET面向对象程序设计 第3节2选择结构语句 程序 DimNum1AsInteger Num2AsInteger 两个操作数DimSExpAsStringDimResult 计算结果DimNOk NError 统计计算正确与错误数PrivateSubButton2 Click HandlesButton2 ClickTxtoutput Text Txtoutput Text Txtoutput Text vbCrLf 一共计算 NOk NError 道题 Txtoutput Text Txtoutput Text vbCrLf 得分 Int NOk NOk NError 100 分 EndSub 第3章VB NET面向对象程序设计 第3节2选择结构语句 在文本框输入计算结果 按 确定 按钮 在文本框2中显示正确与否 PrivateSubButton1 Click HandlesButton1 ClickIfVal Txtinput Text ResultThenTxtoutput Text Txtoutput Text vbCrLf SExp Txtinput Text 计算正确NOk NOk 1ElseTxtoutput Text Txtoutput Text vbCrLf SExp Txtinput Text 计算错误NError NError 1EndIfTxtinput Text Txtinput Focus Form1 Load sender e 生成下一个算式EndSub 第3章VB NET面向对象程序设计 第3节2选择结构语句 PrivateSubButton3 Click HandlesButton3 ClickEndEndSub 通过产生随机数生成表达式PrivateSubForm1 Load HandlesMyBase LoadDimNOpAsInteger OpAsString 操作符Randomize 初始化随机数生成器Num1 Int 10 Rnd 1 产生1 10之间的操作数Num2 Int 10 Rnd 1 产生1 10之间的操作数NOp Int 4 Rnd 1 产生1 4之间的操作代码 第3章VB NET面向对象程序设计 第3节2选择结构语句 SelectCaseNOpCase1Op Result Num1 Num2Case2Op Result Num1 Num2Case3Op Result Num1 Num2Case4Op Result Num1 Num2EndSelectSExp Num1 Op Num2 Label1 Text SExpEndSub 第3章VB NET面向对象程序设计 第3节2选择结构语句 四 Goto语句功能 无条件转向指定的语句格式 Goto标号 行号其中 1 标号 行号用于指明程序将转至的目标语句的逻辑位置 2 标号是一个以字母开头的字符序列 在模块中标号必须是唯一的 行号是一个数字序列 转移语句能灵活地改变程序流向 给程序设计带来某些方便 但过多使用Goto语句 会使程序结构变得杂乱无章 影响程序的可读性和正确性 因此 在程序设计中 应尽量少用甚至不用Goto语句 第3章VB NET面向对象程序设计 第3节2选择结构语句 例3 14 Goto语句示例DimaAsSingle bAsSingle cAsSingle10 a InputBox 请输入A的值 b InputBox 请输入B的值 c InputBox 请输入C的值 Ifa b c 继续输入 GoTo1050 MessageBox Show a a b b c c vbCrLf a b c 结束 行号10 50为转移语句提供了标志 行号30可以不用 若a b c转向50语句 无条件转向10语句 第3章VB NET面向对象程序设计 第3节2选择结构语句 例3 15 设计程序 计算5的阶乘并显示结果 DimIAsInteger NAsIntegerN 1 I 1Again N N II I 1IfI 5ThenGoToAgainElseGoTo500EndIf500 MessageBox Show I 1 N 当I小于等于5时 程序转移到标号again处执行 当I 5时 程序转移到行号500处执行 第3章VB NET面向对象程序设计 第3节2选择结构语句 例3 16 学生分数统计 DimsAsSingle numAsIntegerDimsmaxAsInteger sminAsIntegerDimnummaxAsInteger numminAsIntegerDimsumAsInteger aveAsSingleDimchAsStringnum 1 smax 1 smin 10110 ch 请输入第 num 个学生的成绩 s InputBox ch 输入学生成绩sum sum s 学生成绩累加Ifs smaxThensmax s nummax num 保留最高分及对应学号Ifs sminThensmin s nummin num 保留最低分及对应学号Ifnum 30ThenGoTo20 输入30个数据后程序结束num num 1GoTo10 循环 第3章VB NET面向对象程序设计 第3节2选择结构语句 20 MessageBox Show 最高分 smax 学号 nummax vbCrLf 最低分 smin 学号 nummin vbCrLf 总分 sum 平均分 sum num 求最大值 最小值时必须注意初始值的选择 每输入一个数据都分别与smax smin进行比较 大于smax当前值的数据将成为smax的新值 smax s 同时保留其学号 nummax num 小于smin当前的数将取代smin的原值而成为新的当前值 smin s nummin num 第3章VB NET面向对象程序设计 第3节2选择结构语句 请考虑 如何将 例3 9 改成由If Goto构成的循环结构 假设循环10次 学习要点1 熟练掌握 选择结构各语句的语法格式 2 熟练阅读 使用选择结构语句的程序 3 熟练使用 if语句 select语句 goto语句进行程序设计