资源描述
1.已知数据表文献GZ.DBF已按部门有序，其内容如下： 姓名 部门 工资 奖金 实发 陈三 业务科 730 850 张四 经理室 890 890 林五 经理室 630 960 马六 技术科 560 840 江七 技术科 950 1340 按下列规定完毕命令：1、 运用CALCULATE命令求出工资的最小值、最大值和平均值，成果分别放到变量A、B、C中2、 按工资升序建立非构造型复合索引，文献名为GZSY.CDX3、 运用REPLACE命令核算每个人的实发工资4、 将表中部门为技术科的记录删除5、 用浏览窗口显示表中工资为800元（含800元）以上并且部门为经理室的记录1、USE GZCALCULATE MIN(工资),MAX(工资),AVG(工资) TO A,B,C USE （3分）2、USE GZINDEX ON 工资 TAG TGZ OF GZSYUSE （3分）3、USE GZREPLACE ALL 实发 WITH 工资+奖金USE （3分）4、USE GZDELETE FOR 部门=“技术科”PACK （3分）5、USE GZBROWSE FOR 工资=800.AND.部门=“经理室”USE 2、假设有一自由表da.dbf，编程实现逐条显示表中“年龄”字段的不小于40岁（含40岁）的记录，规定每显示一条暂停，并询问顾客“与否继续显示下一条？Y/N”，选“Y”则继续，选“N”则结束程序。（7分）、SET TALK OFFUSE DA （1分）A=“Y” （1分）SCAN FOR 年龄=40 WHILE UPPER（A）=“Y” （1分）DISPLAY （1分）WAIT “与否继续显示下一条？Y/N” TO A （1分）ENDSCAN （1分）USE （1分）SET TALK ON3、设计一种表单样式如图，两个文本框的名字分别为Text1和Text2，“计算级别”命令按钮的名为Cmd1，“退出”命令按钮的名为Cmd2，实现功能为在Text1中输入一种考试成绩，在Text2中显示出此成绩相应的级别，合理的成绩应在0100分，完毕两个命令按钮的代码设计。（8分）Cmd1的代码：N=VAL(THISFORM.TEXT1.VALUE) （1分）DO CASECASE N100.OR.N=90 B=“优秀”CASE N=80 B=“良好”CASE N=70 B=“中”CASE N=60 B=“及格”OTHERWISE B=“不及格” （4分）ENDCASETHISFORM.TEXT2.VALUE=B （1分）THISFORM.REFERSHCmd2的代码：THISFORM.RELEASE 4、已知一表单构造如图，其中下边的按钮是用命令按钮组实现的，按钮组的Name为Cmdgup1，每个按钮的Name分别为Cmd1、Cmd2、Cmd3、Cmd4、Cmd5。下面是Cmdgup1控件的Click事件的部分代码，请将代码完毕。(10分)n= thisform.Cmdgup1.valuedo case case n=1 go topthisform.Cmdgup1.cmd2.enabled=.f.thisform.Cmdgup1.cmd3.enabled=.t.thisform.Cmdgup1.cmd4.enabled=.t.thisform.refresh case n=2if bof() go topthisform.Cmdgup1.cmd2.enabled=.f.else skip 1 thisform.Cmdgup1.cmd3.enabled=.t.thisform.Cmdgup1.cmd4.enabled=.t. if bof()thisform.Cmdgup1.cmd2.enabled=.f. endifendifthisform.refreshcase n=3 if eof() （1分） go bottom （1分）thisform.Cmdgup1.cmd3.enabled=.f. （1分）else skip thisform.Cmdgup1.cmd2.enabled=.t. if eof() （1分）thisform.Cmdgup1.cmd3.enabled=.f. （1分） endifendif thisform.refresh （1分）case n=4 go bottom （1分）thisform.Cmdgup1.cmd3.enabled=.f. （1分）thisform.Cmdgup1.cmd4.enabled=.t. （1分）thisform.refresh （1分）Case n=5Thisform.releaseEndcase5.已知数据表文献DA.DBF，其字段如下：编号 姓名 性别 年龄 职称 工资1、 对表中50岁以上（含50岁）的专家用浏览窗口显示。2、 按照性别字段建立构造型复合索引。3、 将所有人工资涨300元。4、 运用TOTAL命令对该表按照性别进行汇总，成果放达到表DAHJ.DBF中。5、 求年龄的平均值成果放到变量NL中。1、USE DABROWSE FOR 年龄=50.AND.职称=“专家”USE （3分）2、USE DAINDEX ON 性别 TAG TXB USE （3分）3、USE DAREPLACE ALL工资 WITH 工资+300USE （3分）4、USE GZTOTAL ON 性别 TO DAHJUSE （3分）5、USE DAAVERAGE 年龄 TO NLUSE6.假设有一自由表da.dbf，字段构造同第四大题，编程实现从键盘输入一种编号，在表中找到该记录，判断如果为男性显示姓名、性别、年龄，女性则显示其姓名、性别、职称。（8分）SET TALK OFFUSE DA （1分）ACCEPT “请输入编号：” TO BH （1分）LOCATE FOR 编号=BH （1分）IF 性别=“男” （1分） DISPLAY 姓名,性别,年龄 （1分）ELSE （1分） DISPLAY 姓名,性别,职称 （1分）ENDIFUSE （1分）SET TALK ON7、设计一种表单样式如图，三个文本框的名字分别为Text1、Text2和Text3，“拟定”命令按钮的名为Cmd1，“退出”命令按钮的名为Cmd2，实现功能为在Text1中输入一种英文字母构成的字符串，按“拟定”按钮后在Text2中显示此字符串的长度，在Text3中把字母变成大写显示出来，完毕两个命令按钮的代码设计。（10分）Cmd1代码：N=THISFORM.TEXT1.VALUE （2分）A=STR(LEN(N) （2分）B=UPPER(N)THISFORM.TEXT2.VALUE=A （1分）THISFORM.TEXT3.VALUE=B （1分）THISFORM.REFERSHCmd2代码：THISFORM.RELEASE 8、运用过程的措施编程求圆锥的体积（公式为V=r2h,r为底圆半径，h为高）。（7分）SET TALK OFFINPUT “请输入圆锥的高” TO H （1分）INPUT “请输入圆锥的底圆半径” TO R （1分）V=0 DO SUB WITH H,R,S （1分）? “该圆锥的体积为”+STR(V) （1分）PROCEDURE SUB （1分）PARAMETER X,Y,Z （1分）Z=3/4*3.14*R*R*H （1分）RETURN9.已知数据表文献stock.dbf，其字段如下：编号 姓名 基本工资 职务补贴 岗位津贴 水电费 实发工资6、 对表中工资前两项和为元（涉及元）以上的记录取浏览窗口显示。7、 按照工资前三项的和建立非构造型复合索引，文献名为stgz.cdx。8、 根据4项工资值核算所有人的实发工资。9、 运用CALCULATE命令对该表求实发工资的最大值、最小值和平均值，成果放到变量GZMAX、GZMIN、GZAVER中。1、USE stockBROWSE FOR 基本工资+职务补贴=USE （3分）2、USE stockINDEX ON基本工资+职务补贴+岗位津贴TAG TGZ of stgz.cdxUSE （4分）3、USE stockREPLACE ALL 实发工资 WITH 基本工资+职务补贴+岗位津贴-水电费USE （4分）4、USE stockCALCULATE MAX（实发工资），MIN（实发工资），AVG（实发工资） TO GZMAX，GZMIN，GZAVER 1、 USE 2、 假设有一自由表stock.dbf，字段构造同第四大题，编程实现从键盘输入一种编号 ，在表中找到该记录，判断实发工资与否在3000元以上。（6分）SET TALK OFFUSE DA （1分）ACCEPT “请输入编号：” TO BH （1分）LOCATE FOR 编号=BH （1分）IF 实发工资=3000 （1分） C=“该职工实发工资高于3000元” （1分）ELSE C=“该职工实发工资低于3000元” （1分）ENDIF？ CUSE SET TALK ON10、设计一种表单样式如图，文本框的名字为Text1，“显示”命令按钮的名为Cmd1，“关闭”命令按钮的名为Cmd2，实现功能按“显示”按钮后在Text1中显示今天是星期几，完毕两个命令按钮的代码设计。（10分）Cmd1代码：N=DOW(DATE() （1分）DO CASE CASE N=1A=“日”CASE N=2 A=“一”CASE N=3 A=“二”CASE N=4 A=“三”CASE N=5 A=“四”CASE N=6 A=“五” OTHERWISE A=“六” (4分) ENDCASE THISFORM.TEXT1.VALUE=A （2分） THISFORM.REFRESH （1分）Cmd2代码：THISFORM.RELEASE 11、编程显示100到300间的所有素数。（9分）SET TALK OFF FOR A=100 TO 300 （1分）N=INT(SQRT(A)+0.5) （1分）FOR B=3 TO N （1分）IF A%B=0EXIT （2分）ENDIFENDFORIF BN （2分）? A （1分）ENDIFENDFOR 11.目前盘目前目录下有数据库db_stock，其中有数据库表stock.dbf，该数据库表的内容如选择题第2题： 运用FoxPro命令完毕下列规定：6、 运用CALCULATE命令求出股票单价的最小值、最大值和平均值，成果分别放到变量A、B、C中7、 按交易所升序建立非构造型复合唯一索引，文献名为SY.CDX8、 运用合适的命令把所有上海的股票的单价增长0.5元9、 运用SQL语言实现对表中单价超过10元并且交易所为上海的股票代码、股票名称和单价的查询，成果按照单价升序排列10、 将表中交易所为深圳的记录删除。1、OPEN DATABASE db_stockUSE stockCALCULATE MIN(单价),MAX(单价),AVG(单价) TO A,B,C USE （3分）2、OPEN DATABASE db_stock USE stockINDEX ON 交易所 TAG TGZ OF SY.CDXUSE （3分）3、OPEN DATABASE db_stock USE stock REPLACE ALL 单价 WITH 单价+0.5 FOR 交易所=“上海”USE （3分）4、SELECT 股票代码，股票名称，单价FROM stock WHERE 单价10.AND.交易所=“上海” ORDER BY 单价 （3分）5、OPEN DATABASE db_stockUSE stock DELETE FOR 交易所=“深圳”12、假设有一自由表da.dbf，分别运用Do while循环和Scan循环编程实现逐条显示表中“职称”字段为“专家”的记录，规定每显示一条暂停，并询问顾客“与否继续显示下一条？Y/N”，选“Y”则继续，选其他则结束程序。（9分）1、 DO WHILE循环做法：SET TALK OFFUSE DA DO WHILE .NOT.EOF() DISPLAY WAIT “与否继续显示下一条？Y/N” TO AIF UPPER(A)=”Y” SKIP LOOPELSE EXITENDIFENDDOUSE SET TALK ON （5分）SCAN循环做法：SET TALK OFFUSE DA A=“Y” SCAN FOR 职称=“专家” WHILE UPPER（A）=“Y” DISPLAY WAIT “与否继续显示下一条？Y/N” TO A ENDSCAN USE （4分）SET TALK ON13、设计一种表单样式如图，两个文本框的名字分别为Text1和Text2，“查询”命令按钮的名为Cmd1，“退出”命令按钮的名为Cmd2，实现功能为在Text1中输入一种专业代码，在Text2中显示出此代码相应的专业名称，合理的代码和专业名称相应应为01工商管理、02会计学、03金融学、04国际经济与贸易、05市场营销、06信息管理与信息系统、07经济学、08物流管理，完毕两个命令按钮的代码设计。（10分）Cmd1的代码：N=VAL(THISFORM.TEXT1.VALUE) （1分）DO CASECASE N=01 B=“工商管理”CASE N=02 B=“会计学”CASE N=03 B=“金融学”CASE N=04 B=“国际经济与贸易”CASE N=05 B=“市场营销”CASE N=06 B=“信息管理与信息系统”CASE N=07 B=“经济学”CASE N=08 B=“物流管理”OTHERWISE B=“代码不对的” （6分）ENDCASETHISFORM.TEXT2.VALUE=B （1分）THISFORM.REFERSHCmd2的代码：THISFORM.RELEASE 14.已知数据表文献stock.dbf，其字段如下：编号 姓名 性别 年龄 职称 工资10、 对表中男的讲师用浏览窗口显示。11、 按照性别字段建立非构造型唯一复合索引，文献名为stxb.cdx。12、 将所有人工资涨20%。13、 运用TOTAL命令对该表按照性别进行汇总，成果放达到表DAHJ.DBF中。14、 求年龄的平均值成果放到变量NL中。1、USE stockBROWSE FOR 性别=“男”.AND.职称=“讲师”USE （3分）2、USE stockINDEX ON 性别 TAG TXB of stxb.cdx uniqUSE （3分）3、USE stockREPLACE ALL工资 WITH 工资*1.2USE （3分）4、USE stockTOTAL ON 性别 TO DAHJUSE （3分）5、USE stockAVERAGE 年龄 TO NL15.假设有一自由表da.dbf，字段构造同第四大题，编程实现从键盘输入一种姓名 ，在表中找到该记录，判断如果为专家显示姓名、性别、年龄，其他则显示其姓名、性别、职称。（8分）SET TALK OFFUSE DA （1分）ACCEPT “请输入姓名：” TO XM （1分）LOCATE FOR 姓名=XM （1分）IF 职称=“专家” （1分） DISPLAY 姓名,性别,年龄 （1分）ELSE （1分） DISPLAY 姓名,性别,职称 （1分）ENDIFUSE （1分）3、编程求从键盘输入3个互不相等的数，求其最大值和最小值。（7分）SET TALK OFF INPUT “请输入第一种数：” TO A INPUT “请输入第二个数：” TO B INPUT “请输入第三个数：” TO C （2分） IF AB IF BC T=A T=B A=B B=C B=T C=T ENDIF （1分） ENDIF （1分） IF A100.OR.N=90 B=“优秀”CASE N=80 B=“良好”CASE N=70 B=“中”CASE N=60 B=“及格”OTHERWISE B=“不及格” （4分）ENDCASETHISFORM.TEXT2.VALUE=B （1分）THISFORM.REFERSH （1分）Cmd2代码：THISFORM.RELEASE 3、从键盘输入一种正整数，编程求圆锥的体积（公式为V=r2h,r为底圆半径，h为高该数的阶乘。（7分）SET TALK OFFINPUT “请输入一种正整数” TO H （1分）S=1 （1分）FOR V=H TO 1 STEP -1 （2分） S=S*H （2分）ENDFOR? “该数的阶乘为”+STR(S) （1分）RETURN. 1、退出Visual FoxPro6.0的操作措施是是 （d）。 A.从“文献”下拉菜单中选择“退出”选项 B.单击关闭窗口按扭 C. 在命令窗口中输入QUIT口令，然后按回车键 D.以上措施都可以2、在DO WHILEENDDO循环构造中，LOOP命令的作用是 ( B)。 A退出过程，返回程序开始处 B转移到DO WHILE语句行，开始下一种判断和循环 C终结循环，将控制转移到本循环构造ENDDO背面的第一条语句继续执行 D终结程序执行3、在Visual FoxPro中，用于建立或修改命令文献的命令是 ( B )。 AMODIFY FileName BMODIFY COMMAND FileName CMODIFY PROCEDURE FileName D上面B和C都对4、报表设计器中不涉及在基本带区中的有 ( A )。 A标题 B页标头 C页注脚 D细节 5、下列有关视图的论述中，对的的是 ( B ) 。 A只能由自由表创立视图 B只能由数据库表创立视图 C不能由数据库表创立视图 D自由表和数据库表都能创立视图6、有关数据库表和自由表的区别，对的的选项是 ( D )。 A可觉得自由表添加标题和注释，而数据库表不能 B可觉得自由表的字段设立默认值和输入掩码 C不能为数据库表的字段设立默认值和输入掩码 D可觉得数据库表设立默认值、输入掩码、标题和注释 7、下面有关索引的描述对的的是 ( C )。 A建立索引后来，本来的数据库表文献中记录的物理顺序将被变化 B索引与数据库表的数据存储在一种文献中 C创立索引是创立一种指向表文献记录的指针构成的文献 D使用索引并不能加快对表的查询操作8、在下面的Visual FoxPro体现式中，不对的的是 (C )。 A.-05-01 10:10 10 AM-10 B.-05-01-DATE(.) C.-05-01)+DATE() D.-05-01+10009、函数INT(12.865)的值为 ( A )。 A.12 B.13 C.12.9 D.12.8710、有如下程序： INPUT TO A IF A=10 S=0 ENDIF S=1 ?S问：假定从键盘输入的A的值一定是数值型，那么上面程序的执行成果是 (B )。 A0 B1 C由A的值决定 D程序出错1、_WAIT_命令等待顾客从键盘输入一种字符，输入字符后程序继续运营。2、Visual FoxPro是一种构造化程序设计语言，体现了构造化程序设计的基本特性。它的基本构造有_顺序_、_分支_和_循环_。3、在循环的次数已知的状况下，一般使用_FOR ENDFOR_循环语句。4、对于表单中的标签控件，若要使该标签显示指定的文字，应对其_CAPTION_属性进行设立；若要使指定的文字自动适应标签区域的大小，则应将其_AUTISUZE_属性设立为逻辑真值。5、视图可分为_本地视图_和_远程视图_两种。6、在Visual FoxPro6.0中货币数据的宽度固定是_4_。已知数据表文献JS.DBF，其字段如下：编号 姓名 性别 出生日期 职称 工资 年龄15、 显示表中1965年1月1日之前出生的记录。16、 按照职称字段建立构造型复合唯一索引。17、 根据出生日期重新求每个人的年龄，并替代到相应的字段中。18、 运用命令对该表求工资的最高值，成果放达到变量GZ中。19、 求年龄的平均值成果放到变量NL中。1、USE DABROWSE FOR 出生日期0S=S+N%10N=INT(N/10)ENDDO?SSET TALK ON程序运营后输入：则运营成果为：(1) 45 （2分） （2） SET TALK OFFY=YEAR(DATE()M=MONTH(DATE()D=DAY(DATE()?STR(Y,4,0)+”年”+STR(M,2,0)+”月”+STR(D,2,0)+”日”以考试当天为例，写出运营成果：(2)12月05日 2、编程实目前表单上任意输入年月日，单击计算按钮后显示出平年、闰年，几季度，上、中、下旬（如图所示）。计算按钮为command1，退出按钮尾为command2，平年、闰年，几季度，上、中、下旬分别用3个标签label1、label2、label3来显示，请写出command1和command2的程序代码。(10分)闰年计算规则：能被4整除但不能被100整除，或者能被400整除的。Command1代码：（11分）y=VAL(ALLTRIM(thisform.text1.value)IF y%4=0.and.y%1000.or.y%400=0 yy=今年是闰年ELSE yy=今年是平年ENDIF thisform.label1.caption=yym=VAL(ALLTRIM(thisform.text2.value) （4分）DO case CASE m=3 mm=一季度 CASE m=6 mm=二季度 CASE m=9 mm=三季度 CASE m=12 mm=四季度 ENDCASE thisform.label2.caption=mm d=VAL(ALLTRIM(thisform.text3.value) （4分）DO case CASE d=10 dd=上旬 CASE d=3)位数字的数,它等于每个数字的n次幂之和，如153=13+53+33，编程显示所有1000以内的水仙花数。（8分）SET TALK OFFclearFOR a=0 TO 9 （2分） FOR b=0 TO 9 （2分） FOR c=1 TO 9 （2分） IF a3+b3+c3=a+10*b+100*c （2分） ?a+10*b+100*c ENDIF ENDFOR ENDFORENDFORSET TALK ON1、数据库 DB，数据库系统 DBS，数据库管理系统 DBMS 三者之间的关系是（A）。ADBS 涉及 DB 和 DBMSBDBMS 涉及 DB 和 DBSCDB 涉及 DBS 和 DBMSDDBS 就是 DB，也就是 DBMS. 2、在下面4个文献中，哪个是查询文献(C) ACX.PRG BCX.BAK CCX.QPR DCX.PIX3、在DO WHILE.ENDDO循环构造中，EXIT命令的作用是(C )。 A） 退出过程，返回程序开始处 B） 转移到DOWHILE语句行，开始下一种判断和循环 C） 终结循环，将控制转移到本循环构造ENDDO背面的第一条语句继续执行 D） 终结程序执行 4、在Visual FoxPro中，相似核心字的记录只取一条记录的索引是( C )。 A）主索引B）一般索引 C）惟一索引D）排序索引5、使用命令DECLARE mm(3，9)定义的数组，涉及的数组元素(下标变量)的个数为( B )。 A)3个 B)27个 C)9个 D)12个6、查询的默认输出形式是(D)。A.数据表 B.图形C.报表 D.浏览7、Visual FoxPro DBMS 基于的数据模型是(B )。 A）层次型B）关系型C）网状型D）混合型8、有关数据库表和自由表的区别，对的的选项是(D )。 A可觉得自由表添加标题和注释，而数据库表不能 B可觉得自由表的字段设立默认值和输入掩码 C不能为数据库表的字段设立默认值和输入掩码 D可觉得数据库表设立默认值、输入掩码、标题和注释 9、在下面的Visual FoxPro体现式中，不对的的是(C)。 A.-05-01 10:10 10 AM-10 B.-05-01-DATE() C.-05-01)+DATE() D.-05-01+100010、有如下程序： INPUT TO X IF X=0 S=100 ENDIF S=0 ?S问：假定从键盘输入的A的值一定是数值型，那么上面程序的执行成果是(A )。 A0 B1 C由A的值决定 D程序出错1、_ACCEPT_命令在程序中只接受字符型数据。2、Visual FoxPro提供了两条实现分支构造的语句：_DO_语句和_CASE ENDCASE_语句，分别称为简朴分支语句和多分支语句。3、Visual FoxPro 6.0中的常用数据类型有_11_种，其中能用于常量和变量的有_6_种，仅用于表定义的有_5_种。4、Visual FoxPro
展开阅读全文