第5章wif选择结构程序设计11.ppt

本章要点： 1、If...Then (If语句的单行格式,有称单条件单分支语句) 2、块结构条件语句If…Then…End If的使用 3．多分支条件语句ElseIf的应用 4 ．多分支选择语句Select Case…End Selec的应用 选择结构是一种常用的基本结构，其特点是根据所给定的选择条件为真或假，来决定从不同操作中选择执行一种操作。 块If语句（If...Then语句） 5.3 ElseIf语句 ElseIf子句的格式： If 条件1 then 语句块1 ElseIf 条件2 then 语句块2 …… [Else 语句块n+1] End If IIf 函数 5.5 应用举例 格式： Select Case 测试表达式 [Case 表达式表1 [语句组1]] [Case 表达式表2 [语句组2]] …… [Case 表达式表n [语句组n]] [Case Else [语句组n+1]] End Select Select Case语句格式 格式说明： （1）“测试表达式”可以是数值表达式或字符串表达式。 （2）“表达式列表”与“测试表达式”的类型必需相同。 （3）“表达式列表”由下表形式的表达式组成。 （4）当使用多个表达式组成列表时，表达式与表达式之间要用英文逗号“,”隔开。 形式 示例 说明 （1）表达式 Case 100+a 数值或字符串表达式 （2）一组用逗号分隔的枚举值 Case 2,4,6,8 测试表达式的值等于2，4，6，8之一 （3）表达式1 To表达式2 Case 1 To 10 1 ≤ 测试表达式 ≤ 10 （4）Is 关系运算符表达式 Case Is 20 测试表达式 20 Select Case语句功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。 Select Case语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select后面的语句；如果没找到，则执行Case Else后面的语句块，然后执行End Select后面的语句。 【例】用Select Case语句代替ElseIf语句来实现成绩的鉴定。保持界面不变，双击“鉴定”按钮，修改代码如下： Private Sub Command1_Click() 单击“鉴定”按钮 Dim x! x = val(Text1.Text) Select Case x Case Is = 90 Text2.Text = 优秀 Case Is = 80 在x≥90不成立时，再判断x≥80是否成立 Text2.Text = 良好 Case Is = 70 Text2.Text = 中 Case Is = 60 Text2.Text = 及格 Case Else Text2.Text = 不及格 End Select End Sub 【例】某交易中介公司按交易双方成交额收取中介费用，收费标准如下： 交易额=10000 5% 5000=交易额10000 3% 1000=交易额5000 2% 500=交易额1000 1% 交易额500 免费 假设交易额通过文本框Text1输入，则“计算费用”按钮Command1的事件代码如下： Private Sub Command1_Click() Trade=Val(Text1.Text) Select Case Trade Case Is500 Discount=0 Case Is1000 Discount=0.01 Case Is5000 Discount=0.02 Case Is10000 Discount=0.03 Case Else Discount=0.05 End Select Fee = Trade * Discount Print Fee End Sub 在解决多分支选择情况的程序时，采用Select Case语句比较方便，并且程序结构清楚，便于阅读和修改。 VB中还提供了一个选择函数IIf 函数，用来实现简单的选择结