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 Case Case Else End Select,根据测试表达式的值,按顺 序匹配Case后的表达式, 如果匹配成功,则执行该 Case下的语句块,然后转 到End Select语句之后 继续执行,1、基本格式,2、执行过程:,测试表达式：可以是数值表达式或字符串表达式，通常为变量或常量 语句块1、语句块2：每个语句块由一行或者多行合法的VB语句组成。 表达式1、表达式2、：称为值域，可以有下列表述形式。,注意: 1. 以上几种形式可以混用， 例如: Case Is -5 , 0 , 5 To 100 2.测试表达式类型应与Case表达式类型一致,3、说明:,If Ucase(strC) =“A” And Ucase (strC) =“0“ And strC =“9“ Then Label1. Caption = strC + “是数字字符“ Else Label1. Caption = strC + “是其他字符“ End If 将以上语句用Select Case语句实现,【例1】：变量strC中存放一个字符，判断是字母、数字,【例2】：评定成绩等级 90100：“优”8089：“良”7079：“中”6069：“及格” 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，则方程无解，提示重新输入系数； b0，则 x=-c/b (2) 如果a0； 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 Else Delta = B 2 - 4 * A * C Select Case Delta Case 0: Picture1.Print “X1=X2=“; -B / (2 * A) Case Is 0 X1 = (-B + Sqr(Delta) / (2 * A) X2 = (-B - Sqr(Delta) / (2 * A) Picture1.Print “X1=“; X1, “X2=“; X2 Case Is 0: MsgBox “有两个共轭复根 “ End Select End If End Sub,1熟记select cas