天津科技大学数据库程序设计vf试题

1.先用赋值语句分别为变量X、Y、Z赋初值为200、300、400，然后要求输出：

①[(X-2Y)/(2-Z)]*Y ?((X-2*Y)/(2-Z))*Y ②Y>100或Y<0 ?Y>100 or Y<0 ③50

2.按照以下表结构，建立三个表。（职工，商品，销售）书P90 APPEND追加(填具体的)、、BROWSE查看

3.统计职工表的职工总人数以及男、女职工的人数。（89页2.29） USE 职工

COUNT TO ZRS

__COUNT__ FOR 性别=\男__\COUNT FOR 性别=\女\

?\总人数=\男职工人数=\,1),; \女职工人数=\ 复制（已运行）

USE 职工张 BROWSE LAST COUNT TO zrs

COUNT FOR 性别=\男\TO mzg COUNT FOR 性别=\女\TO wzg

?\总人数\STR(zrs,2),\男职工人数=\STR(mzg,1),\女职工人数=\STR(wzg,1)

4. 编写程序，修改并显示指定职工的基本工资。(10页，4.1)（？？？） NOTE 修改并显示指定职工的基本工资 SET TALK OFF

CLEAR USE 职工

ACCEPT \请输入职工号:\ZGH___ LOCATE FOR 职工号= ZGH IF !EOF()

REPLACE 基本工资 WITH 基本工资+_200___ ?职工号,姓名,__基本工资__ _ELSE___

?\没有找到!\__ENDIF__ USE

SET TALK ON

复制

NOTE 修改并显示指定职工的基本工资 SET TALK OFF

CLEAR USE 职工张

ACCEPT \请输入职工号:\ZGH LOCATE FOR 职工号= ZGH IF !EOF()

REPLACE 基本工资 WITH 基本工资+200 ?职工号,姓名, 基本工资 ELSE

?\没有找到!\ENDIF USE

SET TALK ON

5．编写程序，火车托运行李，根据行李的重量计算托运费。收费标准假设是0.60元/千克。由用户输入货物的重量，请计算并输出所需要的托运费。 SET TALK OFF CLEAR

INPUT \请输入货物的重量(Kg)：\ TO W F=_W*0.60_______

? ?\货物重量\千克需要的托运费为：\+ALLTRIM(STR(_F___,19,2))+\元\SET TALK ON

复制

SET TALK OFF CLEAR

INPUT \请输入货物的重量(Kg)：\ TO W F=W*0.60

?\货物重量\千克需要的托运费为:\+ALLTRIM(STR(F,19,2))+\元\SET TALK ON

6.编写程序，求“职工”表中指定部门（如直销、零售）全体职工的基本工资总额。 NOTE 求指部门基本工资总额 SET TALK OFF CLEAR USE 职工

ACCEPT \请输入指定部门：\ TO BM

SUM 基本工资 TO JBGZ FOR 部门=__BM__

? __BM__+\部全体职工的基本工资为：\JBGZ__,8,2) USE

SET TALK ON

复制

NOTE 求指部门基本工资总额SET TALK OFFCLEARUSE 职工ACCEPT \请输入指定部门：\基本工资 TO JBGZ FOR 部门=BM? BM+\部全体职工的基本工资为：\

7.编写程序，如果在例题5中，当重量不超过50kg时，按每千克0.60元收费；当重量超过50kg，超出50kg的部分按每千克0.90元收费。试编写程序计算托运费。 SET TALK OFF CLEAR

INPUT \请输入货物的重量(Kg)：\ TO W IF W_<=50___ F=_W*0.60___ __ELSE_ F=__50*0.60+(W-50)*0.90__ ENDIF

?“货物重量”+ALLTRIM(STR(__W__,19,2))+“ 千克需要的托运费为：”； +ALLTRIM(STR(__F__,19,2))+\元\SET TALK ON

注意修改符号什么的

复制

SET TALK OFF CLEAR

INPUT \请输入货物的重量(Kg)：\TO W IF W<=50

F=W*0.60

F=50*0.60+(W-50)*0.90 ELSE ENDIF

?\货物重量\ALLTRIM(STR(W,19,2))+\千克需要的托运费为:\+ALLTRIM(STR(F,19,2))+\元\SET TALK ON

8.编写程序：求x + x2 + x3 + x4 + + xn的值。n，x从键盘输入。FOR--- ENDFOR方法。 SET TALK OFF CLEAR

INPUT \INPUT \A=1 S=0

FOR I=1 TO N A=__A*X__ S=___S+A_ ENDFOR ?\_N__ SET TALK ON

复制

SET TALK OFF CLEAR

INPUT \TO N INPUT \TO X A=1 S=0

FOR I=1 TO N

A=A*X S=S+A

ENDFOR ?\SET TALK ON

9. 编写程序：显示输出正整数M（从键盘输入）内的偶数及偶数和。 SET TALK OFF CLEAR

INPUT \S=0

I=1

DO WHILE I<=M IF INT(I/2)= __I/2__ ?I,\是偶数\ S=__S+I__ ENDIF I=_I+1___ ENDDO

?\偶数和为：\SET TALK ON

复制

SET TALK OFF CLEAR

INPUT \TO M S=0 I=1

DO WHILE I<=M

IF INT(I/2)= I/2

?I,\是偶数\S=S+I

ENDIF I=I+1

ENDDO

?\偶数和为：\SET TALK ON

10. 编写程序，显示输出如图4-34所示的图形。

SET TALK OFF CLEAR

FOR i=5 TO 1 STEP -1 ?SPACE(6-i)

FOR j=1 TO 2*i-1 ??\ __ENDFOR__ ENDFOR____ SET TALK ON

复制

SET TALK OFF CLEAR

FOR i=5 TO 1 STEP -1 ?SPACE(6-i) FOR j=1 TO 2*i-1 ??\ ENDFOR ENDFOR SET TALK ON

11. 编写程序，要求从键盘输入职工工作业绩考评分数（０分～100分），将其转换成对应的中文输出（分为五档：≥90分为优秀，80～89分为良好，70～79分为中等，60～69分为合格，60以下为不合格）。 SET TALK OFF CLEAR

INPUT \请输入数据x=\ X DO CASE CASE ____ Y='不合格' CASE ____ Y='合格' CASE ____ Y='中等' CASE ____ Y='良好' CASE ____

Y='优秀' ____

?\考评分数：\为：\SET TALK ON

复制

SET TALK OFF CLEAR

INPUT \请输入数据x=\TO X DO CASE

CASE X<60 Y='不合格' CASE X<=69 and X >=60

Y='合格'

CASE X<=79 and X >=70 Y='中等' CASE X<=89 and X >=80

Y='良好' CASE X>=90 Y='优秀' ENDCASE

?\考评分数：\为：\SET TALK ON

12. 要求用循环语句编写程序，显示输出“职工”表中基本工资大于2000元的姓名、部门、性别、基本工资等数据。

SET TALK OFF CLEAR USE zg1

SCAN FOR__基本工资>2000__ ?姓名,部门,性别,__基本工资_ _ENDSCAN___ USE

SET TALK ON

复制

SET TALK OFF CLEAR USE 职工张

SCAN FOR 基本工资>2000 AND 性别=\女\ USE

SET TALK ON

? 姓名,部门,性别,基本工资 ENDSCAN

本文来源：https://www.bwwdw.com/article/we0p.html