VF程序分析答案

VF程序分析答案

1.下列程序是用来求长方形的面积，请将它写完整。X=2Y=5S=AREA(X,Y)?SRETURNFUNCTIONAREA__Parametersx,y____S1=X*YRETURN ____s______2.执行下述程序后，变量X的值是_____7____，循环体一共运行了___4______次。X=19DOWHILE.T.X=X-1DOCASECASEMOD(X,3)=0LOOPCASEX<10EXITCASEMOD(X,2)=0X=X/2ENDCASEENDDO?XRETURN3.在学生信息.DBF中有性别（C,2）字段，显示女学生的记录。请写出程序空白处的语句。CLEARUSE学生信息DOWHILENOTEOF()IF性别=“男”SKIPLoop_ENDIFDISPLAYWAITSKIPENDDOUSE4.以下程序在”XS”数据表中按姓名查找的某条记录，请在程序的空白处填空。USEXSACCEPT”“输入学生姓名：”TONAMELOCATEALLFOR___姓名=NAME___IFFOUND（）___display______Else___8n?”查无此人”ENDIF1.使用SQL实现:1）检索不及格成绩的学生的学号、姓名和课程名、成绩。SELECTstudent.学号,姓名,课程名,成绩FROMstudent,course,scoreWHEREstudengt.学号=score.学号ANDcourse.课程号=score.课程号AND成绩<602）查询成绩都在80分以上的学生信息。SELECT*FROMstudentWHERE学号NOTIN;(SELECT学号FROMscoreWHERE成绩<=80);AND学号IN(___year（达特（出生日期））_>01/01/1988____)3）查询1988年1月1日以后出生的学生信息，将查询结果保存到文本文件csrq.txt中。SELECT*FROMstudentWHERE________TOFILEcsrq.txt4）查询成绩最高的三名学生的学号、课程号与成绩。SELECT*___top___3__FROMscoreORDERBY成绩DESC2.下列程序是求出100以内能被3整除但不能被7整除的数据之和，请在_________处填空。STORE0TOS，NDOWHILEN<=100__IFINT(N/3)===N/3ANDINT(N/7)<>7S=S+NENDIF___N=N+1_____ENDDO?”S=”+STR(S)3.以下程序逐条显示“学生”数据表中1985年出生的学生记录，请在程序的___处填空，已知数据表中有名为“出生日期”的日期型字段。USE学生LOCATEFORYEAR(出生日期)=1985DOWHILE___NOTEOF()DISPWAIT___SKIP_ENDDOUSE4.有如下表：（1）XS.DBF(学号C(9)，姓名C(8)，性别C(2)，专业C(10)，出生日期D，走读L)；（2）CJ.DBF(学号C(9)，课程名C(20)，成绩N(5,1))一个学生可以选择多门课程。请编写一个完整的程序，该程序能完成以下功能：（1）将表XS.DBF和表CJ.DBF建立关联，并显示出所有男同学的姓名以及他们所选课程的课程名。（2）将XS.DBF表中所有班级为“计算机应用”的同学信息拷贝到新表STUDENT.DBF中，STUDENT.DBF只含有学号、姓名、性别、出生日期四个字段（3）将姓名为“王小平”的同学的所有成绩提高10%CLEAR8nCLOSEALLSELE2USECJINDEXON学号TAGXHSELE1USEXSSETRELATIONTOBSETSKIPTOBLISTFOR性别='男'FIELDS姓名,B.课程名COPYTOSTUDENTFORSUBSTR(“200901”)IELDS学号,姓名,性别,专业replaceb.成绩with成绩=成绩*Nfora.姓名="王小平"1.以下程序计算1—100之间的所有奇数的平方和并显示出来，请在程序的_____处填空。S=0X=1DOWHILEX<=100_S=S+X^2___________X=X+2____EDNDO?S2.使用SQL实现:1）查询student.dbf男生党员的信息，要求显示姓名和出生日期。SELECT姓名,出生日期FROMstudentWHERE___性别=“男”and党员否_____2）查询学生各科成绩，将结果存入表CJ.DBF中，该表的结构为：姓名，课程名、成绩。SELECTstudent.学号,姓名,课程名,成绩FROMstudent,course,score;WHEREstudent.学号=score.学号ANDcourse.课程号=score.课程号___INTODBFOJ____3）查询student.dbf年龄最小的3名学生的信息。SELECT*FROMstudentORDERBY出生日期DESC___BOTTOM3_____4）查询score.dbf表中的每名学生的总成绩，结果存放于表sum1.dbf中，该表的结构为score.dbf表中的学号与总分。SELECT学号,____sum(score)____FROMscoreGROUPBY学号INTOTABLEsum13.下列程序段用来求0～100之间的偶数之和，请将它写完整：N=0S=0DOWHILEN<=100___N=N+1________IFN%2=1___LOOP______ELSES=S+NENDIFENDDO4.下列程序用来实现从键盘上输入数据，求所有奇数的和，输入0结束。请将它补充完整：8nCLEARSETTALKOFFSUM=0DOWHILE.T.INPUT”请输入一个数”TONUMIFNUM=0______EXIT_____ENDIFIFMOD(NUM,2)=0LOOPENDIF_________SUM=SUM+NUM____________ENDDO?SUMSETTALKONRETURN1.下面的程序判断输入的一个字符是属于字母、数字或特殊符号，请将它补充完整：CLEARSETTALKOFFACCEPT”请输入一个字符”TOCDOCASECASE___UPPER(C)<=”2”AND.UPPER(C)>=”0”_____________________________________?C,”是字母”CASE________C<=”1”.AND.C>=”0’_______________________?C,”是数字”OTHERWISE?C,”是一个特殊符号”ENDCASESETTALKONRETURN2.下面的程序实现用键盘输入学号来修改student表中的姓名，若无该学号则显示“无此学生”。请将它补充完整：CLEARUSEstudentXH=1ACCEPT“请输入学号：”TOXHLOCATEFOR_____学号=XH_______IFFOUND()@4,10SAY“请修改学号为”+XH+“的姓名”______get姓名________READELSE?“无此学生”ENDIFUSE3.某工厂对职工进行A,B,C三个项目的技能比赛,每个职工每个项目操作三次,记录三个成绩,每个职工三个项目的九次成绩已登记在TEST.DBF8n数据表中,各记录排列无序。该数据库含有姓名(C型),项目(C型),成绩(N型)字段。汇总每个职工每个项目的总成绩及每个职工所有项目的总成绩。汇总每个职工各项目的总成绩。USETEST.DBFINDEXON姓名+项目TAGZGXMSETORDERTOTAGZGXMTotalon姓名+项目fields姓名.成绩。项目ToZGXM.DBFUSEZGXM.DBFLIST*汇总每个职工所有项目的总成绩USETEST.DBFINDEXON姓名TAGNAMESETordertotagNAMETOTALON姓名FIELDS姓名,成绩TOZGCJ.DBFUSEZGCJ.DBFLIST1.以下程序功能是从键盘输入两个正整数，求出其最大公约数并输出，请在程序的________处填空。INPUT“X=”TOXNIPUT“Y=”TOYIFX0X=YY=TT=X%TENDDO“Y=”,Y2.在ZGDA.DBF中，显示女职工的记录。请在程序的________处填空。CLEARUSEZGDADOWHILENOTEOF()IF性别<>“女”SKIPLOOPENDIFDISPLAYWAITSKIPENDDOUSE3.在XSK.DBF中，找出最高奖学金并输出。请在程序的________处填空。USEXSKA=奖学金DOWHILE.NOT.EOF()8nIFA<奖学金A=奖学金ENDIFSkipENDDOAUSE1.以下程序在”XS”数据表中按姓名查找的某条记录，请在程序的____处填空。USEXSACCEPT”“输入学生姓名：”TONAMELOCATEALLFOR姓名=NAMEIFFOUND()DispalyELSE”查无此人”ENDIF2.下列程序是求出100以内能被3整除但不能被7整除的数据之和，请在程序的_______处填空STORE0TOS，NDOWHILEN<=100IfInt(N/3)=N/3:AND.Int(N/7)<>N/7S=S+NENDIFENDDO”S=”+STR(S)3.编写密码输入程序，输入密码时，密码在屏幕上不显示。程序对输入的密码与事先存储的密码进行比较，若一致提示“欢迎您使用本系统”，若不一致，提示“密码错，你不能进入本系统”。SETTALKOFFClear?"请输入你的密码:"Setconsoleoff&&用户输入的信息在屏幕上不显示ACCEPTTOMMSETCONSOLEON&&用户输入的信息在屏幕上显示IFMM<>"123456"?"密码错,你不能进入本系统"ELSE?"欢迎您使用本系统"ENDIFSettalkonRETURN4.一下程序计算S=1+2+3+……＋100，请在程序的_______处填空。I=1S=0DOWHILEI<=1008nS=S+1此处题目有误，应该是S=S+II=I+1ENDDO?”S=”,S1.以下程序逐条显示“学生”数据表中1985年出生的学生记录，请在程序的___处填空，已知数据表中有名为“出生日期”的日期型字段。USE学生LOCATEFORYEAR（出生日期)=1985DOWHILENOTEFO()DISPLAYWAITContinueENDDOUSE2.编程实现学生退学的功能。学生退学时不但要删除Xsda.dbf中的记录，而且要删除Xscj.dbf和Xsxk.dbf中的记录。SETTALKOFFSETSAFETYOFFSETEXCLUSIVEON&&独占打开数据表SELECT1USEXsdaSELECT2USEXscjSELECT3USEXsxkSELECT1DOWHILE.T.CLEARACCEPT"输入学号："TOMXHSELECT1Locatefor学号=MXHIFFOUND()DELETESELECT2DELETEFOR学号=MXHSELECT3Deleteallfor学号=MXHELSEMESSAGEBOX("无此学号！")ENDIFWAIT"继续否？（Y/N）"TOTIFUPPER(T)="N"EXITENDIFENDDOSELECT1PACKSELECT2PACKSELECT38nPACKCLOSEALLSETTALKON8