发布时间 : 星期二 文章天津科技大学数据库程序设计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