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

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

循环结构程序设计实验：打开“学生成绩”项目文件（已建“学生成绩”数据库，含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。*************************++++++++++++++++（图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"请输入一个数"tomnum=0fori=2tomstep2ifmod(i,6)!=0?inum=num+1endifendfor?"满足条件的数的个数是",numn2、CLEAROPENDATABASE学生成绩USESTUDENTSCANFOR专业="金融"DISPLAYWAIT"按任一键显示下一个记录…"ENDSCANCLOSEDATABASERETURN3、cleaopendatabase教学管理dowhile.t.input"请输入一个学号："toxhifupper(xh)="Q"exitendifselectstudent.学号,课程号,成绩fromstudent,gradewherestudent.学号=grade.学号andstudent.学号=xhenddoclosedatabase4、cleadimensiona(5)fori=1to5input"请输入一个数"toa(i)endforstorea(1)tomax,minfori=2to5ifa(i)>maxmax=a(i)endififa(i)N-1&&或I=N??N*2&&输出素数N的2倍ENDIFendfor6、s=1t=2dowhile.t.s=s*tifs>lE20exitendift=t+1enddo?"临界值是",s?"最后一项",t7cleafori=1to5?space(5-i)forj=1toi*2-1??"*"endforendforfori=4to1step-1?space(5-i)forj=1toi*2-1??"+"endforendfor8cleafori=1to5?space(5-i)forj=1to(2*i-1)??str(j,1)endforendforn选1、CLEARINPUT"请输入数的个数"TONINPUT"请输入一个数"TOX&&输入第1个数STOREXTOMAX,MIN,SUM&&第一个数作为最大数初值FORI=2TON&&I控制输入次数INPUT"请输入一个数"TOXIFX>MAXMAX=XENDIFIFX(1E-6)sum=sum+nn=n/xENDDO?"结果是",sumRETURNn4、CLEAROPENDATABASE学生成绩male=0fem=0USESTUDENTSCANif性别=.t.male=male+1elsefem=fem+1endifENDSCANCLOSEDATABASE?"男生有",male,"个","女生有",fem,"个"RETURN5、CLEARINPUT"请输入一个字符串"TOnlenth=len(n)?lenthb=""fori=lenthto1step-1a=substr(n,i,1)b=b+aendfor?"逆序字符串是",b