福建省计算机二级考试Visual Foxpro课后答案5.doc

循环结构程序设计实验：打开“学生成绩”项目文件（已建“学生成绩”数据库，含STUDENT、COURSE和GRADE表），建立以下程序文件并运行。注：程序文件分别命名为ep060201.prg、ep060202.prg、ep060203.prg、和ep060208.prg。1. 从键盘输入一个正整数M，输出M内（包括M）所有不被6整除的偶数及它们的个数2. 输出STUDENT表中“金融”专业学生的记录，要求一次显示一个记录，由用户按任意键再显示下一个记录。3. 输入一个学生的学号，从STUDENT表和GRADE表中查询该生的姓名及各门课程的成绩（显示在浏览窗）。要求能反复查询，直到输入的学号为“Q”时结束查询。4. 从键盘输入5个数存放于一维数组中，输出其中的最大数和最小数。5. 从键盘输入一个正整数M，判断并显示1M中有哪些数可以分为两个相等的素数。例如，若M=10，符合条件的数有4、6、10。*+（图1）6. 求当1*2*3*的值超过1020（即1e20）时的临界值及最后一项的值。1123123451234567123456789（图2）7. 输出如图1所示的图案。8. 输出如图2所示的图案。选做题：选做1）从键盘输入N个无序数（个数N先由键盘输入），去掉一个最大数，去掉一个最小数，然后求平均值。选做2）求1！+2！+3！+10！的值。选做3）求S的值（公式如下），直到某一项的值小于 1E-6为止。*选做4）编写程序统计STUDENT表中男女学生人数*选做5）编程实现从键盘输入任意一字符串，逆序输出1、input 请输入一个数 to mnum=0for i=2 to m step 2 if mod(i,6)!=0 ? i num=num+1 endif endfor?满足条件的数的个数是, num2、CLEAROPEN DATABASE 学生成绩USE STUDENT SCAN FOR 专业=金融 DISPLAY WAIT 按任一键显示下一个记录ENDSCANCLOSE DATABASERETURN3、clea open database 教学管理do while .t. input 请输入一个学号： to xh if upper(xh)=Q exit endif select student.学号 ,课程号,成绩 from student,grade where student.学号=grade.学号 and student.学号=xhenddoclose database 4、cleadimension a(5)for i=1 to 5 input 请输入一个数 to a(i)endfor store a(1) to max ,minfor i=2 to 5 if a(i) max max=a(i) endif if a(i)N-1 &或I=N ?N*2 &输出素数N的2倍 ENDIF endfor 6、s=1t=2do while .t. s=s*t if slE20 exit endif t=t+1enddo ?临界值是 ,s ?最后一项 ,t7cleafor i=1 to 5 ?space(5-i) for j= 1 to i*2-1 ?* endforendfor for i=4 to 1 step -1 ?space(5-i) for j=1 to i*2-1 ?+ endforendfor8cleafor i=1 to 5 ?space(5-i) for j=1 to (2*i-1) ? str(j,1) endforendfor选1、CLEARINPUT 请输入数的个数 TO N INPUT 请输入一个数 TO X &输入第1个数STORE X TO MAX,MIN,SUM &第一个数作为最大数初值FOR I=2 TO N & I控制输入次数 INPUT 请输入一个数 TO X IF XMAX MAX=X ENDIF IF X(1E-6) sum=sum+n n=n/xENDDO?结果是 , sumRETURN4、CLEAROPEN DATABASE 学生成绩 male=0 fem=0USE STUDENTSCAN if 性别=.t. male=male+1 else fem=fem+1 endifENDSCANCLOSE DATABASE ?男生有, male ,个,女生有,fem,个 RETURN5、CLEARINPUT 请