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

Click to edit Master title,Click to edit Master text,Second level,Third level,Fourth level,Fifth level,*,程序的选择结构,select case,结构,Private Sub Command1_Click(),player=Text1.Text,Select Case,player,Case,科比,MsgBox,洛杉矶湖人队；,24,号球衣,0,球队名称,Case,霍华德,MsgBox,休斯顿火箭队；,12,号球衣,0,球队名称,Case,詹姆斯,MsgBox,迈阿密热火队；,6,号球衣,0,球队名称,Case,Else,MsgBox,NBA,没有这个球员,0,球队名称,End Select,End Sub,Select Case,语句,基本格式,Select,Case,Case,Case,Case,Else,End Select,功能,:,根据测试表达式的值,按顺,序匹配,Case,后的表达式,如果匹配成功,则执行该,Case,下的语句块,然后转,到,End Select,语句之后,继续执行,Case（,后面的）表达式,（,两种形式,）,1.,罗列。,例如:,Case“,科比”，“加索尔”,Case 1,3,5,2.,范围。,具体范围 用,TO,例如:,Case 10 TO 30,Case A TO Z,其他 用,Is,例如:,Case Is=10,注意,:,1.,以上两种形式可以混用，,例如:,Case Is 0，,则有两个不等的实根,b,2,-4ac 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,练习,:,编写程序计算货物运费,T,。,设货物运费每吨单价,P(,元,),与运输距离,S(,公里,),之间有如下关系,:,30 S100,27.5 100S200,P=25 200S300,22.5 300 S400,20 S400,输入要托运的货物重量为,W,吨。,T=P*W*S,