Vb_程序的选择结构select_case结构.ppt

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 Label1.Caption= strC + 是字母字符 ElseIf strC =0 And strC =9 Then Label1. Caption = 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 Label1.Text=优秀 Case 80 To 89 Label1.Text=良好 Case 70 To 79 Label1.Text=中等 Case 60 To 69 Label1.Text=及格 Case Else  Label1.Text=不及格 End Select 分析： (1) 如果a=0；b=0，则方程无解，提示重新输入系数； b?0，则 x=-c/b (2) 如果a?0； b2-4ac=0 ，则有两个相等的实根 b2-4ac0， 则有两个不等的实根 b2-4ac0， 则有两个共轭复根 【例3】求一元二次方程ax2+bx+c=0的解 。 Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text): Picture1.Cls If A = 0 Then If B = 0 Then MsgBox 系数为零，请重新输入 Else X = -C / B: Picture1.Print X=; X End If