Vb-程序的选择结构select-case结构.ppt

《Vb-程序的选择结构select-case结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、If语句单行结构条件语句If条件1Then语句序列1【Else语句序列2】块结构条件语句If条件1Then语句块1[ElseIf条件2Then语句块2][ElseIf条件3Then语句块3]……[Else语句块n]EndIfIIf函数result=Iif(条件,true部分,False部分)选择结构7.2多分支控制结构——selectcase语句一、SelectCase语句SelectCase<测试表达式>Case<表达式1><语句块1>Case<表达式2><语句块2>……CaseElse<语句块n>EndSelect根据测试表达式的值,按顺序匹配Case后的表达式,如果匹配

2、成功,则执行该Case下的语句块,然后转到EndSelect语句之后继续执行1、基本格式2、执行过程:测试表达式：可以是数值表达式或字符串表达式，通常为变量或常量语句块1、语句块2…：每个语句块由一行或者多行合法的VB语句组成。表达式1、表达式2、…：称为值域，可以有下列表述形式。注意:1.以上几种形式可以混用，例如:CaseIs<-5,0,5To1002.测试表达式类型应与Case表达式类型一致形式示例说明表达式【，表达式】，…Case2,4,6数值或字符串表达式,表述固定值之一表达式To表达式Case1to5Case“a”to“n”用来指定一个范围，较小的在To前，较大在To后I

3、s关系运算表达式Caseis<30可配合比较运算符来指定一个数值范围，不能用逻辑运算符将两个或多个简单条件组合在一起3、说明:IfUcase(strC)>=“A”AndUcase(strC)<=“Z”ThenLabel1.Caption=strC+"是字母字符"ElseIfstrC>="0"AndstrC<="9"ThenLabel1.Caption=strC+"是数字字符"ElseLabel1.Caption=strC+“是其他字符"EndIf将以上语句用SelectCase语句实现【例1】：变量strC中存放一个字符，判断是字母、数字【例2】：评定成绩等级90~100：“优”80

4、~89：“良”70~79：“中”60~69：“及格”60分以下为“不及格”SelectCasemarkCase90To100Label1.Text="优秀"Case80To89Label1.Text="良好"Case70To79Label1.Text="中等"Case60To69Label1.Text="及格"CaseElseLabel1.Text="不及格"EndSelect分析：(1)如果a=0；b=0，则方程无解，提示重新输入系数；b0，则x=-c/b(2)如果a0；b2-4ac=0，则有两个相等的实根b2-4ac>0，则有两个不等的实根b2-4ac<0

5、，则有两个共轭复根【例3】求一元二次方程ax2+bx+c=0的解。PrivateSubCommand1_Click()A=Val(Text1.Text):B=Val(Text2.Text)C=Val(Text3.Text):Picture1.ClsIfA=0ThenIfB=0ThenMsgBox"系数为零，请重新输入"ElseX=-C/B:Picture1.Print"X=";XEndIfElseDelta=B^2-4*A*CSelectCaseDeltaCase0:Picture1.Print"X1=X2=";-B/(2*A)CaseIs>0X1=(-B+Sqr(Delta))/(

6、2*A)X2=(-B-Sqr(Delta))/(2*A)Picture1.Print"X1=";X1,"X2=";X2CaseIs<0:MsgBox"有两个共轭复根"EndSelectEndIfEndSub1．熟记selectcase语句书写结构，理解执行过程。2.注意selectcase语句中表达式细节3.Selectcase语句应用环境，与if语句的转换内容小结