Vb_程序的选择结构select_case结构PPT课件
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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
7.2 多分支控制结构 ——select case语句
一、Select Case语句
1、基本格式
Select Case <测试表达式> Case <表达式1> <语句块1> Case <表达式2> <语句块2> …… Case Else <语句块n>
End Select
2、执行过程:
根据测试表达式的值,按顺 序匹配Case后的表达式, 如果匹配成功,则执行该 Case下的语句块,然后转 到End Select语句之后 继续执行
Is 关系运算表达式
Case is <30
数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
可配合比较运算符来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起
注意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
3、说明:
• 测试表达式：可以是数值表达式或字符串表达式，通常为变量或常量 • 语句块1、语句块2…：每个语句块由一行或者多行合法的VB语句组成。 • 表达式1、表达式2、…：称为值域，可以有下列表述形式。
形式
示例
说明
表达式【，表达式】，… Case 2,4,6
表达式To表达式
Case 1 to 5 Case “a” to “n”
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
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89： “良”70~79：“中”60~69：“及格”
60分以下为“不及格”
谢谢大家
荣幸这一路，与你同行
It'S An Honor To Walk With You All The Way
演讲人：XXXXXX 时 间：XX年XX月XX日
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="不及格"
2.测试表达式类型应与Case表达式类型一致
【例1】：变量strC中存放一个字符，判断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” ThenFra Baidu bibliotek
Label1.Caption= strC + "是字母字符"
ElseIf strC >="0" And strC <="9" Then
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部分)
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
Case Is < 0: MsgBox "有两个共轭复根 "
End Select End If End Sub
结束语
当你尽了自己的最大努力时，失败也是伟 大的，所以不要放弃，坚持就是正确的。
When You Do Your Best, Failure Is Great, So Don'T Give Up, Stick To The End
Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Picture1.Print "X1="; X1, "X2="; X2
7.2 多分支控制结构 ——select case语句
一、Select Case语句
1、基本格式
Select Case <测试表达式> Case <表达式1> <语句块1> Case <表达式2> <语句块2> …… Case Else <语句块n>
End Select
2、执行过程:
根据测试表达式的值,按顺 序匹配Case后的表达式, 如果匹配成功,则执行该 Case下的语句块,然后转 到End Select语句之后 继续执行
Is 关系运算表达式
Case is <30
数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
可配合比较运算符来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起
注意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
3、说明:
• 测试表达式：可以是数值表达式或字符串表达式，通常为变量或常量 • 语句块1、语句块2…：每个语句块由一行或者多行合法的VB语句组成。 • 表达式1、表达式2、…：称为值域，可以有下列表述形式。
形式
示例
说明
表达式【，表达式】，… Case 2,4,6
表达式To表达式
Case 1 to 5 Case “a” to “n”
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
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89： “良”70~79：“中”60~69：“及格”
60分以下为“不及格”
谢谢大家
荣幸这一路，与你同行
It'S An Honor To Walk With You All The Way
演讲人：XXXXXX 时 间：XX年XX月XX日
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="不及格"
2.测试表达式类型应与Case表达式类型一致
【例1】：变量strC中存放一个字符，判断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” ThenFra Baidu bibliotek
Label1.Caption= strC + "是字母字符"
ElseIf strC >="0" And strC <="9" Then
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部分)
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
Case Is < 0: MsgBox "有两个共轭复根 "
End Select End If End Sub
结束语
当你尽了自己的最大努力时，失败也是伟 大的，所以不要放弃，坚持就是正确的。
When You Do Your Best, Failure Is Great, So Don'T Give Up, Stick To The End