VFP程序设计实践教程习题部分参考答案1

VFP程序设计实践 教程 人力资源管理pdf成真迷上我教程下载西门子数控教程protel99se入门教程fi6130z安装使用教程 习题部分参考答案1 2.1.2 习题 一、选择题 1.(A) 2.(C) 3.(A) 4.(B) 5.(D) 6.(D) 7.(C) 8.(C) 9.(C) 10.(A) 11.( C) 12((C) 13( (B ) 14((A ) 15((A) 16((A) 17((D) 18((A) 19((C )20((C )21((D) 22((B) 23((C) 24((C) 25((D) 26((B) 27((A) 28((D) 29((A) 30((D )31((A ) 32((C ) 33((D) 34((B) 35((C) 36((D )37((D )38((D ) 二、填空题 1( 重复值 2( 一对多 和 多对多 3( 数据 、 硬件 、 软件 和 用户 4( 记录 , 字段 5( 层次 、 网状 和 关系 6( 选择 7( 人工管理 、 文件系统管理 、 数据库管理 8( 关系 9( 元组 ， 属性 10( 关系 11( 投影 12( 二维表 13( 改变 14( 数据操纵 15( 数据结构化 ， 关系 ， 文件 16( 数据库技术 与 面向对象程序设计 17( 工具 ， 选项 18( 菜单 、 工具栏 、 命令 和 程序 19( .PJX 20( 文档 21( 从项目中移除 ， 删除 三、判断题(正确打?，错误打×) 1( (× )2(( × )3(( × )4(( × )5(( × ) 2.2.2 习题 一、单项选择题 1( ( B )2( ( B )3(( C )4(( B )5(( D )6(( D )7(( D) 8(( C)9(( C)10((D )11.( B )12(( C )13(( C )14.( B ) 15.( B ) 16(( D )17(( C )18(( B)19(( C)20((A ) 21((B )22(( D)23(( B)24(( D)25(( A)26((D )27(( C)28(( B) 29((B )30((B )31(( D)32((D )33((D )34(( B)35((A )36((B ) 37((D )38((B )39(( C)40(( C)41((B )42((A )43(( D)44((A ) 45(( C)46(( B)47(( B)48((A )49(( B)50((C )51(( D)52(( C) 53(( B)54((D )55(( C)56((D )57( ( C)58(( B)59(( C)60((C ) 61(( A)62((A )63((D )64(( A)65(( D )66(( D ) 67(( B ) 68(( B)69(( D )70(( D)71( ( C )72((A )73(( B)74(( D)75((D ) 76(( D)77(( A)78(( A )79((A )80(( C )81(( B )82(( D)83((C ) 84((C )85(( A)86(( B)87(( B)88(( D)89(( C)90(( C)91(( D ) 92(( A)93(( A )94(( B )95(( C )96(( B )97(( B )98(( B ) 99(( B )100(( B )101(( D )102(( C )103.( B )104(( D ) 105(( A )106(( C )107(( D )108(( C )109(( A )110(( B ) 111(( A )112(( D )113(( C )114. ( B ) 二、判断题(正确打?，错误打×) 1(( × )2( ( × )3((? )4(( × )5(( × )6((? ) 二、填空题 1( .F. 2( 40 3( -1 和 -2 4( 逻辑运算符 5(命令,VAL(SUBSTR("668899"，5，2))+1的执行结果是 100 。 6( D 7( “456123789” 8( T=Y+"年"+M+"月"+D+"日"9( -8 10( 函数 11( STORE 学分 TO M.学分 12( 8B 、 8B 、 1B 、 8B 和 8B 13( A!=B 、 A#B 和 A<>B 14( 1 ， 26 15( 日期型 、逻辑型、 日期时间型 16( 10 ?len('关系'+ltrim(space(6)+'数据库')) 17( 6 18( 6 19( 123.00 20( 5.14 21( .F. 22( 1 23( 字段变量 24( TO PRINTER 25( C 26( C 、 N 、 D 、 L 、 Y 和 T 27( SET EXACT ON 28( ROUND(45.39748,3) 29( 2^20 和 2**20 30( -231.68 和 -231 31( SET CENTURY ON 32( 500.8965 33( 存储于内存变量中的值的类型 34( STORE 0 TO DG或DG=0 35( 38 和 .F. 36( STORE 0 TO X,Y 37( .T. 38( D 和 C 39( VAL() 和 STR() 40( .F. 41( 年龄>=20 AND 年龄<=60 42( 是 和 是 43( "??AB??CD" 和 "AB??CD" 44( "奔腾586个人计算机" 和 "奔腾586个人计算机" 45( MOD(INT(586/10)，10) 。 46( .T. 和 .T. 47( .F. 48( 2 和 “8886” 49( ? "A+B="+STR(A+B,2) 50( 5 和 -6 51( .T. ， .F. 52( 15 53( D 和 C 54( 1 ， .F. 55( (1) .T. (2) .T. (3) .T. (4) .T. 56((1) old<15 AND hight>=1.8 (2) old<=45 AND AI="副教授" OR old<=35 AND AI="讲师" (3) math>85 AND physic>85 AND english>85 OR math+physic+english>270 57( .T. ; .T. ; .T. ; 353.00 ; .F. ; .F. 58( Y ; 266.35 ; "中国------北京" 59( 10/11/06 ; Sunday ; D ; 3 ; C ; 8 ; 8 ; 20 ; 48 ; 60 ; 2046 60( .F. ; .F. ; 9 ; “院 软件 94计算机学院软件” 。 61( SET DATE TO YMD;SET CENTURY ON;?DATE();?CDOW(DATE());?TIME() 62((1)left(a,7)+stuff(subs(a,8,6),1,6,"FoxPro")+subs(a,14,8)+stuff(subs(a,22,8),1,8,"D ataBase")+subs(a,30) (2)MOD(LEN(A),5) (3) REPLICATE("-",3)+A+ REPLICATE("-",3) (4)STUFF(A,8,1, chr(ASC(SUBSTR(A,8,1))-1)) 63( _____208520.45____________64( _____255____， ___127_____ 65( ___下划线____66( ____ABIJLM___ 67( ____22_____, ___14____ 68( _____A*B**2+E^y_________。 2.3.2 习题 一、选择题 1(( D)2(( B)3(( B)4(( A)5(( C)6(( A)7(( B )8(( D )9. ( B ) 10. ( C )11. ( A )12. ( A )13. ( B )14. ( A )15(( A )16. ( A )17. ( C ) 18( ( D )19(( D )20(( B )21(( A )22(( D )23(( B )24(( C)25(( B ) 26( ( B )27( ( D )28( ( C )29( ( B )30( ( A )31( ( C ) 32( ( D ) 33( ( D )34( ( B )35( ( D )36( ( B )37( ( D )38( ( B )39( ( A ) 40( ( B )41( ( C )42( ( B )43( ( B )44(( C )45(( A)46( ( C )47( ( C ) 48( ( B )49( ( B )50( ( A )51( ( D )52( ( A )53( ( B )54( ( A )55( ( B ) 56( ( C )57(( D )58( ( D )59( ( B )60( ( C )61( ( C ) 62( ( C ) 63( ( C )64( ( D )65( ( B )66( ( C )67( ( C )68( ( B )69( ( D ) 70( ( D )71( ( B )72( ( A )73( ( A )74( ( D )75( ( C )76( ( C ) 77( ( A )78( ( C )79( ( B )80( ( B )81( ( D )82( ( A )83( ( B ) 84( ( B )85( ( C )86( ( B )87(( A )88((B )89( ( C )90(( C ) 91( ( A )92( ( A )93( ( A )94( ( A )95( ( A )96( ( D )97( ( A ) 98( ( A )99( ( B )100( ( C )101( ( B )102( ( B )103. ( B ) 104. ( D )105.( D );( D )106((D )107. ( D )108. ( B )109( ( A ) 110( ( B )111( ( B )112( ( D )113( ( D )114(( D )115(( B ) 116(( C )117(( D )118.( B )119(( D )120(( D )121(( B ) 122(( C )123(( C )124((D )125(( B )126(( B )127(( C ) 128(( C )129(( A )130.( D ) 二、填空题 1( 10 2( SCATTER 3( 字段名 、 字段类型 、 宽度 和 小数位数 4( 字母、汉字 ， 10 5( 32767 6( 立即输入 和 追加输入 7( LIST FOR 性别="男" 和 DISP FOR 性别="男" 8( DELETE NEXT 4 9. _ 自由表 ____10. _ REMOVE ____11. ___254___ 12. __.CDX___13. __字段____ 14. ___表__15. INSERT BEFORE 16( __多对多___ 17. __MODIFY DATABASE____18. ____BROWSE____19. ___DELETE__20. __修改__ 21. ___双击__22( ____文件结束____23( 物理 ， 逻辑 24(__一___ 25( ___SEEK___26( __父表___， __子表__ 27( __主索引__、__候选索引__、_惟一索引__和__普通索引_ 28( LOCATE 29( ___2号工作区____30( __文件结束__ 31( ___LIST NEXT 5_____， __GO 13____， LIST NEXT 4__ 32( _LIST FOR YEAR(进馆日期)>=2000__33( __5__ 34((1) __一车间 2230.00 600.00______(2) __890_____ (3) __1001 程云____,____1400______,___唐尊_____ (4) _____840__________ 35( ?2 , ?.T. , ?16 , ?.T. , ?.F. , ?.F. , ?.T. , ?1 36( ?1 , ?8 , ?1 , ?9 , ?3 , ?4 , ?1 , ?7 , ?1 , ?7 37( _职称代码___,___4______38( ____4_____， __1____ 39( SET RELATION TO 编号 INTO B 40( ____B.部门代码______,____ZJ/部门人数_ 41( 学号 , INTO A , 课程号 INTO C 42( _1 2 4 5 43( 6 7 8 9 44( ____3______45( 8 8 1 46( __99 100__ 47( ___ 3 ___48( 3 副教授 2.4.2 习题 一、选择题 1.( D )2.( D )3.( D )4.( B )5.( A )6.( C )7.( D )8.(D ) 9.( A )10.(A )11.(B )12.(A )13.( B)14.(A )15.(C ) 16.(D )17.(A )18.(A )19.(B )20.(C )21.(B )22.(C ) 23((D )24((C )25(( D )26(( D )27((C)28((D )29((C)30((A ) 31((D ) 32(( D )33((B )34((A )35(( B )36((B )37(( C ) 38((B )39((D )40((A )41((A )42((D )43(( B )44.(B )45((A ) 46((B )47.(B )48((B )49.(B ) 二、填空题 1( 可以 2( 本地视图 、 远程视图 3( 不能 4( 本地视图 5( 打开 6( 表 ， 查询 7( 联接 8( 条件 9( CREATE VIEW 10( INTO CURSOR 11( SUM 、 AVG 12( SELECT , FROM , WHERE 13( ON , SELECT , WHERE 14( 条件 , 顺序 , 分组信息 15( 浏览窗口 16( ALTER TABLE 17( 成绩=60 OR 成绩=100 18( WHERE 工资>100019( ="高等教育出版社" OR _出版单位="科学出版社"______ 20( AVG(单价) ， COUNT(*) , GROUP BY 21( 借阅证号 , HAVING 三、操作题 1)SELECT 货物，SUM(数量) FROM 订购; 1.( WHERE 订购日期 BETWEEN {^2005-08-01}AND{^2005-08-31}; GROUP BY 货物 (2) SELECT 客户ID，姓名，城市 FROM 客户; WHERE 客户ID IN ( SELECT 客户ID FROM 订购; WHERE 订购日期 BETWEEN {^2004-01-01} AND {^2004-12-31} (3)SELECT 货物ID, 客户ID FROM 订购 DG; WHERE 数量=(SELECT MAX(数量) FROM 订购; WHERE 货物ID=DG.货物ID) (4)SELECT * FROM 客户 WHERE EXIST; (SELECT * FROM 订购 WHERE 订购.客户ID=客户.客户ID) (5)ALTER TABLE 货物 ADD 售出量 N(3) UPDATE 货物 SET 售出量=(SELECT SUM(数量) FROM 订购; WHERE 订购.货物ID=货物.货物ID) 2. (1) SELECT P.PNAME,SP.QTY FROM S,P,SP; WHERE P.PNO=SP.PNO .AND. S.SNO=SP.SNO .AND. S.SNAME LIKE ′S%′ (2) SELECT S.SNAME,COUNT(SP.PNO) FROM S,SP; WHERE S.SNO=SP.SNO GROUP BY SNO (3)SELECT COUNT(S.SNO) FROM S WHERE S.CITY=′北京′ (4) SELECT S.SNAME FROM S,SP; WHERE S.SNO=SP.SNO .AND. .NOT. EXISTS; (SELECT * FROM SP WHERE PNO=′P2′ .AND. S.SNO=SP.SNO) (5) UPDATE SP SET QTY=QTY*1.1; WHERE PNO IN (SELECT PNO FROM P,SP WHERE SP.PNO=P.PNO .AND. P.WEIGHT>=17) (6)DELETE FROM P WHERE PNO .NOT. IN (SELECT DISTINCE PNO FROM SP) 3. (1) SELECT DISTINCT CITY FROM S (2)SELECT PNO,PNAME,COLOR,WEIGHT,PRICE FROM P; ORDER BY PNAME, PRICE DESC (3) SELECT SNO FROM SPJ WHERE JNO=′J1′ (4) SELECT SNO FROM SPJ WHERE JNO=′J1′ .AND. PNO=′P1′ (5) SELECT SNO FROM SPJ WHERE JNO= ′J1′ .AND. PNO IN; (SELECT PNO FROM P WHERE COLOR=′红′) (6)SELECT JNO FROM SPJ WHERE NOT EXISTS; (SELECT * FROM S WHERE S.SNO=SPJ.SNO .AND. CITY=′天津′) (7)UPDATE P SET COLOR=′黑′ WHERE COLOR=′灰′ (8)UPDATE SPJ SET SNO= ′S2′; WHERE SNO= ′S1′ .AND. JNO= ′J1′ .AND. PNO= ′P1′ (9)SELECT SNAME FROM S WHERE CITY=′北京′ UNION; SELECT JNAME FROM J WHERE CITY=′北京′ (10)DELETE FROM SPJ WHERE PNO IN; (SELECT PNO FROM P WHERE COLOR=′蓝′) 4((1) SELECT SNO,G FROM SC WHERE CNO= ′C1′ ORDER BY G DESC (2)SELECT SNO,SA FROM S WHERE SAGE BETWEEN 20 AND 22 计算机系′ OR SDEP=′数学系′ (3)SELECT * FROM S WHERE SDEP=′ (4)SELECT SNO,CNO FROM SC WHERE G IS NULL (5)SELECT S.SNO,SNAME,SDEP,SA,G FROM S,SC; WHERE S.SNO=SC.SNO .AND. SC.CNO=′C1′.AND. (SC.G=′A′.OR. SC=′B′) (6)SELECT FIRST.CNO,SECOND.PCNO FROM C FIRST, C SECOND; WHERE FIRST.PCNO=SECOND.CNO (7)SELECT SNAME FROM S WHERE .NOT. EXISTS; (SELECT * FROM SC WHERE SNO=S.SNO AND CNO=′C3′) (8)SELECT * FROM S WHERE SDEP=′计算机系′ UNION; SELECT * FROM S WHERE SAGE<18 (9)SELECT CNO,COUNT(SNO) FROM SC GROUP BY CNO (10)SELECT SNO FROM SC GROUP BY SNO HAVING COUNT(*)>3 5((1)参考命令:CREATE 职工(职工号C(5)PRIMARY KEY，部门号C(2)，姓名C(2) DEFAULT;“男”，职称C(10)，出生日期D，婚否L，工资N(8，2)CHECK工资>=500AND工资<=2000,ERROR ;“工资应在500-2000之间”DEFAULT 1000) (2)参考命令:CREATE TABLE 部门(部门代号C(2) PRIMARY KEY，部门名称C(10)，负责人;C(8)) (3)参考命令: CREATE TABLE 工资(职工号 C(5) PRIMARY KEY,基本工资 N(8,2),津贴 N(7,1),; 奖金 N(3),会费 N(5,2),公积金 N(3)) (4)参考命令:ALTER TABLE 职工 ADD 年龄 N(8，0)ALTER 姓名 C(6) DROP 婚否 (5)参考命令:ALTER TABLE 职工 ALTER 职称 SET DEFAULT “教授” (6)参考命令: 法1:INSERT INTO 部门 VALUE(“22”,”网络教研室”,”李新”) 法2:DIMENSION A(3) A(1)= “12” A(2)= “基础教研室” A(3)= “王雨” INSERT INTO 部门 PROM ARRAY A 法3:部门代码= “21” 部门名称= “软件教研室” 负责人= “李玛丽” INSERT INTO部门 PROM MEMVAR (7)参考命令:UPDATE 职工 SET 年龄=YEAR(DATE()),YEAR(出生日期) UPDATE工资 SET 会费=0 UPDATE工资 SET 会费=基本工资*0.005 ALTER TABLE 职工 DROP 年龄 (8)参考命令:DELETE FROM 职工 WHERE 性别=“男” (9)参考命令: SELECT 职称 ，YEAR(DATE())-YEAR(出生年月)AS年龄 FROM 职工 (10)参考命令:SELECT * FROM 部门 (11)参考命令:SELECT * FROM 部门 WHERE LEFT(部门代码，1)=“2” (12)参考命令: 法1:SELECT 姓名，工资 FROM 职工 WHERE YEAR(出生日期)<=1970 AND 性别=“男” 法2:SELECT 姓名，工资 FROM 职工 WHERE(出生日期)<=,^1970/12/31, AND 性别=“男” 法3:SELECT 姓名，工资 FROM 职工 WHERE YEAR(出生日期)<,^1971/01/01,AND 性别;=“男” (13)参考命令:SELECT 姓名，出生日期 FROM 职工 WHERE YEAR(出生日期)BETWEEN 1960 AND; 1970 (14)参考命令:SELE COUNT(*)AS 记录数，COUNT(DISTINCT 部门号)AS 部门数 FROM 职工 (15)参考命令:SELECT SUM(工资)工资总和，AVG(工资)平均工资 FROM 职工 (16)参考命令: 法1:SELE 部门号， COUNT(*)人数，SUM(工资)工资和，MAX(工资)最高工资; MIN(工资)最低工资，AVG(工资)平均工资 FROM 职工 GROUP BY 部门号 法2:SELECT 部门号，COUNT(*)人数，SUM(工资)和，MAX(工资)最高工资; MIN(工资)最低工资，AVG(工资)平均工资 FROM 职工; GROUP BY 部门号 HAVING 平均工资<1000 (17)参考命令: 法1:SELECT * FROM 部门 WHERE 职称 IN (“教授”，“副教授”)ORDER BY 工资 DESC，;出生日期 法2:SELECT * FROM 部门 WHERE 职称 IN (“教授”，“副教授”)ORDER BY 工资 DESC，; 出生日期 TOP 50 PERCENT (18)参考命令: 法1:SELECT 职工.姓名，基本工资，津贴，奖金，会费，公积金 FROM 工资，职工; WHERE 工资.职工号=职工.职工号 AND 性别=“男” 法2:SELECT 职工.姓名，基本工资，津贴，奖金，会费，公积金 FROM 职工 JION; 工资，ON 工资.职工号=职工.职工号 AND 性别=“男” (19)参考命令:SELECT 姓名，部门名称，基本工资 FROM 部门 JION 职工 JION 工资，; ON 工资.职工号=职工.职工号 ON 部门.部门代号=职工.部门号 2.5.2 习题 一、选择题 1.( B )2.( C )3.( A)4.( A )5.(C )6.( D )7.( D )8.(D ) 9(( A )10((D )11(( D )12(( B )13(( B )14(( D )15(( A ) 16( ( C )17(( A )18(( D )19(( B )20(( C )21(( C )22(( A ) 23(( B )24(( A )25((B )26((D )27(( D )28(( A )29(( A ) 30(( A )31(( B)32(( A )33(( A )34(( D )35((1)(B )(2)( A ) 36((1) (C )(2)( D )(3)( C )(4)( D )(5)( B ) 37((1) ( C )(2) ( D )(3)(A )(4) (B ) 38((1)( A )(2)( C )(3)( B ) 39(( D )40(( A )41(( A )42(( D )43(( D )44( (C )45(( C)46((B ) 47(( B )48(( B )49((C )50(( B )51((C )52((C )53((A ) 54(( B )55(( C )56((D )57(( D )58((A )59((A )60((B ) A)61((C )62((B )63(( A )64.( D ) 二、填空题 1. 对象 2. 方法 3. 对象 4. 对象 5. 基类 6. 容器类 和 控件类 7. 继承 8. 对象 9. 对象 10. 属性 ， 方法 11. 方法 12( MOD(I,3)=0 13( NL=年龄 , SKIP , SKIP 14( SET PROCEDURE TO PROC1 , DO PC3 15( ____UPPER(X) ,_ NAME___,___NOT EOF()_ __ 16. DIMENSION , SCATTER TO 17. ACCEPT , FOUND() , TO YN 18. MOD(学号，7)=0 19( __姓名=XM_____20. (编号,8) =1______ 21( ___3.14159________， ____3.14159_______22( tt =5或>=5__________ 23( ______REPLACE 等级 WITH “A”_____24( ____NUM_____ 25( ___CTOD(“10/20/02”)___ 26( ____N=N+1_____27( __64______28( ____LOOP_____ 29( _____10______,_____200______,____100______ 30( __Y或y或N或n__31( K=1 TO J , STR(J*K,6) 32( ____&AA______,____&BB_____,____&CC_____,___J=27_____ 33( ____ 6 _34( _NH+”b”+DBN_____,__A:&BDBN___35( ____y=33______ 36( _____LOOP_______37( __I<=9___,__J<=10-I_____,__A(J)“N” EXIT ENDIF ENDDO CLOSE ALL 5( CLOSE ALL SELECT 1 USE 成绩 INDEX ON 报名号 TAG BM SELECT 2 USE 考试 SET RELATION TO 报名号 INTO成绩 SCAN REPLACE 总评 WITH (B.笔试成绩+B.上机成绩)/2 DO CASE CASE B.笔试成绩>85 AND B.上机成绩>85 REPLACE 等级 WITH “优秀” CASE B.笔试成绩<60 AND B.上机成绩>60 REPLACE 等级 WITH “未过” CASE B.笔试成绩<60 OR B.上机成绩>60 REPLACE 等级 WITH “补考” OTHERWISE REPLACE 等级 WITH “通过” ENDCASE ENDSCAN CLOSE ALL 6( CLEAR CLEAR ALL SET SAFE OFF SELECT 1 USE XSB INDEX ON 代号 TAG XH SELECT 2 USE PFB SCAN S3=PW1+PW2+PW3+PW4+PW5 S1=MAX(PW1,PW2,PW3,PW4,PW5) S2=MIN(PW1,PW2,PW3,PW4,PW5) REPL 平均分 WITH (S3-S1-S2)/3 ENDSCAN SET RELATION TO 代号 INTO XSB INDEX ON PJF TAG PJ DESC ?SPACE(8)+"大学生知识竞赛" ?"代号"+SPACE(6)+"姓 名"+SPACE(6)+"平均分"+SPACE(6)+"名次" N=1 SCAN ?代号+SPACE(6)+XSB.姓名+SPACE(6)+STR(PJF,6,2)+SPACE(6)+STR(N,2) N=N+1 ENDS CLOSE ALL SET SAFE ON RETURN 7( (1)Clear Select 0 Use pcwz Index on 编号 tag bh Select 0 Use wzk Set relation to 编号 into pcwz Replace all 数量 with 数量-pcwz.数量 Replace all 总价 with 单价*数量 (2)?” 发出物资统计表” ?”编号 数量 总价” select pcwz go top S=0 M=0 scan ?编号,” ”,数量, “ ” ,数量*wzk.单价 S=S+数量 M=M+数量*wzk.单价 Endscan ?”合计 ”,S,” “,M 8( CLEAR CLEAR ALL SET SAFE OFF SELE 1 USE TX INDEX ON 学号 TAG XH SELE 2 USE XSCJ REPL ALL 总分 WITH 数学+英语+计算机 SET RELE TO 学号 INTO TX INDE ON 总分 TAG ZF DESC I=1 SCAN ? "---------------------------------------------------------------" ? +TX.学生家长+"同志:" ? " 你好，"+姓名+"同学本学期成绩如下" ? " 数学 英语 计算机" ? " ",数学,英语,计算机 ? "该生成绩合格排名第"+ALLTRIM(STR(I))+ "名" ? IF 数学<60 ??"数学" ENDIF IF 英语<60 ??"英语" ENDIF IF 计算机<60 ??"计算机" ENDIF ?? "课程不及格需要补考, 补考时间在开学第一周。" ? " 祝假期愉快!" ? " 计算机系" ? "---------------------------------------------------------------" I=I+1 ENDS CLOSE ALL SET SAFE ON RETURN 9( SET TALK OFF STORE 0 TO S，N SELECT 1 USE DJKS REPLACE ALL 平均成绩 WITH (平均成绩+上机成绩)/2 SELECT 2 USE DW DO WHILE NOT EOF() DWDM=单位代码 SELECT 1 COUNT TO N FOR SUBSTR(考号，1，2)=DWDM AVERAGE 平均成绩 TO S FOR SUBSTR(考号，1，2)=DWDM SELECT 2 REPLACE 人数 WITH N，总平均分 WITH S SKIP ENDDO SELECT 2 COPY TO DW1 LIST CLOSE ALL SET TALK ON 10( CLEAR CLOSE DATABASE SELECT 3 USE TJ ZAP SELECT 2 USE DZH INDEX ON 借 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 证号 TO DZH SELECT 1 USE JY DO WHILE NOT EOF() IF DATE()-借书日期>60 SELECT 2 SEEK A.借书证号 IF NOT EOF() REPLACE 停借否 WITH .T. SELECT 3 APPEND BLANK REPLACE 借书证号 WITH B.借书证号,姓名 WITH B.姓名 ENDIF] ENDIF SELECT 1 SKIP ENDDO SELECT 3 LIST CLEAR ALL SET TALK ON 11. CLEAR CLEAR ALL SET TALK OFF SET SAFE OFF SELECT 1 USE STUDENT INDE ON 学号 TAG XH SELECT 2 USE SCORE SET RELATION TO 学号 INTO STUDENT REPLACE成绩 WITH 成绩+5, 加分否 WITH .T. FOR民族<>”汉” CALCULATE CNT(),MAX(成绩) TO RS,CJ FOR成绩>=450 AND加分否 ?”加过分且成绩在450分及其以上的考生人数和最高成绩分别为:”,RS,CJ ?”学号 姓名 成绩” SCAN FOR成绩>=600 ?学号,STUDENT.姓名,成绩 ENDSCAN CLOSE ALL SET TALK ON SET SAFE ON RETURN 12( PARAMETERS JE Z1=”元拾佰仟万拾佰仟亿拾佰仟” Z2=”零壹贰叁肆伍陆柒捌玖” JE=ALLTRIM(STR(JE,12)) CD=LEN(JE) DXJE=”整” K=0 DO WHILE CD>0 K=K+1 N=VAL(SUBSTR(JE,CD,1)) B1=SUBSTR(Z2,N*2+1,2) B2=SUBSTR(Z1,K*2-1,2) DXJE=B1+B2+DXJE CD=CD-1 ENDDO RETURN DXJE 2.6.2 习题 一、单选题 1.( B )2.( C )3.( A )4.( C )5.( B )6(( B )7((A )8((B ) 9((A )10(( B )11(( C)12(( A )13(( C )14(( B )15(( D ) 16(( B )17(( D )18.( A )19(( D )20(( D )21(( A)22(( C) 23(( A )24.( A )25.(D )26.( A )27.( C )28(( C )29(( D ) 30(( C )31(( C )32(( D ) 二、多选题 1.( ABCDE )2.(BCD )3.( AE )4.( ACDE )5.( BE ) 6.( ABD )7.( ABDE )8.( ADE )9.( ACD ) 三、填空题 1( ___THIS___， THISFORM_2( LOAD ， ___INIT____,___DESTROY___ 3. ____RELEASE_____4( ___.SCX__,____REFRESH__ 5( ____定时器___,__TIMER__,__ INTERVAL， __毫秒___,__ ENABLE____ 6. __(\=65 AND ASC(K)<=90 OR ASC(K)>=97 AND ASC(K)<=122 C=C+1 ENDIF ENDFOR THISFORM.TEXT2.VALUE=B THISFORM.TEXT3.VALUE=C 2( “查询”命令按钮的CLICK事件代码如下: SELECT 外汇账户 DO CASE CASE THISFORM.MYOPTION.VALUE=1 THISFORM.GRID1.RECORDSOURCE=“SELECT 外币代码，金额; FROM 外汇账户; WHERE 钞汇标志=[现汇]; INTO CURSOR TEMP” CASE THISFORM.MYOPTION.VALUE=2 THISFORM.GRID1.RECORDSOURCE= “SELECT外币代码，金额; FROM 外汇账户; WHERE 钞汇标志=[现汇]; INTO CURSOR TEMP” ENDCASE 3( 编写COMMAND1的CLICK事件代码如下: THISFORM.RELEASE 编写CHECK1 的INTERACTIVECHANGE事件爱女代码如下: If THIS.VALUE=1 THISFORM.LABEL1.CAPTION= “欢迎指导～” ELSE THISFORM.LABEL1.CAPTION= “” ENDIF 4( TEXT1、TEXT2、TEXT3的INIT事件代码: THIS.VALUE=0 COMMAND1的CLICK事件代码: X= THISFORM.TEXT1.VALUE Y= THISFORM.TEXT2.VALUE DO CASE CASE Y<=12 M=X*Y(1+0.12) CASE Y<=24 M=X*Y(1+0.24) CASE Y<=36 M=X*Y(1+0.36) OTHER M=X*Y(1+0.48) ENDCASE THISFORM.TEXT3.VALUE=M COMMAND2的CLICK事件代码: THISFORM.TEXT1.VALUE=0 THISFORM.TEXT2.VALUE=0 THISFORM.TEXT3.VALUE=0 THISFORM.TEXT1.SETFOCUS COMMAND3的CLICK事件代码: THISFORM.RELEASE 5( TEXT1,TEXT5的INIT事件代码: THIS.VALUE=0 COMMAND1的CLICK事件代码: X= THISFORM.TEXT1.VALUE Y= THISFORM.TEXT2.VALUE Z= THISFORM.TEXT3.VALUE N=0 S=0 FOR I=X TO Y IF MOD(1,Z)=0 THISFORM.EDIT.VALUE=THISFORM.EDIT.VALUE+STR(I)+CHR(13) N=N+1 S=S+1 ENDIF ENDFOR THISFORM.TEXT4.VALUE=N THISFORM.TEXT5.VALUE=S COMMAND2的CLICK事件代码: THISFORM.TEXT1.VALUE=0 THISFORM.TEXT2.VALUE=0 THISFORM.TEXT3.VALUE=0 THISFORM.TEXT4.VALUE=0 THISFORM.TEXT5.VALUE=0 THISFORM.TEXT1.setfocus COMMAND3的CLICK事件代码: THISFORM.RELEASE 6( TEXT1的INIT事件代码: THIS.VALUE=0 COMMAND1的CLICK事件代码: THISFORM.TEXT2.VALUE=ROUND(THISFORM.TEXT1.VALUE*9/5+32,1) COMMAND2的CLICK事件代码: THISFORM.TEXT2.VALUE=ROUND((THISFORM.TEXT1.VALUE-32)*5/9,1) COMMAND3的CLICK事件代码: THISFORM.TEXT1.VALUE=0 THISFORM.TEXT2.VALUE= “” THISFORM.TEXT1.SETFOCUS COMMAND4的CLICK事件代码: THISFORM.RELEASE 7( OPTIONGROUP1的CLICK事件代码: DO CASE CASE THIS.VALUE=1 THISFORM.TEXT1.FONTNAME= “黑体” CASE THIS.VALUE=2 THISFORM.TEXT1.FONTNAME= “宋体” CASE THIS.VALUE=3 THISFORM.TEXT1.FONTNAME= “隶书” CASE THIS.VALUE=4 THISFORM.TEXT1.FONTNAME= “楷体_GB2312” ENDCASE 编写COMMAND1的CLICK事件代码如下: THISFORM.RELEASE 8( COMMANDGROUP1的CLICK事件代码: DO CASE CASE THIS.VALUE=1 GO TOP CASE THIS.VALUE=2 IF RECN()>1 SKIP-1 ELSE GO BOTTOM CASE THIS.VALUE=3 IF RECN()1 SKIP-1 ELSE GO BOTTOM ENDIF THISFORM.REFRESH CASE THIS.VALUE=2 IF RECN()