超星 - 程序2 - 查题吧

填空题

题目：显示所有100以内的6的倍数的数,并求这些数的和。;SET TALK OFFI=1*****SPACE【?】DO WHILE I<=100SPACEIF MOD(【?】)=0?IS=S+ISPACE****【?】I=I+1ENDDO? "S=",SRETURN

填空题

题目:求1到50的累加和（S=1+2+3+...+50）并显示。*****SPACE【?】I=1SPACEDO WHILE【?】H=H+ISPACE****【?】ENDDO? HRETURN

填空题

编写程序，求出1到100之间的奇数的平方和。clears=0x=1*****SPACEDO WHILE x【?】SPACEs=【?】SPACE****x=【?】ENDDO?s

填空题

题目：以下程序通过键盘输入4个数字，找出其中最小的数。SET TALK OFF*****SPACE【?】INPUT "请输入第一个数字" TO XM=XDO WHILE I<=3INPUT "请输入数字" TO XSPACEIF 【?】M=XENDIFSPACE****【?】ENDDO? "最小的数是",MSET TALK ON

填空题

功能:求1到100之间的奇数之和、偶数之和，并将奇数之和存入S1、偶数之和存入S2显示输出。请在【】处添上适当的内容，使程序完整。*注意：本题中，不允许使用不等于运算符 .SET TALK OFFi=1stor 0 to s1,s2do while i<=100*****SPACEif 【?】s1=s1+iSPACE【?】s2=s2+iendifSPACE****【?】ENDD?S1,S2SET TALK ONRETURN

填空题

题目：编写程序prg2，功能为求1+2+3+4+……+100的值P53clearn=1i=0*****SPACEDO WHILE n【?】SPACEi=【?】SPACE****【?】ENDDO?iReturn

填空题

题目:求0-100之间的偶数之和，超出范围则退出。clea*****SPACEstor 0 to 【?】SPACEdo whil【?】i=i+1if mod(i,2)=0SPACE****【?】endifenddo?S

填空题

题目:统计300到600之间（包括300和600）能被3整除的数的个数。GS=0N=300*****SPACEDO WHILE 【?】IF MOD(N,3)=0SPACE【?】ENDIFSPACE****【?】ENDDO? "300到600之间（包括300和600）能被3整除的数的个数为",GSRETURN

简答题

程序改错：通过字符串变量操作先竖向显示”伟大祖国”，再横向显示”祖国伟大”。星号的下一行有错误，将正确答案的完整行写出来填写在题目下面相应的空白处。STORE “伟大祖国”TO XYCLEA*****FOUNDN=0DO WHILE N<8?SUBS(XY,N,2)N=N+2ENDDO?*FOUND****??SUBS(XY,4,4)??SUBS(XY,1,4)

简答题

程序改错题：统计RSH.dbf中职称是教授、副教授、讲师和助教的人数。FOUND的下一行有错误，请将完整的正确答案填写在题目下面相应空白处。USE RSHFOUNDSTORE 1 TO A , B , C , DDO WHILE .NOT.EOF ( )DO CASECASE 职称 = “教授”A = A + 1CASE 职称 = “副教授”B = B + 1CASE 职称 = “讲师”C = C + 1CASE 职称 = “助教”D = D + 1ENDCASEFOUND****NEXT 1ENDDOUSE? A,B,C,D

3