12、 求100~200以内所有能被3整除的数的和
13、从键盘输入数值x,若为正数，则显示出来 14、求31+32+33+…+50的和 15、求y=
1?1!2?2!3?3!10?10!???...?的值 2?33?44?511?1216、求1~100间偶数之和
17、求100以内所有能被3整除的数的和
参考答案
选择题：
1- 5：CADBA 6- 10：DCBDA 11-15：BAABD 16-20：DCBBC 21-25：DDCDB 26-30：BDDCB 31-35：BBDAD 36-40：CBABB 41-45: ACBDB 46- 50：CBDAA 51- 55：DDBAC 56-60：BAABB 61-65：ACBBC 66-70：DACCB 71-75：CDACB 76-80：ABDAB 81-85：CBDBB 86-90: DABAA
填空题
1. L 123abc 2． XCOPY 3. 4 4. 广域网 5.dbc 6. copy 7． .F. 8. INDE 9. .F. 10．GO TOP 11． C INTERVAL 12. 2 13. 类型 14. L DBFEOF 15． EXE 16.DBC 17. SUM(工资) 18. .F. 19. DELE 20． .T. 21. PJX 22. C Interval 23．SCX FORM 24． EXIT 25. 关系模型 应用题
1．（1）LIST for 工资>500 and 职称=”工程师” 1．（2）SORT ON 职称 to qm2
13
1．（3）INDE ON 工资 to sy4
1．（4）USE gz GO BOTT SKIP –2 DELE NEXT 3 2．（1）x=THISFORM.TEXT1.VALUE y=THISFORM.TEXT2.VALUE
THISFORM.TEXT3.VALUE=x+y
2．（2）THISFORM.RELEASE
3．（1）SKIP -1 3．（2）SKIP 1 IF BOF() IF EOF()
GO TOP GO BOTT ENDIF ENDIF
THISFORM.refresh THISFORM.refresh 3．（3）APPE 3．（4）DELE 4．（1）s=0 I=1 N=THISFORM.TEXT1.VALUE
DO WHILE I<=N S=S+I I=I+1 ENDDO THISFORM.TEXT1.VALUE=S
4．（2）THISFORM.RELEASE
5．（1）T=1 I=1 N=val(THISFORM.TEXT1.VALUE)
DO WHILE I<=N T=T*I I=I+1 ENDDO THISFORM.TEXT2.VALUE=T
5．（2）THISFORM.RELEASE
编写程序：
1.INPUT TO x INPUT TO y if (x+y)>50 ?x+y endif
2. Y=0 T=1 I=1 DO WHILE I<=10 T=T*I Y=Y+(I+T)/( I*(I+1)) I=I+1 ENDD ?Y
3. S=0 T=1 I=1 DO WHILE I<=10 S=S+I*T I=I+1 ENDD ?S 4.USE da X=0 Y=0 DO WHILE .NOT.EOF() DO CASE
CASE 职称=”讲师”and 性别=“男” x=x+1 CASE 职称=”副教授” 性别=“女” y=y+1
14
ENDC SKIP 1 ENDD ?X,Y USE
5. s=0 I=1 DO WHILE I<=100 IF I/2=INT(I/2) s=s+I ENDIF I=I+1 ENDD ?s
6. INPUT TO X IF X>=0 Y=14*X*X-14*X-14 ELSE Y=14*X*X+14*X+14 ENDIF ?Y 7. S=0 I=1 DO WHILE I<=300 IF I/7=INT(I/7) S=S+I ENDIF I=I+1 ENDD ?S 8.INPUT TO R S=3.14*R*R ?S
9.USE ZGGL X=0 Y=0 DO WHILE .NOT.EOF() DO CASE
CASE 职称=”讲师” x=x+1 CASE 职称=”副教授” y=y+1 ENDC SKIP 1 ENDD ?X,Y USE
10. I=1 DO WHILE I<=100 IF I/3=INT(I/3) ?I ENDIF I=I+1 ENDD
11. INPUT TO X IF X>=0 Y=10*X*X+10*X+10 ELSE Y=10*X*X-10*X-10 ENDIF ?Y 12. S=0 I=100 DO WHILE I<=200 IF I/3=INT(I/3) S=S+I ENDIF I=I+1 ENDD ?S 13. INPUT TO X IF X>0 ?X ENDIF
14. S=0 I=31 DO WHILE I<=50 S=S+I I=I+1 ENDD ?S 15. Y=0 T=1 I=1 DO WHILE I<=10 T=T*I Y=Y+(I+T)/((I+1)*(I+2)) I=I+1 ENDD ?Y
16. S=0 I=1 DO WHILE I<=100 IF I/2=INT(I/2) S=S+I ENDIF I=I+1 ENDD ?S 17. S=0 I=1 DO WHILE I<=100 IF I/3=INT(I/3) S=S+I ENDIF I=I+1 ENDD ?S
15
