多向选择结构.pptVIP

* 程序设计——选择结构——多向选择 多向选择语句的格式为： If 条件1 Then 语句1 ElseIf 条件2 Then 语句2 ElseIf 条件3 Then 语句3 …… Else 语句N End If 首先回顾双向选择语法格式如下： If 条件 Then 语句1 Else 语句2 End If 程序设计——选择结构——多向选择 例题：输入一个数，判断此数是正数、负数、还是0。 详见form1。 程序代码如下： Private Sub Command1_Click() Dim x As Single x = Val(InputBox(请输入一个非0数)) If x 0 Then MsgBox (是一个正数) ElseIf x 0 Then MsgBox (是一个负数) Else MsgBox (是0) End If End Sub 例题：学生成绩鉴定程序。 任务：根据输入的学生成绩x，输出他的成绩等级。 等级评定方案： （1）x0或者x100，输出“错误数据”； （2）0=x60 输出“不及格”； （3）60=x85 输出“一般”； （4）85=x=100 输出“优秀”。 程序设计——选择结构——多向选择 提示：如果某中情况的条件是多个条件的逻辑组合，则可用逻辑运算符连接两个条件。 比如：（1）x0或者x100，输出“错误数据”； 则语句为：If x0 Or x100 then 同理： （2）0=x60 输出“不及格”； 则语句为：If x=0 And X60 then 特别注意：VB中不能使用连等号！ 程序代码如下： Private Sub Command1_Click() Dim x As Single x = Val(InputBox(请输入学生成绩)) If x 0 Or x 100 Then MsgBox (错误数据) ElseIf x = 0 And x 60 Then MsgBox (不及格) ElseIf x = 60 And x 85 Then MsgBox (一般) Else MsgBox (优秀) End If End Sub 详见Form2。 本课作业 题目：打折促销自动计算程序。 某超市为了促销，规定：购物不足50元的按原价付款，超过50不足200的超过部分按九折付款，超过200元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。 举例：比如某顾客购物220元，则应付费用为 50+(200-50)*0.9+(220-200)*0.8=201元 参见程序演示。 详见作业.frm 要求： （1）程序界面如下图。 （2）用文本框输入数据，用标签控件输出结果。 （3）If语句或Select Case语句任选其一。 *