vb_程序的选择结构select_case结构.pptVIP

? If 语句 ? 单行结构条件语句 If 条件 1 Then 语句序列 1 【 Else 语句序列 2 】 ? 块结构条件语句 If 条件 1 Then 语句块 1 [ElseIf 条件 2 Then 语句块 2] [ElseIf 条件 3 Then 语句块 3 ] …… [Else 语句块 n] End If ? IIf 函数 result=Iif( 条件 , true 部分 , False 部分 ) 7.2 多分支控制 结构 —— select case 语 句 一、 Select Case 语句 Select Case 测试表达式 Case 表达式 1 语句块 1 Case 表达式 2 语句块 2 …… Case Else 语句块 n End Select 根据测试表达式的值 , 按顺 序匹配 Case 后的表达式 , 如果匹配成功 , 则执行该 Case 下的语句块 , 然后转 到 End Select 语句之后 继续执行 1 、基本格式 2 、执行过程 : ? 测试表达式：可以是数值表达式或字符串表达式，通常为变量或常量 ? 语句块 1 、语句块2…：每个语句块由一行或者多行合法的 VB 语句组成。 ? 表达式 1 、表达式 2 、…：称为值域，可以有下列表述形式。 注意 : 1. 以上几种形式可以混用， 例如 : Case Is -5 , 0 , 5 To 100 2. 测试表达式类型应与 Case 表达式类型一致 形式 示例 说明 表达式【 ， 表达式】， … Case 2,4,6 数值或字符串表达式 , 表述固 定值之一 表达式 To 表达式 Case 1 to 5 Case “a” to “n” 用来指定一个范围，较小的 在 To 前，较大在 To 后 Is 关系运算表达式 Case is 30 可配合比 较运算符 来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起 3 、说明 : If Ucase(strC ) =“A” And Ucase (strC ) =“Z” Then ????慌敢??灡楴湯?猠牴?? 是字母字符 ElseIf strC = ????慌敢??慃瑰潩??瑳??尠 是数字字符 Else Label1. Caption = strC + “ 是其他字符 End If 将以上语句用 Select Case 语句实现 【例 1 】：变量 strC 中存放一个字符，判断是字母、数字 【例 2 】：评定成绩等级 90~100 ：“优” 80~89 ：“良” 70~79 ：“中” 60~69 ：“及格” 60 分以下为“不及格” Select Case mark Case 90 To 100 ?????扡汥?敔瑸尽 优秀 Case 80 To 89 ?慌敢?吮硥? 良好 Case 70 To 79 ?????扡汥?敔瑸尽 中等 Case 60 To 69 ?????扡汥?敔瑸尽 及格 Case Else ?????扡汥?敔瑸尽 不及格 End Select 分析： (1) 如果 a=0 ； b=0 ，则方程无解，提示重新输入系数； b ? 0 ，则 x=-c/b (2) 如果 a ? 0 ； b 2 -4ac=0 ，则有两个相等的实根 b 2 -4ac0 ， 则有两个不等的实根 b 2 -4ac0 ， 则有两个共轭复根 【例 3 】求一元二次方程 ax 2 +bx+c=0 的解 。 Private Sub Command1_Click() A = Val(Text1.Text): B = Va