数据库操作程序.docVIP

*【程序填空】 *题目:显示输出图形： * *** ***** *请在【】处添上适当的内容，使程序完整。 CLEA I=1 DO WHILE I=3 ?SPAC(10-I) J=1 DO WHILE J=2*I-1 ***********SPACE********** 【?】 ***********SPACE********** 【?】 ENDDO ***********SPACE********** 【?】 ENDDO 答案： 1). ??* 2). J=★J+1 或 J=★1+J 3). I=★I+1 或 I=★1+I *题目:求1到100之间的奇数之和、偶数之和，并将奇数之和 * 存入S1、偶数之和存入S2显示输出。请在【】处添上适当的内 * 容，使程序完整。 i=1 stor 0 to s1,s2 do whil i=100 ***********SPACE********** if 【?】 s1=s1+i ***********SPACE********** 【?】 s2=s2+i endif ***********SPACE********** 【?】 ENDD ?S1,S2 答案： 1). MOD★(I,2)★0 或 INT★(I,2)★★I/2 或 I%2★0 或 MOD★(I,2)★#0 或 INT★(I,2)★#I/2 或 I%2★#0 2). ELSE 3). I=I+1 或 I=1+I 〖第4题〗『程序填空』(5分)(题号:2) *题目: 下面程序是计算1+3+5+…+99之和的程序。 * 请在【】处添上适当的内容，使程序完整。 SET TALK OFF ***********SPACE********** 【?】 ***********SPACE********** FOR I=1 TO 99 【?】 S=S+I ENDFOR ***********SPACE********** ?结果=,【?】 RETURN SET TALK ON 答案： 1). s=0 2). step★ 2 3). s 或 str(s) 或 str(s,4) *【程序填空】 题目:实现:求0-100之间的奇数之和，超出范围则退出。请在【】 * 处添上适当的内容，使程序完整。 clea ***********SPACE********** stor 0 to 【?】 ***********SPACE********** do whil【?】 i=i+1 if mod(i,2)=0 ***********SPACE********** 【?】 endif enddo ?S 答案： 1). I★,S 2). I★100 或 100★I 或 I=★99 或 99★=I 3). S=★S+I 或 S=★I+S *【程序填空】 *题目:求1到50的累加和（S=1+2+3+...+50）并显示。请在【】处添上 * 适当的内容，使程序完整。 ***********SPACE********** 【?】 I=1 ***********SPACE********** DO WHILE 【?】 H=H+I ***********SPACE********** 【?】 ENDDO ? H RETURN 答案： 1). H=0 2). I=★50 或 51★I 或 50=★I 或 I★51 3). I=★I+1 或 I=★1+I *题目:实现:求0-100之间的奇数之和，超出范围则退出。请在【】处 * 添上适当的内容，使程序完整。 X=0 Y=0 DO WHILE .T. X=X+1 DO CASE ***********SPACE********** CASE 【?】 LOOP CASE X=100 ***********SPACE********** 【?】 OTHERWISE Y=Y+X ENDCASE ***********SPACE********** 【?】 ? 0-100之间的奇数之和为: , Y RETURN 答案： 1).