选择结构与IF语句

3.4.6选择结构与IF语句,1.选择语句行if语句,VB语句中实现选择结构的是IF语句。IF语句有行IF语句和块IF语句。,（1）行IF语句：整个IF语句在一行中写完。格式1：If（条件表达式）Then（语句1）Else（语句2）先计算条件表达式，如果结果是True，那么执行Then后面的语句，否则执行Else后面的语句。,选择结构,PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=Val(Text1.Text)b=Val(Text2.Text)IfabThenText3.Text=Str(a)ElseText3.Text=Str(b)EndSub,1.选择语句行if语句,格式2：If（条件表达式）Then（语句）先计算条件表达式，如果结果是True，那么执行Then后面的语句，否则什么也不执行。,PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=Val(Text1.Text)b=Val(Text2.Text)IfabThenText3.Text=Str(a)：Label3.Caption=较大的数为：EndSub,IfabThenText3.Text=Str(a)Label3.Caption=较大的数为：EndIf,块if语句,1.选择语句块if语句,（2）块IF语句：IF语句由若干行组成，但是Then后不能有任何语句，最后要有EndIf结束。格式1：If（条件表达式）Then（语句）EndIf先计算条件表达式，如果结果是True，那么执行Then与EndIf之间的所有语句，最后定位到EndIf处；否则什么也不执行，直接定位到EndIf处。EndIf语句是块If的“出口”。,PrivateSubCommand1_Click()DimmaxAsInteger,aAsInteger,bAsIntegera=Val(Text1.Text)b=Val(Text2.Text)IfabThenText3.Text=Str(a)Label3.Caption=较大的数为：EndIfEndSub,1.选择语句块if语句,格式2：If（条件表达式）Then（语句1）Else（语句2）EndIf先计算条件表达式，如果结果是True，那么执行Then与Else之间的所有语句，执行完后跳过Else及后面的语句，定位到EndIf处；如果结果是False，则执行Else与EndIf之间的所有语句，最后也定位到EndIf处。EndIf语句是块If的“出口”。,PrivateSubCommand1_Click()DimmaxAsInteger,aAsInteger,bAsIntegera=Val(Text1.Text)b=Val(Text2.Text)IfabThenLabel3.Caption=较大的数为：Text3.Text=Str(a)ElseLabel3.Caption=较大的数为：Text3.Text=Str(b)EndIfEndSub,1.选择语句if嵌套语句,一个块If中可完整地包含另一个（或多个）块If，称为块If的嵌套。当在多个条件中做出选择时，除了使用If嵌套外，可在If语句中增加ElseIf来增加条件判断。,格式：If（条件表达式1）then（语句块1）ElseIf（条件表达式2）Then（语句块2）ElseIf（条件表达式n）Then（语句块n）Else（语句块0）EndIf,出租车计价方案:路程在3公里以内按8块钱起步价计算；路程在3公里以上,超出3公里部分按每公里2块计算；路程在30公里以上.超出30公里的部分按1块计算，请你帮出租车司机设计一个计算车费的程序。,1.输入出租车行使路程s2.如果s3，则计算m=83.否则如果s30，则计算m=8+(s-3)*24.否则，计算m=8+27*2+(s-30)5.输出m的值,1.选择语句出租车计价方案,PrivateSubCommand1_Click()DimsAsSingle,mAsSingles=Val(Text1.Text)Ifs=3Thenm=8ElseIfs=30Thenm=8+(s-3)*2Elsem=8+27*2+(s-30)EndIfText2.Text=Str(m)EndSub,1.输入出租车行使路程s2.如果s3，则计算m=83.否则如果s30，则计算m=8+(s-3)*24.否则，计算m=8+27*2+(s-30)5.输出m的值,1.选择语句if嵌套语句,2.注释语句,注释是指在编写代码时，编写者在代码中添加的一些说明性语句。注释是非执行语句，只是对有关的内容加以说明。V