下载文档原格式
vfp程序改错〖第1题〗『程序改错』(8分)(题号:513)*-------------------------------------------------------*【程序改错】*-------------------------------------------------------*题⽬:统计字符串中各元⾳字母（即：A、E、I、O、U）的个数。
* 注意：字母不分⼤、⼩写。
* 例如：若输⼊：THIs is a boot，则输出应该是：* 1、0、2、2、0。
*-------------------------------------------------------*注意：不可以增加或删除程序⾏，也不可以更改程序的结构。
*-------------------------------------------------------set talk offclears="This is a boot"store 0 to i1,i2,i3,i4,i5***********FOUND**********for i=0 to len(s)-1***********FOUND**********m=subs(s,i,i)do casecase m="A" .or. m="a"i1=i1+1case m="E" .or. m="e"i2=i2+1case m="I" .or. m="i"i3=i3+1case m="O" .or. m="o"i4=i4+1case m="U" .or. m="u"i5=i5+1***********FOUND**********otherwiseendfori1,i2,i3,i4,i5SET TALK ON答案：1). for★i=1★to★len(s)2). m=subs(s,i,★1)3). endcase〖第2题〗『程序改错』(8分)(题号:188)*-------------------------------------------------------*【程序改错】*-------------------------------------------------------*题⽬：显⽰XSDB.DBF中每个学⽣的姓名、计算机成绩和等级；等* 级划分如下：计算机成绩⼤于等于90显⽰"优秀"；60到89* （包括 60和89）之间显⽰"及格"；60分以下显⽰"补考"。
一、数据操纵1．表记录的插入（INSERT）格式：INSERT INTO 表名（字段1，字段2，。
）V ALUES（值1，值2，。
）例1：往选课表中插入一条选课记录（“190101”，“01101”，65）INSERT INTO 选课（学号，课程号，成绩）V ALUES（“190101”，“01101”，65）例2：往选课表中再插入一条选课记录（“190101”，“01103”，），成绩暂时未知。
INSERT INTO 选课（学号，课程号）V ALUES（“190101”，“01101”）格式：INSERT INTO 表名FROM ARRAY 数组名２．表记录的更新（UPDATE）格式：UPDATE 表名SET 字段名1＝值1［，字段名２＝值２］一般使用WHERE子句指定条件，以更新满足条件的记录的字段值，并且一次可以更新多个字段；如果不使用WHERE子句，则更新全部记录。
例１：将学生表中所有云南省学生的入学成绩加上１０分。
UPDATE 学生SET 入学成绩=入学成绩+10 WHERE 籍贯=“云南”例2：将学生表中所有云南省学生的入学成绩加上１０分，性别都改为“女”。
UPDATE 学生SET 入学成绩=入学成绩+10，性别=“女”WHERE 籍贯=“云南”3．表记录的删除（DELETE）格式：DELETE FROM 表名[WHERE 条件]例１：逻辑删除学生表中所有云南省学生的信息。
DELETE FROM 学生WHERE 籍贯=“云南”注意：SQL语言中的DELETE命令同样是逻辑删除记录，如果要物理删除记录，则需继续使用PACK 命令二、数据定义1．表结构的定义（CREATE）CREATE TABLE命令除了建立表的基本功能外，它还包括满足实体完整性的主关键字（主索引）PRIMARY KEY、定义域完整性的CHECK约束及出错提示信息ERROR、定义默认值的DEFAULT等关键词，另外还有描述表之间联系的FOREIGN KEY和REFERENCES关键词。
改错：（1）SELECT 零件名称 FROM 零件信息 WHERE 零件号 = ;(SELECT 零件号 FROM 使用零件;GROUP BY 项目号 HAVING COUNT(项目号) = 3) ;ORDER BY 零件名称 ;INTO FILE results其中，第1行中的"="需改为"IN"；第3行中的"GROUP BY 项目号"需改为"GROUP BY 零件号"；第5行中的"INTO FILE"需改为"TO FILE"。
（2）************程序提供的*************下面代码的功能是根据用户对列表框的选择结果构建字段列表，然后进一步构建select语句并据此为表格的相关属性设值。
*修改所有*** FOUND ***下面的一条语句。
*不能修改其他语句。
不能增加语句，也不能删除语句。
s=""f=.T.*************** FOUND ***************FOR i=1 TO thisform.List1.ColumnCountIF thisform.List1.Selected(i)IF f*************** FOUND ***************s=thisform.List1.valuef=.F.ELSE*************** FOUND ***************s=s+ ， thisform.List1.valueENDIFENDIFENDFORst="select &s from orders into cursor tmp"thisform.Grid1.RecordSource=st******************************错误1：FOR i=1 TO thisform.List1.ColumnCount修改为：FOR i=1 TO thisform.List1.ListCount错误2：s=thisform.List1.value修改为：s=thisform.List1.List(i)错误3：s=s+thisform.List1.value修改为：s=s+","+thisform.List1.List(i)（3）步骤1：打开程序文件two.prg。
2018安徽省计算机专业对口高考程序改错题汇总1.下列程序为求s=1-1/3+1/5-1/7+...-1/99之值,(精确到小数后两位), 程序中有错误。
改正后运行程序，将程序执行结果填入答案框内。
set talk offs=0n=1do while n<=99s=s+1/nn=n+1enddo?sreturnset talk offs=0n=1i=1do while n<=99s=s+i/nn=n+2i=-ienddo?sreturn2.下面的程序是求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加.程序中有一处错误。
改正后运行程序，将程序执行结果填入答案框内。
SET TALK OFFCLEARX=3Y=0DO WHILE .F.Y=Y+XIF Y>500EXITENDIFSTORE 3*X TO XENDDOSET TALK ONRETURNDo while .f. 改为 Do while .t.3.已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。
改正后运行程序，将程序执行结果填入答案框内。
SET TALK OFFI=20N=0DO WHILE I<=80STORE 1 TO S 改为 s=0J=1DO WHILE J<=IS=S+JJ=J+1ENDDOIF MOD(S,17)=0 or mod(s,35)=0N=N+1ENDIFI=I+1ENDDO? NSET TALK ONRETURN4.下列程序为求满足s=1^3+2^3+3^3+...+N^3,当s>=100000的最小的整数N。
程序中有错误。
改正后运行程序，将程序执行结果填入答案框内。
set talk offs=0n=1do while s>=100000 改为s<10000s=s+n^3n=n+1enddo?nreturn5.计算S=1*5*9*13*...*k，直到累乘数k>=25中止。
文本框 PassWordChar 改为 *功能：如果用户输入的用户名和口令一致，则在提示信息后关闭该表单，否则重新输入用户名和口令。
&&**********Error**********************if thisform.text1 = thisform.text2 改为 if thisform.text1.value=thisform.text2.valuewait "欢迎使用……" window timeout 1&&**********Error**********************thisform.close 改为 thisform.releaseelsewait "用户名或口令不对，请重新输入……" window timeout 1endif*检索选课门数大于或等于3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系,*并按平均成绩降序排序,将结果存储到表TEST1中.以下程序有三处错误，请改正SET TALK OFFSET SAFETY OFFSELECT STUDENT.学号, 姓名, AVG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) 选课门数,院系院系;FROM STUDENT, SCORE;WHERE STUDENT.学号 = SCORE.学号;GROUP BY STUDENT.学号 HAVING SUM(课程编号) >= 3; &&*Error* 将sum改为count其他不变ORDER BY 平均成绩 ; &&*********Error******* 改为 order by 平均成绩 descINTO TEST1 SDF &&*********Error******* 改为 into table test1RETURN*检索选课门数是3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系编号,*并按平均成绩降序排序.SET TALK OFFSET SAFETY OFFUSE DATABASE SDB &&****Error***修改本行的语法错误,不许注释掉本行或删除本行将use改为openCREATE VIEW VS1SELECT STUDENT2.学号, 姓名, AVG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) 选课门数, 院系编号;FROM STUDENT2, COURSE2; &&*************Error************* 改为 from student2,scWHERE STUDENT2.学号 = SC.学号 ;GROUP BY SC.学号 HAVING COUNT(课程号) > 3;ORDER BY 成绩 &&*************Error************* 改为 order by 平均成绩 descCLOSE DATABASERETURN*检索同时选修课程号c1和c2的学生的学号*以下程序有三处错误，请改正SELECT 学号;FROM SC ;WHERE 课程号 = 'c1' AND 学号 = ; &&*****Error******* 改为 where 课程号="c1" and 学号 in( SELECT * FROM SC ; &&************Error************改为 (select 学号 from sc;WHERE 学号 = 'c2' ) &&************Error************改为 where 课程号="c2")CLOSE DATABASE检索选修课程门数等于３门或３门以上,每门课程成绩大于或等于７０分的每个学生的，学号,姓名,性别,平均成绩,最低分和选课门数,并将结果存储到表NEW_TEST中．*以下程序有三处错误，请改正OPEN DATABASE SDBSELECT STUDENT.学号,姓名,性别,AVG(成绩) 平均成绩,MIN(成绩) 最低分,COUNT(*) 选课门数;FROM STUDENT,SC;WHILE STUDENT.学号 = SC.学号 AND 成绩 >= 70 ; &&*******Error******** 将While 改为 where 其他不变GROUP BY STUDENT.学号 HAVING SUM(课程号) >= 3; &&*******Error******** 将sum 改为 count 其他不变TO NEW_TEST &&**********Error********** 改为 into table NEW_TESTCLOSE ALLThisForm.标题 = "商品销售数据输入" 改为 thisform.caption="商品销售数据输入"DO sellcomm 改为DO Form sellcommDO print1 TO PREVIEW 改为 report Form print1 PREVIEWSELECT FORM DEPT 改为 SELECT * FROM DEPTDELETE THISFORM 改为 THISFORM.release&&所有器件的单价增加5元UPDATE order_detail1 SET 单价 WITH 单价+ 5 改为 UPDATE order_detail1 SET 单价=单价+ 5&&计算每种器件的平均单价SELECT 器件号,AVG(单价) AS 平均价 FROM order_detail1 ORDER BY 器件号 INTO CURSOR lsb 将 order by 改为 group by 其他不变&&查询平均价小于500的记录SELECT * FROM lsb FOR 平均价 < 500 改为SELECT * FROM lsb where 平均价 < 500UPDATE ALL 日期 WITH DATE() 改为 UPDATE 雇员 set 日期 = DATE()RELEASE THISFORM 改为 thisform.releaseSELECT COUNT((现价-买入价)*持有数量) ; 将count 改为 sum 其他不变FROM stock_sl ;WHERE 股票代码 ;= ; 改为 in(SELECT 股票代码 FROM stock_name ;WHERE "银行" LIKE 股票简称) 将like 改为 $ 其他不变CLOSE ALLOPEN DATABASE 成绩管理USE 选课 IN 0USE 学生 EXCL IN 0***********Error***********MODIFY TABLE 学生 ADD 平均成绩 N(6,2) 改为 alter table 学生 ADD 平均成绩 N(6,2)SELECT 学生***********Error***********DO WHILE EOF() 改为 do while not eof()SELECT AVG(成绩) FROM 选课 WHERE 学号=学生.学号 INTO ARRAY cj***********Error***********REPLACE 平均成绩 = cj[1] 改为 replace 平均成绩 with cj[1]cj[1]=0SKIPENDDOCLOSE DATABASE下面的程序在第2行、第3行、第4行、第5行有错误，请直接在错误处修改。
试卷方案：所有改错和表单题目试卷总分：150分共有题型：2种一、程序改错共10题（共计100分）第1题（10.0分）*-----------------------------------------------*【程序改错】*-----------------------------------------------*题目：下列程序用来产生20个0~100之间的随机整数，* 并找出其中的最大数和最小数，输出时20个随机* 整数*均在一行显示，下一行显示最大数和最小数。
*要求：* (1)将下列程序输入到项目中的程序文件pcode中，并* 对其中的2条错误语句进行修改。
* (2)在修改程序时不允许修改程序的总体框架和算法，* 不允许增加或减少语句的数目。
*------------------------------------------------ DIMENSION A(20)FOR I=1 TO 20A(I)=INT(RAND()*100)ENDFORMmax=A(1)Mmin=A(1)?A(1)FOR i=2 to 20***********FOUND**********?STR(A(I),3) 改为 ??STR(A(I),3)IF Mmax<A(i)Mmax=A(i)ENDIFIF Mmin>A(i)Mmin=A(i)ENDIFENDFOR***********FOUND**********?"最大数是：" + alltrim(str(Mmax)) + "最小数是：" ,Mmin*-------------------------------------------------------*【程序改错】*-------------------------------------------------------*题目：下列的程序的功能是：删除字符串（不包括汉字）中的空格* 并将它按字符从大到小的顺序排列后输出。
VFP程序题（已改）程序改错和填空题选程序设计题选1、谋100以内最小的自然数n，使从1已经开始的已连续n个自然数的倒数之和大于3.5。
settalkoffclears=0forn=1to100s=(s+1)/n废止：s=s+1/nifs>=3.5loop改正：exitendifendfor?n-1settalkonreturn\运行结果：18\2、谋100以内最轻的自然数n，使从1已经开始的已连续n个自然数的倒数之和大于3.6。
settalkoffclears=0forn=1to100s=s+1/nifs<=3.6废止：ifs>3.6loop废止：exitendifendfor?nsettalkonreturn\运转结果：21\3、求50以内最大的自然数n，使得从102开始的连续n个偶数之和小于3000。
settalkoffclears=0forn=1to50a=100+2*ns=s*a改正：s=s+aifs>=3000loop废止：exitendifendfor?n-1settalkonreturn\运转结果：23\4、求50以内最小的自然数n，使得从102开始的连续n个偶数之和大于2000。
settalkoffclears=0forn=1to50a=102+2*n改正：a=100+2*ns=s+aifs>2000loop废止：exitendifendfor?nsettalkonreturn1程序改错和填空题选\运转结果：17\5、求出100以内使得算式1*2+2*3+?+n*(n+1)的值小于5000的最大的自然数n。
settalkoffclears=0forn=1to100a=n*(n+1)s=s+aifs<5000改正：ifs>5000exitendifendforn废止：?n-1settalkonreturn\运行结果：23\6、算出100以内使算式1*2+2*3+?+n*(n+1)的值大于6000的最轻的自然数n。
VFP改错题1．有数据表b05.dbf，其字段为：（字符，C，1）、（次数，N，4），请设计程序：对输入的任何一个西文字符组成的字符串进行处理，如果某个字符已在表中存在，则将次数加1，否则添加一条新记录，将该字符填入到添加的记录中，将次数填为1。
SET TALK OFFCLEARUSE G05DELE ALLPACKACCEPT "请输入只包含西文字符的字符串：" TO SFOR I=1 TO LEN(S)C=SUBS(S,I)LOCATE FOR 字母=CIF NOT EOF()APPEND BLANKREPLACE 字母WITH C,次数WITH 1ELSE次数=次数+1ENDIFENDFORUSESET TALK ONRETURN程序对存放在S中的字符串进行逐个判断，如果该字符不在数据库的“字符”字段，则要添加一条新记录，将该字符填入到添加的记录中，将次数填为1；否则说明该字符已存在，将次数加1即可。
第一处：C=SUBS(S,I,1)或STORE SUBS(S,I,1) TO C 等；第二处：IF EOF()或IF NOT FOUND() 等；第三处：REPLACE 次数WITH 次数+1 等。
2．SET TALK OFFCLEARSELECT ______A=SELECT()@ 6,6 SAY "最小未用的工作区号是："+______USE G02______ TO B@ 8,6 SAY "该数据表中的记录数是:" + STR(B)USESET TALK ONRETURN3．SET TALK OFFCLEARi=0DO WHILE _______accept "请输入口令" to klif kl<>"12345"_______Elsemessagebox("你是合法用户，欢迎进入！")EndifEnddoif i=3messagebox("你是非法用户，禁止进入！")endifSET TALK ONRETURN4．有数据表g51.dbf，其中有英语和名次字段，现要求按英语成绩排序，得到名次并写入表中，注意告诉同名次的现象。
程序改错1、下列中有8大题，081班做前4题，082班做后四题。
2、程序改错题的要求是：原有语句不变，将正确语句用红色字体写在错误语句的右侧，在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
3、交作业时，文件名类似为“公事管08212*** ”，发到相应的班级文件夹下的题号文件夹下。
1、程序改错( 5 分) 下列程序的功能是计算分数数列2/1，3/2，5/3，,, ,m/n,m+n/m 的前20 项之和。
要求：①项目中有一个程序文件Pcode,将下列程序输入到其中并进行修改；②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
nSum=0m=2 &&数列中第一项的分子n=1 &&数列中第一项的分母FOR x=1 TO 20 nSum=nSum+m/n y=m m=m+n n=yENDD(O endfor )WAIT WINDOWS前20 项之和为’+STR(nSum,10,2)2、程序改错( 5 分) 下列程序的功能是统计所有的“水仙花数”的个数，“水仙花数”是指一个三位数，其各位数333字立方和等于该数本身，例如：153=13+53+33)。
要求：①项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改；②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
nCount=0FOR n=100 TO 999 &&n1=VAL(SUBS(STR(n,3),3,1))n2=VAL(SUBS(STR(n,3),2,1))n3=VAL(SUBS(STR(n,3),1,1))IF n=n 1A3+n2T+n3TnCount=nCount+1ENDIFENDFORWAIT WINDOWS “' 水仙花数”的个数为' ，nCount3、程序改错( 5 分)下列程序的功能是统计一个字符串中包括多少个汉字(假设这些汉字均属于GB2312 字符集)，其基本算法是从字符串中依次取一个字符，如果其ASCII 码值大于127，则为一个汉字内码的第一个字节。
1.*题目:输入一个数值(如1998),要求输出一个字符串*(如1998 ---> 一九九八年)SET TALK OFFCLEARC="○一二三四五六七八九"s=""input "x=" to xm=xdo while x>0p=mod(x,10)***********SPACE**********s=substr(c,2*p+1,2)+sx=int(x/10)enddo***********SPACE**********s=s+年***********SPACE**********?m,"--->",s2.*题目:本程序实现：输入一个数，判断是否是素数。
SET TALK OFFCLEAINPUT 'X=' TO XFOR I=2 TO X-1***********FOUND**********IF INT(X/I)=X/I***********FOUND**********exitENDIFENDFOR***********FOUND**********IF I==x? '是素数！'ELSE? '不是素数！'ENDIFSET TALK ON2.题目：编程计算并输出给定整数N的所有因子（不包括1与自身）之和。
例如：n的值为344时，应输出315。
要求用FOR循环实现。
*将结果存入变量OUT中。
SET TALK ONSET LOGERRORS ON? "输入一个整数：n=855"n=855OUT=-1**********Program**********S=0FOR A=2 TO n-1IF MOD(n,A)=0S=S+AENDIFENDFOR?”s=”,sOUT=s********** End **********DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF*题目:本程序实现任意查询功能。
SET TALK OFFCLEAACCEPT '请输入表名：（扩展名略）' TO TNFN=TN+".DBF"***********FOUND**********IF .NOT. FILE(TN)WAIT '此表不存在'ELSEUSE &TN***********FOUND**********ZDSM=fcount()? '此表中的字段有：'+STR(ZDSM)+'个'FOR I=1 TO ZDSM? STR(I)+' '?? FIELD(I)ENDFORENDIFACCEPT '请输入显示表信息的条件表达式：' TO EXP***********FOUND**********LIST FOR &EXPUSESET TALK ON题目：利用循环程序输出图形：(用FOR循环实现)* 1* 222* 33333* 4444444SET TALK OFFSET LOGERRORS ONS=""For n=1 to 4?space(4-n)For m=1 to 2*n-1??str(n,1)EndforSet talk on题目:计算s=1+1/2+1/3+...+1/10的值set talk offclears=1***********SPACE**********i=1do while i<=10***********SPACE**********s=s+1/ii=i+1***********SPACE**********enddo?"s=",sset talk on*题目：本程序求给定两个正整数的最大公约数。
SET TALK OFFCLEAINPUT 'N=' TO NINPUT 'M=' TO MX=MIN(M,N)FOR I=X TO 1 STEP -1IF M/I=INT(M/I) and N%I=0G=I**********FOUND**********exit**********FOUND**********ENDiF ? "最大公约数是", GSET TALK ON题目：下面程序是用一个自定义函数将100内的一个正整数转换为大写数字的程序。
***********SPACE**********Para dC="○一二三四五六七八九十"S=""DO CASECASE D<=10s=substr(c,2*d+1,2)CASE D<=19s=right(c,2)+substr(c,2*mod(d,10)+1,2) ***********SPACE**********otherwiseS=SUBSTR(C,2*INT(D/10)+1,2)+RIGHT(C, 2)+IIF(MOD(D,10)=0,"",SUBSTR(C,2*MO D(D,10)+1,2))ENDCASE***********SPACE**********Return s题目：下面程序是用一个自定义函数将100内的一个正整数转换为大写数字的程序。
***********SPACE**********Para dC="○一二三四五六七八九十"S=""DO CASECASE D<=10s=substr(c,2*d+1,2)CASE D<=19s=right(c,2)+substr(c,2*mod(d,10)+1,2) ***********SPACE**********otherwiseS=SUBSTR(C,2*INT(D/10)+1,2)+RIGHT(C, 2)+IIF(MOD(D,10)=0,"",SUBSTR(C,2*MO D(D,10)+1,2))ENDCASE***********SPACE**********ENDFOR题目:本程序实现：对输入的正整数，判别其中包*含指定数码的个数（如2312132中包含数码1的个数为2）。
SET TALK OFFINPUT '输入数值=' TO MINPUT '输入数码' TO NS=0DO WHIL .T.Y=MOD(M,10)IF Y=NS=S+1ENDIFM=INT(m/10)IF M=0exitENDIFENDdo? SSET TALK ON*题目:输入一个三位数,判断该数是否为水仙花数,所谓水仙花数是指三位数的三个数码的立方和等于该数本身,如153=1^3+5^3+3^3 SET TALK OFFCLEARINPUT "X=" TO XM=XS=0DO WHILE M>0***********SPACE**********P=MOD(M,10)S=S+P^3***********SPACE**********M=INT(x/10)ENDDOIF S=X?X,"是水仙花数"***********SPACE**********else?X,"不是水仙花数"ENDIFSET TALK ON Return s题目：设表RSDA.DBF结构为：学号（C，5），姓名（C，6），职称（C，6）统计出RSDA.DBF 表中职称为"工程师"的人数。
（利用DO WHILE……ENDDO循环语句实现）。
*将人数存入变量Y中SET TALK OFFSET LOGERRORS ONY=-1**********Program**********USE RSDAS=0DO WHILE !EOF()IF 职称="工程师"S=S+1ENDIFContinues/skipENDDO?S /?”工程师”+str(s,3)+”名”Y=SUSEDO YZJ9 WITH Y*题目：下面程序是求1000之内能被3和7整除的个数的程序。
SET TALK OFFX=0***********SPACE**********y=0DO WHIL X<=1000***********SPACE**********if mod(x,3)=0 and mod(x,7)=0Y=Y+1X=X+1LOOPENDIFX=X+1***********SPACE**********enddo? YSET TALK ON*题目:本程序实现：本程序比较从键盘输入的若干个数的大小，*并输出其中的最大和最小数。
SET TALK OFFCLEAINPUT 'M=' TO M***********FOUND**********Store m to d,xDO WHILE .T.INPUT 'N=' TO NIF D<N***********FOUND**********D=nENDIFIF X>NX=NENDIFYN='A'DO WHIL NOT (UPPER(YN)='Y' OR UPPER(YN)='N')W AIT '是否继续（Y/N）' TO YN ENDDOIF LOWER(YN)='n'***********FOUND**********exitENDIFENDDO? '最大的数是：', D? '最小的数是：', XSET TALK ON题目:显示“学生”表中的全部字段名。
其中学生表中有学号、*姓名、性别、出生年月、简历、奖学金、照片等7个字段SET TALK OFFCLEARUSE 学生***********FOUND**********FOR N=1 TO fCOUNT()***********FOUND**********?Fields(N)ENDFOR***********FOUND********** 题目：下面程序是显示输出“学生”表中每个班级的男女同学的奖学金总额的程序SET TALK OFFCLEARSET TALK OFFRETURNUSE 学生INDEX ON 学号TO INN0?"******各班男女奖学金总额统计********" ?"班级男同学奖学金总额女同学奖学金总额"DO WHILE .NOT. EOF()CLASS=LEFT(学号,3)***********SPACE**********store 0 to boys ,girlsDO WHILE LEFT(学号,3)=CLASSIF 性别BOYS=BOYS+奖学金ELSE***********SPACE**********girls=girls+奖学金***********SPACE**********endifSKIPENDDO?CLASS+STR(BOYS,19,2)+STR(GIRLS,19,2)ENDDOUSESET TALK ON*题目:本程序实现：输入三个正数，判定是否构成一个三角形，*如果构成一个三角形，则返回.T.，否则返回.F.。
