《数据库课后题答案》由会员分享，可在线阅读，更多相关《数据库课后题答案（23页珍藏版）》请在金锄头文库上搜索。
1、填空1. 在学生表中查找并输出指定学生的所有信息INDEX ON 学号 TO IXH!FOUND()DISPLAY2. 判断给定的正整数表达式的值是否为素数,并能反复判断FOR I=2 TO X-1I=XIF UPPER(YN)=”Y”或者IF LOWER(YN)=”y”3. 输入边长,如果能构成三角形,则计算三角形面积.DO WHILE .T.LOOPM=SQRT(U*(U-X)*(U-Y)*(U-Z)4. 在屏幕上显示输出一个九九乘法表.X=1?STR(X,1)+”*”+STR(Y,1)+”=”+STR(X*Y,2)+” ”?5. 根据输入的数据,计算不大于该数的所有奇数累加和.UPPER
2、(YN)=”Y”INT(X/2)X/2WAIT或者ACCEPT或者INPUT6. 根据输入的数据,判断该数是否为偶数,可以反复判断.DO WHILE UPPER(YN)=”Y”N%2!=0或者 N/2!=INT(N/2) 或者 MOD(N,2)!=0WAIT7. 显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录.USE(TBN) 或者 USE&TBNFCOUNT()For &EXPR8. 接收从键盘输入的任意5个数,输入的数字可以是负数,但最多包括3位符号位.程序的功能是,找出其中最大的数和最小的数,最后显示出来.ZX=XDO WHILE N1ZXX9. 显示
3、输出学生表中每个班级男女生的奖学金总金额.DO WHILE !EOF()LEFT(学号,3)=CLASS 或者 SUBSTR(学号,1,3)=CLASSSKIP10. 返回给定字符串表达式的倒置字符串.例如,输入字符串”ABCD”,倒置后输出的字符串为”DCBA”.C=” 或者 C=SPACE(0)Do While L0C+Q11. 利用公式e的x次方=1+X+X2/2!+X3/3!+XN/N!,输入X和N,计算e的x次方的近似值.S=1FOR I=1 TO NS=S+A/B12. 输入一个正整数M,判断并显示1M中有哪些数可以分为两个相等的素数.(例如,M=10，有2个数符合,即3+3=6和
4、5+5=10。)ELSEJ=2 TO I-1IF JI-1 或者 IF J=I13. 本程序实现口令验证.输入次数在3次以内,给予重输的提示;超过3次,则进入死循环.EXITIF I=3 或者 IF I=3I=I+114. 显示学生表中的获得奖学金的学生姓名和奖学金数额 DO WHILE !EOF() IF 奖学金0 SKIP15. 填空本程序显示学生表中1990年或以前出生的学生姓名和出生年月(日期型)。LOCATE FOR YEAR(出生年月)0M=INT（M/10）17. 本程序实现从键盘中输入5个数，去掉一个最大数和一个最小数，然后求平均值。Store N to A,B,SANS=S+
5、N18.计算1！+3！+5！+N！，N由键盘输入INPUT “N=” TO NS=S+TT=T*J19设变量N 的输入值为5，字符A的ASCII码为65。SPACE(N-I)2*I-1CHR(65+I-1)20将表“学生.DBF”中指定学生（键盘输入）的奖学金加60，并显示该学生的记录。LOCATE FOR 学号=MREPLACE 奖学金 WITH 奖学金+60ENDIF21下面程序统计指定学生的平均成绩及该成绩的档次LOCATE FOR 学号=XHAVERAGE 成绩 TO PJCJ FOR 学号=XHOTHERWISE22程序输入的结果如图所示（三角*）H=5SPACE(H-K)2*K-1
6、23编程实现将日期转换成中文星期的字定义函数N=DOW(D)OTHERWISERETURE C24百钱买百鸡。FOR Y=0 TO 33IF 5*X+3*Y+Z/3=100ENDFOR25输入一个自然数，判断是否为完数（若该数除本身之外的所有因子之和等于该数，则为完数。例如，1+2+3=6，6为完数；1+2+4=、8，8不是完数）S=0 或者 STORE 0 TO SMOD(M,N)=0 或者 INT(M/N)=M/N 或者 M%N=0S=M改错1求当1！+ 3！+ 5！+ N！的值不超过1020时的临界值及N的值。DO WHILE S=M9.本程序用以判断输入的字符串是否是回文（回文是从左到
7、右和从右到左读时都一样的一个字符串，不论大小写字母）。I=LEN(ST)C=Q+CIF UPPER(ST)=UPPER(C)10本程序求S=K!+M!(M,K由键盘输入，且MK)，请输入S的值DO SUB WITH A,IS=S+ADO WHILE L=N11.本程序输入一个一位数值（09），并把它转化为对应的中文大写数字（零玖）。DO WHILE .T.S=SUBSTR(X,2*N+1,2)IF UPPER(T)=”N”12.对成绩.dbf（其中包含“学号”字段，并且以“学号”为关键字建立了索引标识“学号”）中学号相同的重复记录进行逻辑删除。USE 成绩 ORDER 学号DO WHILE 学
8、号=XHSKIP13.本程序是在屏幕上打印输出如图4-6所示图形。DO WHILE CC AND A+CB AND B+CA20、成绩小于60的学号课程号成绩显示出来GO TOP?学号+SPACE(5)+课程号+SPACE(5)+STR(成绩,6)?当前日期+DTOC(DATE()21、计算S=1+2+3+.+N的和INPUT”N=”TO NDO WHILE IN?”1+2+3+N=”+S22、输入学号，计算平均成绩，说明成绩档次INPUT”输入学号=”TO XHAVERAGE 成绩 TO CJ FOR 学号=XHDC=SUBSTR(C,6*R+1,6)23、指定表指定条件的任意查询功能IF
9、NOT FILE(FNAME+”.dbf”)ENDFORLIST FOR &EXP24、输入表名，若存在则打开并显示各字段名IF NOT FILE(FNAME+”.dbf”)?”此表中的字段有:”,ZDSM,”个”?FIELDS(I)25、屏幕上出现15的那个图形DO WHILE C=K?CK=K+1表单1. 设计标准化模拟考试表单。（1） 表单Form1的Init事件：Thisform.Optiongroup1.Value=0（2） Optiongroup1的Click事件IF This.Value=2 MessageBox(答对了,真棒！,0+48,评判结果） Else MessageBo
10、x(答错了,再试！,0+32,评判结果) ENDIF2. 编制一个表单完成表文件学生.dbf（1） 命令按钮Command1的Click事件GO TOP Thisform.Command1.Enabled=.F. Thisform.Command2.Enabled=.F. Thisform.Command3.Enabled=.T. Thisform.Command4.Enabled=.T. Thisform.Refresh (2) Command2的Click事件 SKIP -1 IF BOF() Thisform.Command1.Enabled=.F. Thisform.Command2.Enabled=.F. ELSE Thisform.Command3.Enabled=.T. Thisform.Command2.Enabled=.T. ENDIF Thisform.Refresh (3）Command3的Click事件SKIP IF EOF(） This
