复件 顺序与分支结构.docVIP

实验八 实验项目名称:程序设计1(顺序与分支结构)日期:2013年11月21日 一、实验目的与要求 1、掌握程序文件的建立方法。 2、掌握在程序设计中常用的命令。 3、掌握结构化程序设计的基本结构。 4、掌握分支结构IF…ENDIF, DO CASE… ENDCASE使用方法。 二、实验器材 安装有SQL Server 2000和VF软件的计算机系统 三、实验内容 1、设计程序:从键盘随意输入两个数,输出其中较大的那个数。 2、用两种方法设计程序计算工资税:从键盘输入一个人的工资,计算其应交税金。计算方法如下: 工资 1000 税金为0 1000 工资 2000 税金为5% 2000 工资 3500 税金为10% 3500 工资 5000 税金为15% 5000 工资 税金为20% 如:一个人的工资为3000,其应交税金为: 3000 - 2000 * 0.10 + 2000 - 1000 * 0.05 150 四、实验步骤 1.单击“文件”菜单下的“新建”命令,在“新建”对话框中文件类型选择“程序”,单击“新建文件”按钮,打开程序窗口,在其中编辑程序。 2.编辑完后通过“文件”菜单下的“保存”命令,保存程序。 五、实验结果 1.源程序如下: CLEAR SET TALK OFF INPUT 请输入第1个数: TO nNumber1 INPUT 请输入第2个数: TO nNumber2 IF nNumber1 nNumber2 nNumber1 nNumber2 ENDIF两个数中较大的数为:,nNumber1 RETURN 2、源程序如下: (1)用 IF…ENDIF 语句编程: CLEAR SET TALK OFF INPUT 请输入工资: TO gz IF gz 5000 Taxs gz-5000*0.2+5000-3500*0.15+3500-2000*0.1+2000-1000*0.5 ELSEIF gz 3500 Taxs gz-3500*0.15+3500-2000*0.1+2000-1000*0.5 ELSE IF gz 2000 nShuiJin gz-2000*0.1+2000-1000*0.5 ELSE IF gz 1000 Taxs gz-1000*0.05 ELSE Taxs 0 ENDIF ENDIF ENDIF ENDIF ? 税金为: + STRTaxs,8,2 RETURN (2)用 DO CASE…ENDCASE 编程 CLEAR SET TALK OFF INPUT 请输入工资: TO gz DO CASE CASE gz 1000 Taxs 0 CASE gz 2000 Taxs gz-1000*0.05 CASE gz 3500 Taxs gz-2000*0.1+2000-1000*0.5 CASE gz 5000 Taxs gz-3500*0.15+3500-2000*0.1+2000-1000*0.5 OTHERWISE Taxs gz-5000*0.2+5000-3500*0.15+3500-2000*0.1+2000-1000*0.5 ENDCASE ? 税金为: + STRTaxs,8,2 RETURN 六、实验心得