编程题练习及参考答案-一定要看

这是以往的考试题

第一套

编程题参考答案

1. 请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入长方形的长L和宽W的值，计算长方形的面积S并输出，最后按原文件名存盘。

program1.prg

CLEAR

INPUT “请输入长方形的长：” TO L

INPUT “请输入长方形的宽：” TO W

S=L*W

?”长方形的面积S=”,S

2.请打开D盘试题文件夹下的program2.prg文件，编一个计费程序，按托运规定，行李不超过50千克时，运费为每千克0.15元，如超过50千克，其中50千克，运费按每千克0.15元，超过50千克部分的运费为每千克0.22元，输入行李重量，显示托运费。

program2.prg

Clear

Input “请输入行李重量” to x

If x<=50

Y=x*0.15

Else

Y=50*0.15+(x-50)*0.22

Endif

? “托运费=”,y

3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 rcda.dbf

表中，统计姓“刘”的人数并输出。最后按原文件名存盘。

program3.prg

clear

use rcda

n=0

scan all for left(姓名,2)=“刘”

n=n+1

endscan

?n

use

4.请打开D盘试题文件夹下的表单文件Program

5.scx，要求在文本框Text1中输入某一年份，单击“计算”命令按钮则判断该年是否闰年，如果是闰年，则在文本框Text2中显示“是闰年！”，如果不是闰年，则在文本框Text2中显示“不是闰年！”；单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。判断某一年份是否闰年的方法如下：(1)年份能被4整除，但不能被100整除；(2)年份能被400整除；符合上述二个条件之一者即为闰年，如1996年是闰年。

“计算”按钮click事件：

nf=thisform.text1.value

if mod(nf,4)=0.and.mod(nf,100)<>0.or.mod(nf,400)=0

y="是润年！"

else

y="不是润年！"

endif

Thisform.text2.value=y

Thisform.refresh

“退出”按钮click事件：

thisform.release

第二套

编程题参考答案

??? 1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入梯形的上底A、下底B和高H的值，计算梯形的面积S并输出，最后按原文件名存盘。

program1.prg

CLEAR

INPUT “请输入梯形的上底：” TO A

INPUT “请输入梯形的下底：” TO B

INPUT “请输入梯形的高：” TO H

S=（A+B）*H/2

?”梯形的面积S=”,S

2.请打开D盘试题文件夹下的program2.prg文件，按下列要求完成以下程序，要求根据某人的收入计算他应交的个人所得税，方法如下：如果收入在1600元以内，则不用计税，显示“未达到交税标准”；如果收入超过1600元，则超过部分应交纳5%的个人所得税，计算并显示应交税额。最后按原文件名存盘。

program2.prg

Clear

Inpit “请输入个人输入” to x

If x<=1600

? “未达到交税标准”

Else

Y=(x-1600)*0.05

? “应交税额=”,y

endif

3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 rcda.dbf 表中，统计“出生日期”在1980年以前出生的人数并输出。最后按原文件名存盘。

program3.prg

clear

use rcda

n=0

scan all for year(出生日期)<1980

n=n+1

endscan

?n

use

4.请打开D盘试题文件夹下的表单文件Program

5.scx，要求在文本框Text1中输入一正整数N，单击“计算”命令按钮则计算N以内的所有奇数的乘积，并将结果显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。

“计算”按钮click事件：

N=thisform.text1.value

S=1

For I=1 to N step 2

S=S*I

Endfor

Thisform.text2.value=S

“退出”按钮click事件：

thisform.release

第三套

编程题参考答案

??? 1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入长方体长L、宽W、高H，求长方体的表面积S并输出计算结果，最后按原文件名存盘。

program1.prg

CLEAR

INPUT “请输入长方体的长：” TO L

INPUT “请输入长方体的宽：” TO W

INPUT “请输入长方体的高：” TO H

S=2*（L*W+L*H+W*H）

? 长方体的表面积S=”,S

2.请打开D盘试题文件夹下的program2.prg文件，按要求完成以下程序：某航空公司规定，如果订票数大于或等于20张，则票价优惠15%；如果订票数大于或等于10张，则票价优惠10%，不足10张没有优惠。编写程序，输入票价及订票数后，计算并显示出所需金额。最后按原文件名存盘。

progra m2.prg

CLEAR

INPUT “请输入票价” TO N

INPUT “请输入订票数” TO X

DO CASE

CASE X>=20

Y=N*X*0.85

CASE X>=10 AND X<20

Y=N*X*0.9

CASE X<10

Y=N*X

ENDCASE

? “金额Y=”,Y

3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 rcda.dbf

表中，统计性别为“女”且工资现状在2000元以上的人数并输出。最后按原文件名存盘。

program3.prg

clear

use rcda

n=0

scan all for 性别=“女” and 工资现状>2000

n=n+1

endscan

?n

use

4.请打开D盘试题文件夹下的表单文件Program

5.scx，要求在文本框Text1中输入一正整数N，单击“计算”命令按钮则计算N以内的所有6的倍数和，并将结果显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。

“计算”按钮click事件：

N=thisform.text1.value

S=0

For I=6 to N step 6

S=S+I

Endfor

Thisform.text2.value=S

Thisform.refresh

“退出”按钮click事件：

thisform.release

第四套

编程题参考答案

??? 1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入圆柱体的半径R和高H，求圆柱体的体积V并输出计算结果，最后按原文件名存盘。

program1.prg

CLEAR

INPUT “请输入圆柱体的半径：” TO R

INPUT “请输入圆柱体的高：” TO H

V=3.14159*R^2*H

?”圆柱体的体积V=”,V

2.请打开D盘试题文件夹下的program2.prg文件，按要求编写程序：输入考试成绩x，输出对应的评价等级，等级标准如下：

合格：60≤x≤100

不合格：0≤x<60

输入有误：其他字符。

program2.prg

CLEAR

INPUT “请输入的考试成绩“ TO X

DO CASE

CASE X>=0 AND X<60

? “不合格”

CASE X>=60 AND X<=100

? “合格”

OTHERWISE

? “输入有误！”

ENDCASE

3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 xs.dbf表中，统计专业为“计算机”且性别为“男”的人数并输出。最后按原文件名存盘。

program3.prg

clear

use xs

n=0

scan all for 专业=“计算机” and 性别=“男”

n=n+1

endscan

?n

use

4.请打开D盘试题文件夹下的表单文件Program

5.scx，要求在文本框Text1中输入某一职工的工资，单击“计算”命令按钮则计算该职工的实际收入，并将收入显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。（职工实际收入的方法如下：职工收入=职工工资-个人所得税。当职工收入在1500元或以下时，不用交个人所得税；超过1500元的，按工资总额的3%的比例交纳个人所得交税）。

“计算”按钮click事件：

gz=thisform.text1.value

if gz>1500

r=gz*0.97

else

r=gz

endif

Thisform.text2.value=r

Thisform.refresh

“退出”按钮click事件：

thisform.release

第五套

编程题参考答案

??? 1.打开的D盘试题文件夹下的 program1.prg 文件，按以下要求完成程序：从键盘输入任意一个字符串，求出它的长度并输出。(提示：计算字符长度的函数名为len)

program1.prg

Clear

Accept “请输入一个字符串” to x

Y=len(x)

? “字符串长度为”,y

2.请打开D盘试题文件夹下的program2.prg文件，按要求编写程序：求分段函数的值。

10 x<1

y= x2+1 1≤x≤10

2x+5 x>10

program2.prg

CLEAR

INPUT “请输入X的值” TO X

DO CASE

CASE X<1

Y=10

CASE X>=1 AND X<=10

Y=x^2+1

CASE X>10

Y=2*X+5

ENDCASE

? “Y=”,Y

3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：计算N以内所

有偶数平方的和(S=22+42+62…)并输出，其中N为任一正整数。最后按原文件名存盘。

program3.prg

clear

input “请输入n的值：” to n

s=0

for i=2 to n step 2

s=s+i^2

endfor

?s

4.请打开D盘试题文件夹下的表单文件program

5.scx，按要求完成以下题目：当在Text1文本框中输入编号时，如果该记录存在，单击查询按钮时，表单显示的记录信息会相应的更新，如果该记录不存在，单击查询按钮时，用Messsagebox函数提示“查无此人”；单击退出按钮时，退出表单。请给查询按钮和退出按钮添加相应的命令代码。

“查询”按钮click事件：

a=alltrim(ThisForm.Text1.value)

locate all for 编号=a

if eof()

messagebox("查无此人")

endif

thisform.refresh

“退出”按钮click事件：

thisform.release

第六套

编程题参考答案

??? 1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：要求提示输入变量X的值，然后计算函数Y=5X4+4X3+2X-10的值并输出。

program1.prg

Clear

Input “请输入X的值” to x

Y=5*X^4+4*X^3+2*X-10

? “y=”,y

2.请打开D盘试题文件夹下的 program2.prg 文件，编写一个程序，要求：从键盘输入任意三个数，让它们代表三条线段的长度，如果任意二条线段之和大于第三线段则显示“可以构成一个三角形”；否则显示“不能构成一个三角形”。最后按原文件名存盘。

program2.prg

Clear

Input “请输入第一条边长” to a

Input “请输入第二条边长” to b

Input “请输入第三条边长” to c

If a+b>c and b+c>a and a+c>b

? “可以构成一个三角形”

Else

? “不能构成一个三角形”

endif

3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：计算N以内所有奇数平方的和(S=12+32+52…)并输出，其中N为任一正整数。最后按原文件名存盘。

program3.prg

clear

input “请输入n的值：” to n

s=0

for i=1 to n step 2

s=s+i^2

endfor

?s

4.打开D盘试题文件夹下的表单文件program

5.scx，要求在文本框Text1中输入邮件重量，单击“计算”命令按钮则计算邮件的邮资费，并将邮件的邮资费显示在文本框Text2中，单击“退出”命令按钮，则关闭表单。请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。（“A类邮件”计费规定：当邮件重量小于等于100克时，邮资费为每克1元；当邮件重量超过100克时，其中100克，按每克1元计费，超过100克的重量，按每克2元计费）。

“计算”按钮click事件：

zh=thisform.text1.value

if zh>100

yf=100*1+(zh-100)*2

else

yf=zh*1

endif

Thisform.text2.value=yf

Thisform.refresh

“退出”按钮click事件：

thisform.release

第七套

1、输入三角形的三边，求三角形的面积

clear

input "请输入三角形的边长a=" to a

input "请输入三角形的边长b=" to b

input "请输入三角形的边长c=" to c

l=(a+b+c)/2

s=sqrt(l*(l-a)*(l-b)*(l-c))

? "三角形的面积为S=",s

2、查找准考证号为30130101的记录，如果找到，把记录的“数学”字段减5分，否则用messagebox函数输出“查无此人”的信息。

clear

use ks.dbf excl

loca all for 准考证号="30130101"

if .not. eof()

repl 数学 with 数学-5

disp

else

messagebox("查无此人！")

endif

use

3、（此题没题目，只有答案，大家看答案猜题目）

添加6个控件对象并分别设置属性

“开始计算”按钮click事件：

N=thisform.text1.value

S=0

For I=1 to N

S=S+1/(i*i)

Endfor

Thisform.text2.value=S

“退出”按钮click事件：

thisform.release

第八套

1、输入字符串，求字符串长度。

clear

accept "请输入一个字符串：" to x

y=right(x,1)

z=len(x)

? "这个字符串的最后一个字符为：",y

? "这个字符串的长度为：",z

2、（此题是用多向分支解决数学问题。此题没题目，只有答案，大家看答案猜题目）

clear

input "x=" to x

do case

case x>=100

y=-4*x^2+3

case x>0

y=-123

case x=0

y=0

case x>-100

y=123

case x<=-100

y=9*x^3+7*x-9

endcase

? "y=",y

3、要求会：

1）建数据库并添加表到数据库

2）修改数据表的结构

3）输入数据表的数据

4）设置表中某个字段的有效性规则

设置字段的有效性信息

此题是相关实验做过的，请注意。

4、（此题没题目，只有答案，大家看答案猜题目）

添加5个控件对象并分别设置属性

“浏览工资表”按钮click事件：

use 工资.dbf excl

browse

use

“浏览雇员表”按钮click事件：

use 雇员.dbf excl

browse

use

“求出生日期为六十年代的人数”按钮click事件：

use 人才档案.dbf excl

S=0

scan

if 出生日期<{^1969-12-31} .and. 出生日期>{^1960-01-01} s=s+1

endif

endscan

Thisform.text1.value=S

Use

“退出”按钮click事件：

thisform.release