实验六 程序设计基础一（参考答案）

实验六 程序设计基础一（顺序与分支结构）

二、实验内容

1、VFP程序文件的建立、修改、保存、运行和调试；

2、设计程序：从键盘随意输入两个数，输出其中较大的那个数。

3、设计程序计算工资税：从键盘输入一个人的工资，计算其应交税金。计算方法如下：

工资 <= 1000 税金为0 1000 < 工资 <= 2000 税金为5% 2000 < 工资 <= 3500 税金为10% 3500 < 工资 <= 5000 税金为15% 5000 < 工资 税金为20%

如：一个人的工资为3000，其应交税金为：

(3000 - 2000) * 0.10 + (2000 - 1000) * 0.05 = 150 三、实验步骤

1、VFP程序文件的建立、修改、保存、运行和调试

“文件”菜单?新建，在“新建”对话框中文件类型选择“程序”，单击“新建文件”按钮，打开程序窗口，在其中编辑如下程序。编辑完后通过“文件”菜单下的“保存”项，保存程序为MyPrg.prg。单击工具栏中的！按钮或“程序”菜单下的“执行程序”项运行程序。如有错误，则在程序窗口修改程序，到运行无错误为止。 命令：MODIFY COMMAND MyPrg.prg &&编辑程序

DO MyPrg.prg &&运行程序 程序内容如下：

* MyPrg.prg CLEAR ALL CLOSE ALL

USE D:\\XSGL\\XSXX

BROWSE FIELDS 学号,姓名,性别，出生日期，少数民族； = MESSAGEBOX(\你看到运行结果了吗？\CLEAR ALL CLOSE ALL RETURN

2、源程序如下：

CLEAR

SET TALK OFF

INPUT \请输入第1个数:\INPUT \请输入第2个数:\IF nNumber1 < nNumber2 nNumber1 = nNumber2 ENDIF

? \两个数中较大的数为:\RETURN

3、源程序如下：

（1）用 IF?ENDIF 语句编程:

CLEAR

SET TALK OFF

INPUT \请输入工资：\IF gz > 5000

Taxs = (gz-5000)*0.2+(5000-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5 ELSE

IF gz > 3500

Taxs = (gz-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5 ELSE

IF gz > 2000

Taxs = (gz-2000)*0.1+(2000-1000)*0.5 ELSE

IF gz > 1000

Taxs = (gz-1000)*0.05 ELSE

Taxs = 0 ENDIF ENDIF ENDIF ENDIF ?\

?\税金为：\RETURN

（2）用 DO CASE?ENDCASE 编程

CLEAR

SET TALK OFF

INPUT \请输入工资：\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 ?\

?\税金为：\RETURN