(程序)

SET TALK OFF

XQ=“天一二三四五六”

D．O WHIL .T.

INPUT“X＝” TO X

X=IIF(X＞0 AND X＜366，MOD(X+2，7)+1，IIF(X＝0，0，8))

D．O CASE

C．ASE X=0

?“结束”

E．XIT

C．ASE X=8

?“输入有错”

LOOP

OTHERWISE

?“星期” +SUBSTR(XQ，2*X—1，2)

E．NDCASE

E．NDDO

SET TALK ON

当输入X值为210时，输出结果为 ______。

A．星期一

B．星期二

C．星期四

D．星期六

[单选题](程序)SET TALK OFFC．LEARSTORE .T. TO XSTORE 0 TO YD．O WHILE XY=Y+1IF INT(Y/5)= Y/5?? YE．LSELOOPE．NDIFIF Y＞15STORE .F. TO XE．NDIFE．NDDOSET TALK ONRETURN第一次输出Y值为 ______。A．5B．6C．7D．8

[单选题]执行下列程序： SET TALK OFF STORE 0 TO X,Y DO WHILE X＜6 X=X+Y Y=Y+2 ENDDO ?X,Y SET TALK ON RETURN 在屏幕上显示的输出结果是( )。A．8 8B．6 8C．4 6D．6 6

[单选题]执行下列程序：SET TALK OFFSTORE 0 TO X,YD．O WHILE X＜6X=X+YY=Y+2E．NDDO? X,YSET TALK ONRETURN在屏幕上显示的输出结果是( )。A．88B．68C．46D．66

[单选题](程序)SET TALK OFFC．LEARX=3D．O WHILE .T.X=X+1IF X＝INT(X/3)*3? XE．LSELOOPE．NDIFIF X＞10E．XITE．NDIFE．NDDOSET TALK ONRETURN当变量X的值第一次变化时，X的输出结果为 ______。A．3B．6C．8D．12

[单选题](程序)SET TALK OFFC．LEARPUBLIC X，YX＝5Y=3D．O SUB? X，YSET TALK ONRETURNPROCEDURE SUBPRIVATE XX＝1X=X*2+1Y=5RETURNX的输出结果为 ______。A．5B．6C．8D．3

[单选题]有如下一段程序： SET TALK OFF A=1 B=0 DO WHILE A<：100 IF．NOT．A/2=INT(A/2)B=B+A ENDIF A=A+1 ENDD0 ？ 8 SET TALK ON RETURN 该程序的功能是（ ）。A． 求1到100之间的累加和B． 求1到100之间的累加和除以2的商C． 求1到100之间的偶数之和D． 求1到100之间的奇数之和

[单选题]下列程序的运行结果是 SET TALK OFF STORE 0 TO S N=20 DO WHILE N＞S S=S+N N＝N－2 ENDDO ?S RETURNA．0B．2C．20D．18

[单选题](程序)*** 主程序SET TALK OFFC．LEARSTORE 100 TO X，Y，ZSET PROCEDURE TO GC1D．O PROCl WITH X，Y? X，Y，ZSET PR()CEDURE TOSET TALK ONRETURN*** 过程PROCEDURE PROC1PARAMETER M，NM=M+100N＝N+100RETURNX的输出结果为 ______。A．100B．200C．300D．400

[单选题](程序)SET TALK OFFS＝0I＝1D．O WHILE I＜4A．CCEPT “请输入字符串：”TO XIF“A” ＄ XS＝S+1E．NDIFI＝I+1 ENDDO? SRETURN运行时输入：“abcd”、“aBCD”，输出S的值为 ______。A．3B．2C．1D．0

[单选题](程序)SET TALK OFFC．LEARINPUT“N=”TO NINPUT“M=”TO MX=MIN(N，M)F．OR I＝X TO 1 STEP -1IF M/I＝INT(M/I)AND N/I=INT(N/I)Y1=IE．XITE．NDIFE．NDFOR?“Y1=”+ALLTRIM(STR(Y1，19))+“，Y2＝”+ALLTRIM(STR(M，N)/Y1，19))SET TALK ON若输入N、M的值分别为6，8，则Y1的输出结果为 ______。A．0B．1C．2D．3