第5讲 程序的分支结构

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,Visual Basic,可视化程序设计,周淑秋 副教,1,第,5,讲,程序的分支结构,2,教学目标,掌握流程图描述方法,掌握If 语句,掌握Select Case语句,3,教学内容,5.1 程序的流程图描述,5.2 IF,语句,5.3 SELECT CASE,语句,4,5.1 程序的流程图描述,5,顺序结构和分支结构流程图,开始,Data=90?,Yes,No,输出“优秀”,输出“不优秀”,输出“计算完毕”,输出“成绩”,输出“计算完毕”,输入data,输入data,开始,顺序结构,分支结构,6,5.2 IF 语句,分支（,选择）结构,：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。,分支结构中要使用分支语句，有两路分支和多路分支两种情况 ，对应的选择语句有If语句(两路出口)和Select Case语句(多路出口)。,返回目录,7,1. If Then ,其中，,是一个条件表达式或逻辑表达式,例如，,If Data=90 Then Print “,优秀,”,返回目录,Data=90?,Yes,No,输出“优秀”,8,例5.1,输入一个数，如果是,3,的,倍数则通过消息框输出。,9,例5.1程序代码,Private Sub Form_Click(),Dim Data As Integer,Data = InputBox(,请输入一个值：,),If,Data Mod 3 = 0,Then MsgBox Data,End Sub,Data是3的倍数,10,2. If Then Else ,例如，,Dim Data As Integer,Data = InputBox(“,请输入成绩：,),If,Data = 90,Then,Print “,优秀,”,Else,Print “不优秀”,Print ,计算完毕,上例的If 语句可以改写为：,If,Data =90?,Yes,No,输出“优秀”,输出“不优秀”,输出“计算完毕”,11,3. 块状If语句,返回目录,If Then,End If,例5.2,If Then,Else,End If,A = InputBox(“A,值,”) : B = InputBox(B,值,),Print A, B,If A B Then,T = A : A = B : B = T,End If,Print A, B,12,例5.3 对输入的任意三个数,从大到小排序,13,例5.3程序代码,Private Sub Command1_Click(),Dim a As Single,Dim b As Single,Dim c As Single,Dim t As Single,a = Text1.Text,b = Text2.Text,c = Text3.Text,If a b Then,t = a: a = b: b = t,End If,If a c Then,t = a: a = c: c = t,End If,If b =90?,Yes,No,输出“优秀”,输出“不及格”,输出“计算完毕”,Data=80?,Yes,输出“良好”,No,Data=60?,输出“及格”,Yes,No,16,If语句嵌套例子,例5,.4,计算西瓜款.,返回目录,4公斤以下：1.00元/公斤,4至7公斤： 1.3元/公斤,超过7公斤： 1.1元/公斤,If Weight = 4 And Weight 7 Then Price = 1.1,17,例5,.4程序代码,Weight = InputBox(,输入西瓜重量：, ,计算西瓜款,),If Weight 4 Then,Price = 1,ElseIf Weight = 0 And Char = “A And Char = a And Char = z Then,MsgBox ,输入的字符是小写字母,Else,MsgBox ,输入的字符是其它符号,End If,返回目录,判断输入的是大写字母、小写字母、数字还是其它符号,19,If语句嵌套例子,例5,.6,验证考生登录界面.,返回目录,20,If语句嵌套例子,例5,.6,验证考生登录界面程序代码,Private Sub Command1_Click(),单击,“正确无误”按钮,If Len(TxtCode.Text) =60,”及格”,”不及格”),返回目录,22,5.3 Select Case语句,语法格式：,Select Case ,Case ,Case ,Case Else,End Select,功能：根据测试表达式的值，决定程序的流向。,值的类型是数值型、字符串型、日期型等，一旦与某个Case后的值相等，则执行这个Case中的，完成后执行End Select后的语句。,如果所有的Case后的都不与项匹配，则执行Case Else后的。,23,5.3 Select Case语句,说明：,表达式列表可以是下列形式之一,表达式,表达式 TO 表达式,IS关系运算表达式,使用TO 表达式,必须把较小的值放在前面,字符串常量必须按字母顺序写出.,CASE -8 TO 3,CASE “abc” TO “efg”,关键字IS只能用关系运算符且只能是简单条件,CASE IS15,返回目录,24,Select case 语句流程图,结束,开始,测试data,优,良,合格,不合格,输入data,25,5.3 Select Case语句,例5.7,学生成绩分等,返回目录,单,击,窗,体,确,定,26,5.3 Select Case语句,例5.7,学生成绩分等程序代码,Data = InputBox(,请输入一个成绩, ,成绩分等,),Select Case Int(Data / 10),Case 10,MsgBox ,满分, , ,成绩分等,Case 9,MsgBox ,优秀, , ,成绩分等,Case 8,MsgBox ,良好, , ,成绩分等,Case 7,MsgBox ,一般, , ,成绩分等,Case 6,MsgBox ,合格, , ,成绩分等,Case Else,MsgBox ,不合格, , ,成绩分等,End Select,返回目录,27,5.3 Select Case语句,例5.8,测试输入的字符,大小写,返回目录,确,定,单,击,窗,体,28,5.3 Select Case语句,例5.8,测试输入的字符,程序代码,Char = InputBox(,请输入一个字符, ,测试,),Select Case Char,Case 0 To 9,MsgBox ,字符是数字, , ,测试,Case a To z,MsgBox ,字符是小写字母, , ,测试,Case A To Z,MsgBox ,字符是大写字母, , ,测试,Case Else,MsgBox ,字符是其它符号, , ,测试,End Select,返回目录,29,本讲知识点小结,程序流程图,分支语句,IF语句,CASE语句,返回目录,30,