《程序VB选择结构程序设计.ppt》由会员分享，可在线阅读，更多相关《程序VB选择结构程序设计.ppt（52页珍藏版）》请在第壹文秘上搜索。
1、2.3 选择结构程序设计 学习重点 If语句、Select Case语句的格式与使用。If 语句的嵌套使用。掌握常用的选择结构算法。 本节内容 If语句 Select Case语句基本算法及应用其他应用举例本节小结 引言分支结构 True False P A B 2.3 If语句2.3.1 IfThen结构 2.3.2 IfThenElse结构 2.3.3 IfThenElse If结构 2.3.4 If语句的嵌套 2.3.5 与If语句有关的函数 注注1 1：条件表达式的值为：条件表达式的值为TrueTrue或或FalseFalse，一，一般是逻辑或关系表达式，也可以是算术表达般是逻辑或关系
2、表达式，也可以是算术表达式（转换为逻辑值）式（转换为逻辑值）2.3.1 IfThen结构两种格式：格式格式1 1： 块形式块形式 格式格式2 2：单行形式单行形式 条件表达式条件表达式语句体语句体TrueFalse注注2 2：当条件为：当条件为TrueTrue时执行语句体，否则执行时执行语句体，否则执行IfIf语句的下一条语句语句的下一条语句注注3 3：语句体中可以是：语句体中可以是多条语句多条语句，当采用，当采用格式格式2 2时，所有的语句必须写在一行，用时，所有的语句必须写在一行，用冒号隔开冒号隔开语句语句体中的语句体中的语句 2.3.1 IfThen结构例：已知有两数x、y，编程使x中存
3、放较大的数n分析：如果x=y，则不需要做处理 如果xy，则做交换处理n实现：If x y Thent = xx = yy = tEnd Ifn用格式2描述： If x y Then t = x:x = y:y = t特别注意：特别注意：块结构时块结构时If和和End If成对出现成对出现2.3.1 IfThen结构例例1 倒计时设计，主要利用文本框、按钮、计时器控件实现倒计时功能。 例例2-3-1程序代码如下：Private Sub Command1_Click()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub For
4、m_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text - 1If Text1.Text = 0 ThenTimer1.Enabled = FalseEnd IfEnd Sub2.3.2 IfThenElse结构两种格式：格式格式1 1：格式格式2 2：注：当条件为注：当条件为TrueTrue时执行语句体时执行语句体1 1，否则执行语，否则执行语句体句体2 2T条件表达式条件表达式语句体语句体1F语句体语句体2例2-3-2 已知x，求程序代码如下：Private Sub Cmd
5、Cul_Click() Dim x As Single, y As Single x = Val(txtX.Text) 第1个文本框的名称是txtX If x 0 Then MsgBox x不能小于不能小于0 Else y = Sqr(x) txtY.Text = Str(y) 第2个文本框的名称是txtY End IfEnd Subxy 等价于：等价于：If x 0 Then MsgBox x不能小于不能小于0 Else y = Sqr(x) : txtY.Text = Str(y) 2.3.3 IfThenElseIf结构表达式表达式1 1 True True 执行语句体执行语句体1 1
6、False False 表达式表达式2 2 True True 执行语句体执行语句体2 2 False False 表达式表达式3 3ElseElse和和IfIf间无空格间无空格格式：2.3.3 IfThenElseIf结构FT表达式表达式1语句体语句体1表达式表达式2语句体语句体2TF表达式表达式n语句体语句体nF语句体语句体n+1T判断的顺序为表达式判断的顺序为表达式1、表达式、表达式2只有当表达式只有当表达式1为为False时才判断表达式时才判断表达式2，当表达式，当表达式1和表达式和表达式2都为都为False时，才判断表达式时，才判断表达式3，程序执行语句体程序执行语句体n+1的条件为
7、前的条件为前n个表达式均为个表达式均为False。2.3.3 IfThenElseIf结构例2-3 -3 旅客乘车旅行，可免费携带30公斤行李，超过30公斤的部分每公斤需支付托运费10元，超过50公斤部分则每公斤需支付20元托运费。请编程根据每位旅客行李的重量计算其应付的行李托运费。例2-3-3此分段函数用程序代码表示如下此分段函数用程序代码表示如下:Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 30 Then x30 y = 0 ElseIf x = 50 Then 30=
8、x50 y = (x - 50) * 20 + 20 * 10 End If Text2.Text = yEnd Sub5050303010*2020*)50(10*)30(0 xxxxxy可以，但可以，但ElseElse已经包含了已经包含了x=30 x=30的信息的信息2.3.4 If语句的嵌套If语句中又包含If语句n在Then子句或Else子句的语句体中包含完整的一条If语句n如： If x y ThenPrint x & “” & yElseIf xy ThenPrint x & “” & yElse Print x & “=” & yEnd If End If一条一条IfIf语句语句
9、一条一条IfIf语句语句2.3.4 If语句的嵌套n注1： If语句的完整性，即内层If语句必须完整地出现在外层If语句的Then子句或Else子句中。外层外层IfIf内层内层IfIf内层内层IfIf内外层不能有交叉！内外层不能有交叉！2.3.4 If语句的嵌套n注2：ElseIf的匹配原则Else始终与上面距离其最近的未被匹配过的 If匹配注3： If End If的匹配If 块必须以一个 End If 语句结束If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If2.3.4 If语句的嵌套为使程序结构更为清晰，要养成良
10、好的书写习惯。If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If为体现层次，可以使用为体现层次，可以使用TabTab健健排放不同层次的排放不同层次的语句语句2.3.4 If语句的嵌套例2-3-4 根据用户输入年龄和性别，输出不同的欢迎信息。其中小于14岁的男性为boy，大于14岁的男性为guy，其中小于14岁的女性为girl，大于14岁的女性为miss。例2-3-4程序代码如下：程序代码如下：Private Sub Command1_Click() If Op_male.Value = True Then If Val
11、(Txt_age.Text) 14 Then 小于小于14岁的男性岁的男性 MsgBox Hello,boy! Else 大于或等于大于或等于14岁的男性岁的男性 MsgBox Hello,guy! End If Else If Val(Txt_age.Text) b Thenmax=aElsemax=bEnd Ifmax= IIf ( ab , a , b ) 1. IIf函数函数IIf函数实际上是IfThenElse结构的一个简写 IIf函数中后两个表达式可以是各种类型的表达式，也可以是一个IIf函数的调用Print x & IIf(x 0, “大于0”, “小于或小于0”) s = II
12、f(x 0, 1, IIf(x = 0, 0, -1) 判断x的符号 1. IIf函数函数将If语句改写成使用IIf函数： If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If等价于：等价于：y = IIf(x 30, 0, IIf(x =90,A,grade=80,B,grade=90,A,grade=80,B,grade80,C)用于多分支情况用于多分支情况 条件表达式和值必须成对出现条件表达式和值必须成对出现 ! 2. Switch函数函数将If语句改
13、写成使用Switch函数： If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If等价于：等价于：y = Switch(x 30, 0, x50, (x-50)*20+20*10) 条件条件条件条件条件条件值值值值值值2.3.2 Select Case语句(多分支语句)格式：2.3.2 Select Case语句T表达式表达式1语句体语句体1表达式表达式2语句体语句体2T表达式表达式n语句体语句体n语句体语句体n+1T执行过程执行过程:计算测试表达式的值；计算
14、测试表达式的值；依次比较依次比较各个表达式，符合条件则进入相应的语句体执行；各个表达式，符合条件则进入相应的语句体执行；执行执行Select Case语句的下一条语句。语句的下一条语句。计算测试表达式的值计算测试表达式的值2.3.2 Select Case语句n注注1：测试表达式测试表达式可以是数值或字符串表达式可以是数值或字符串表达式；n注注2：各：各表达式列表表达式列表 合法的格式：合法的格式：一个常量或常量表达式一个常量或常量表达式多个常量或常量表达式，用逗号隔开，逗号相当于多个常量或常量表达式，用逗号隔开，逗号相当于“或或” ，如：，如：Case 1，3，5，7表达式表达式1 to 表
15、达式表达式2，表示从表达式，表示从表达式1到表达式到表达式2中所有的值，其中中所有的值，其中表达式表达式1的值必须小于表达式的值必须小于表达式2的值。如：的值。如：Case 1 to 5Is关系运算表达式，可以使用的关系运算符为：关系运算表达式，可以使用的关系运算符为：、=、=、=，不可以使用逻辑运算符表示多个范围。，不可以使用逻辑运算符表示多个范围。 前面四种情况的组合，如前面四种情况的组合，如Case Is10,2,4,6,Is =“a” And ch=“A” And ch=“0” And ch=“9” “0” To “9”空格字符：ch=“ ” “ ”Is=“ ”n实现：Select C
16、ase Select Case chchCase Case “a a” To To “z z”, , “A A” to to “Z Z”Print Print “字母字符字母字符” Case Case “0 0” To To “9 9”Print Print “数字字符数字字符”Case Case “ ”Print Print “空格空格”Case ElseCase ElsePrint Print “其他字符其他字符”End SelectEnd Select2.3.2 Select Case语句例例7-57-5简单运算器简单运算器n分析：运算符的判断：共四种取值，事先已在ComboBox中 Select Case Cmbop.Text Case txtresult = Val(txtX) + Val(txtY) Case txtresult = Val(txtX) - Val(txtY) Case txtresult = Val(txtX) * Val(txtY) Case txtresult = Val(txtX) / Val(txtY)End Select If Val(txtY)
