超星 - 程序2 - 查题吧

简答题

题目：从键盘输入一个表文件名，打开该表，查找”姓名”是”张东”的记录，并显示该记录，最后输出”姓名”是”张东”的记录个数。(设被打开的表中有固定字段”姓名”)P64SET TALK OFFACCEPT TO AUSE &AFOUNDN=1SCAN FOR 姓名= “张东”FOUNDLISTN=N+1ENDSCANFOUND? 记录个数是,NUSESET TALK ON

简答题

程序改错：打开表XSDB.DBF,统计姓张、姓王、姓李,三个姓的学生人数并将人数输出。星号下一行有错误，将正确答案的完整行写出来填写在题目下面相应的空白处。USE XSDBC=0*****FOUNDLOCA 姓名="张".AND."王".AND."李"DO WHILE FOUN( )C=C+1*FOUND****COUNENDDO?CUSE

简答题

程序改错题：将一串ASCII码字符”ABC123”，逆序输出为：321CBA”。FOUND的下一行有错误，请将完整的正确答案填写在题目下面相应空白处。S=”ABC123”?S+”的逆序为：”FOUNDL=STR(S)DO WHIL L>=1??SUBS(S,L,1)FOUND****L=L+1ENDD

简答题

程序改错题：表XSDA.DBF结构为：学号（C，6），姓名（C，6），性别（C，2），入学成绩（N，6，2）。本程序实现按学号查找记录，直到输入”#”为止。FOUND的下一行有错误，请将完整的正确答案填写在题目下面相应空白处。SET TALK OFFUSE XSDAFOUNDACCEPT “请输入要查找的学号” ON XHDO WHILE XH!= “#”FOUNDLOCATE FOR 学号=”CJ”IF FOUND( )?学号,姓名ELSE? “无此学号”ENDIFACCEPT “请继续输入要查找的学号” TO XHFOUND****ENDFOR?”谢谢使用本查找系统”USESET TALK ON

简答题

题目：键盘输入X值时,求其相应的Y值* ┌ -1 (X<0)* │* Y=├ 0 (X=0)* │* └ 1 (X>0)SET TALK OFFFOUNDACCEPT “请输入一个数：” TO XFOUNDDO WHILECASE X<0Y=-1CASE X=0Y=0FOUNDDEFAULT X>0Y=1ENDCASE? YSET TALK OFF

简答题

题目：下面是计算1+1+2+2+…+n+n之和的平方根的程序。SET TALK OFFINPUT TO N*****SPACE【?】FOR I=1 TO NSPACES=【?】ENDFORSPACE****?"结果是",【?】RETURNSET TALK ON

简答题

题目: 下面是计算2+4+6+…+100之和的程序。SET TALK OFF*****SPACE【?】SPACEFOR I=2 TO 100 【?】S=S+IENDFORSPACE****?"结果=",【?】RETURN

简答题

题目: 下面是计算1+3+5+…+99之和的程序。SET TALK OFF*****SPACE【?】SPACEFOR I=1 TO 99 【?】S=S+IENDFORSPACE****?"结果="+【?】4)RETURNSET TALK ON

简答题

题目：从键盘上输入5个数，统计其中奇数的个数。在*FOUND的下一行有错误，直接在错误处改正。SET TALK OFFA=0FOR J=1 TO 5FOUNDaccept TO MFOUND****IF INT(M/2)=M/2A=A+1ENDIFENDFOR? “奇数个数是”,ACANCEL

简答题

题目：求出1到100之间的奇数积、偶数和。SET TALK OFF*****SPACE【?】s2=1FOR I=1 to 100SPACEIF MOD(i,2)=【?】s1=s1+IElseSPACE****s2【?】ENDIFNEXT?" 奇数积为:",s2?"偶数和为:",s1SET TALK ON

2