实验四VB选择结构程序设计.doc

实验四、 选择结构程序设计 实验目的： 1、了解选择结构的结构特点 2、掌握IF条件语句的使用方法 3、掌握Case语句的使用方法 实验内容： 例1、税务部门征收所得税，规定如下（用IF语句实现）： ①当收入为200 元以内（含200元）时，免征； ②当收入为 200 ~ 400 元（含400元）时，将超过 200 元的部分纳税 3% ； ③当收入为 400 ~ 5000元（不含5000元）时，将超过 400 元的部分纳税 4% ； ④当收入为 5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如图 4.1 所示。 图4.1 提示： 因为该程序的条件分支较多，故可采用多分支的条件语句进行编写。 多分支条件语句格式如下： If 条件1 Then 语句块1 【 ElseIf 条件2 Then 语句块2 】 【ElseIf 条件3 Then 语句块3】 …… 【Else 语句块 n+1】 End If 例 2 将上题用SELECT CASE 多分支结构设计。 提示：Case语句的一般格式为 Select Case 测试表达式 Case 表达式列表1 【语句块1】 【Case 表达式列表1 【语句块1】】 …… 【Case Else 【语句块1】】 End Select 【上机参考练习题】 　　要求： 利用空余时间设计调试出来，并将设计方法及代码写入试验报告。 　1.（基本设计题） 在购买某物品时，若所花的的钱 x 在下述范围内，所付钱 Y 按对应折扣支付： 　　提示：此例可以多分支结构或者选择结构实现，注意计算公式和条件表达式的正确书写。 图4.2 2.（基本设计题）编一程序根据上网时间计算上网费用，同时为了鼓励多上网，每月收费最多不超过 150 元。计算的方法如下： 图 4.3 提示：此题用可以用多分支结构或者选择结构实现，但请特别注意有个条件“每月收费最多不超过 150 元” 3.（基本设计题）输入一个数字 (1－7) ，用英文显示对应的星期一到星期日。 　　提示：用 Select Case语句来实现。 4.（提高设计题）编一模拟袖珍计算器的完整程序，界面如图4.4 所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。 　　提示： 　(1) 为了程序运行正确，对存放操作符的文本框 Text3 ，应使用 trim(Text3) 函数，去除运算符两边的空格。 　(2) 根据存放操作符的文本框利用 Select Case 语句实现。 图4.4 5.（提高设计题）某市公用电话收费标准如下：通话时间在 3 分钟以下，收费 0.50 元； 3 分钟以上，则每超过 1分钟加收 0.152元。 　　提示：此例用分支结构实现，注意判断时间范围。 实验报告： 从1/2/3题中任选一题。（必做题） 从4/5题中任选一题。（选作题）