福建省计算机二级考试VisualFoxpro课后答案5.docVIP

循环结构程序设计 实验： 打开“学生成绩”项目文件（已建“学生成绩”数据库，含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，判断并显示1～M中有哪些数可以分为两个相等的素数。例如，若M=10，符合条件的数有4、6、10。 6. 求当1*2*3*……的值超过1020（即1e20）时的临界值及最后一项的值。 7. 输出如图1所示的图案。 8. 输出如图2所示的图案。 选做题： 选做1）从键盘输入N个无序数（个数N先由键盘输入），去掉一个最大数，去掉一个最小数，然后求平均值。 选做2）求1！+2！+3！+……+10！的值。 选做3）求S的值（公式如下），直到某一项的值小于 1E-6为止。 *选做4）编写程序统计STUDENT表中男女学生人数 *选做5）编程实现从键盘输入任意一字符串，逆序输出 1、 input 请输入一个数 to m num=0 for i=2 to m step 2 if mod(i,6)!=0 ? i num=num+1 endif endfor ?满足条件的数的个数是, num 2、 CLEAR OPEN DATABASE 学生成绩 USE STUDENT SCAN FOR 专业=金融 DISPLAY WAIT 按任一键显示下一个记录… ENDSCAN CLOSE DATABASE RETURN 3、 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.学号=xh enddo close database 4、 clea dimension a(5) for i=1 to 5 input 请输入一个数 to a(i) endfor store a(1) to max ,min for i=2 to 5 if a(i) max max=a(i) endif if a(i)min min=a(i) endif endfor ?最大数是,max ?最小数是,min 5、 clea input 请输入一个数 to m for n= 1 to m/2 FOR I=2 TO N-1 IF N%I=0 EXIT ENDIF ENDFOR IF IN-1 或I=N ??N*2 输出素数N的2倍 ENDIF endfor 6、s=1 t=2 do while .t. s=s*t if slE20 exit endif t=t+1 enddo ?临界值是 ,s ?最后一项 ,t 7\ clea for i=1 to 5 ?space(5-i) for j= 1 to i*2-1 ??* endfor endfor for i=4 to 1 step -1 ?space(5-i) for j=1 to i*2-1 ??+ endfor endfor 8 clea for i=1 to 5 ?space(5-i) for j=1 to (2*i-1) ?? str(j,1) endfor endfor 选1、 CLEAR INPUT 请输入数的个数 TO N INPUT 请输入一个数 TO X 输入第1个数 STORE X TO MAX,MIN,SUM