第六章控制结构程序设计.ppt

第六章控制结构程序设计 6.1选择结构 单行结构条件语句 If…Then…Else 块结构条件语句 If …Then…EndIf 多分支选择语句 Select Case… End Select 6.1.1单行结构条件语句（1） 格式 If条件Then[语句序列1][Else语句序列2] 功能 执行该语句时，先判断条件的值是否为True，然后决定程序运行的走向：当条件的值为True时，顺序执行Then后的语句序列1，否则，执行Else后的语句序列2 6.1.1单行结构条件语句（2） 流程图 与顺序结构流程图的比较 6.1.1单行结构条件语句（3） 说明： 条件：可以是关系表达式、布尔表达式、数字表达式（0为假、非0为真） 语句序列1和语句序列2可以为空，若其中某一分支为空，则形成单分支的If语句，当语句序列2为空时，通常连Else都省略 语句序列1和语句序列2可以有多条语句，各语句之间用冒号隔开 举例 设计口令验证界面 代码 Private Sub Command1_Click() If Text1.Text = student _ Then Label2.Caption = 欢迎使用本系统 _ Else Label2.Caption = 口令错，请重新输入！: _ Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text): _ Text1.SetFocus End Sub 6.1.2块结构条件语句（1） 格式： If条件1Then [语句序列1] [ElseIf条件2 Then [语句序列2]] … [ElseIf条件nThen [语句序列n]] [Else [语句序列n+1]] End If 6.1.2块结构条件语句（2） 功能 执行该块结构语句，系统依次检查每一个条件的值，视其真假决定程序的走向：首先判断条件1，若为True，则执行该条件下的语句序列1；否则，判断条件2，若为True，则执行该条件下的语句序列2；否则，继续判断以下的条件，以此类推。当执行了某条件下的语句序列，随即跳过其他条件下的语句序列而转去执行End If的下一语句。若所有的条件均为False，则要看是否有Else子句，若有就执行其后的语句序列n+1，然后再执行End If的下一个语句，否则直接执行End If的下一个语句 6.1.2块结构条件语句（3） 流程图 6.1.2块结构条件语句（4） 说明 语句序列中的语句不能与其前面的Then在同一行上，否则将被认为是单行If语句 ElseIf不能写成Else If ElseIf子句和Else子句均为可选，且ElseIf子句的数量不限 举例 计算如下分段函数的值，x的值从键盘输入 Y= 设计步骤 设计界面：标签（1个）、文本框（2个）、命令按钮（1个） 设置属性 代码 Private Sub Command1_Click() Dim X As Double Dim Y As Double X = Val(Text1.Text) If X 1 Then Y = X ElseIf X 10 Then Y = 2 * X - 1 Else Y = 3 * X - 11 End If Text2.Text = Y End Sub 6.1.3多分支选择结构语句 格式 Select Case测试表达式 Case值列表1 [语句序列1] [Case值列表2 [语句序列2]] … [Case值列表n [语句序列n]] [Case Else [语句序列n+1]] End Select 功能 根据测试表达式的值，按顺序匹配Case后的值，如果匹配成功，则执行该Case下的语句序列，然后转到End Select语句之后继续执行 流程图 说明 测试表达式只能是数值型表达式或字符表达式 Case后值列表可以是以下形式之一，或是以下形式的组合，且要求类型与测试表达式的类型一致 值1[,值2,…,值n]：枚举各个值（值间用逗号分隔） Case 1 Case 1,3,5 值1 TO 值2：取值区间 Case 1 To 5 Case “a” To “z” Is关系运算符值：指定条件 Case Is=20 Case Is=0 可以以上形式同时使用，各项之间用逗号分隔 Case 1,3,5,10 To 15,Is=20 如果有多个Case后的值与测试表达式的值匹配，则只执行第一个匹配的Case下的语