(程序说明) 程序功能是计算1～10的阶乘。

(程序)

SET TAIK OFF

C．LEAR

N＝1

D．O WHILE N＜11

Y=1(1)

? STR (N，2)+“的阶乘是：”+STR (Y，8)(2)

E．NDDO

SET TAIK ON

RETURN(3)

PARAMETERS N，Y

IF N＞1

D．O FP WITH N-1，Y(4)

E．NDIF

RETURN(1)

A．DO FP WITH N-1，Y

B．DO FP WITH N，Y-1

C．DO FP WITH N，Y

D．DO FP WITH N-1，Y-1

[单选题](程序说明)程序功能是求30!。(程序)SET TALK OFFC．LEARN=1I＝1D．O WHILE (1)(2)N=N+1(3)? ISET TALK ON(1)A．N＜＞30B．N＞30C．N＜30D．N＜＝30

[单选题](程序说明) 计算1～30之间能够被3整除的奇数的阶乘和。(程序)** 主程序SET TALK OFFS=0F．OR I＝1 TO 30 STEP 2IF (4)(5)S＝S+NE．NDIFE．NDFOR?“1到30之间能被3整除的奇数阶乘和为：”+ (6)SET TALK ONRETURN** 过程 P1.PRGPARAMETERS M(7)N=1F．OR J=1 TO MN＝N*JE．NDFOR(8)(4)A．MOD(I，3)>＝0B．MOD(I，3)＞0C．MOD(I，3)＜＞0D．

[单选题](程序)SET TAIK OFFSTORE 0 TO M，ND．O WHILE M＜30N＝N+3M＝M+NE．NDDO? M，NSET TALK ONPETURNM的输出结果为 ______。A．30B．45C．18D．9

[单选题](程序说明)程序功能是计算一个整数的各位数字之和。(程序)SET TALK OFFINPUT“x＝”TO xs＝0D．O WHILE x!=0s＝s+ MOD(x，10)(1)(2)? SSET TALK ON(1)A．x＝INT(x*10)B．x＝INT(x/10)C．x＝x-INT(x/10)D．x＝x-INT(x*10)

[单选题](程序说明) 程序功能是求1到100之间的所有素数。(程序)SET TALK OFFC．LEARJ=2D．O WHILE J＜＝100I＝2D．O WHILE (5)IF MOD(J，I)＝0(6)E．NDIFI＝I+1E．NDDOIF (7)?JE．NDIFJ=J+1(8)SET TALK ONRETURN(5)A．I＞JB．I＞＝JC．I＜JD．I＜＝J

[单选题](程序说明) 求1～10之间的所有整数之和。(程序)SET TALK OFFSTORE 0 TO N，SD．O WHILE (1)N＝N+1S=S+NIF (2)(3)E．NDIFE．NDDO? “ S=”+STR (S，2)SET TALK ONRETURN(1)A．F.B．T.C．N＜＝10D．N＞＝10

[单选题](程序说明) 程序功能是按姓名提供学生成绩的查询。(程序)SET TALK OFFUSE STDA．CCEPT“请输入待查学生姓名：”TO XMD．O WHILE (4)IF (5)?“姓名：”+姓名，“成绩：”+STR (成绩，3，0)E．NDIF(6)E．NDDOSET TALK ONRETURN(4)A．BOF ()B．EOF ()C．NOT. EOF()D．NOT. BOF()

[单选题](程序说明)程序功能是求1!+2!+3!+…+10!的累加和。(程序)SET TALK OFFS＝0F．OR i＝1 TO 10t＝1F．OR j＝1 TO (5)t＝t*j(6)s=s+ tNEXT(7)SET TALK ON(5)A．10B．jC．9D．i

[单选题](程序说明) 程序功能是判断一个自然数是否为质数。(程序)SET TALK OFFINPUT“请输入一个大于1的自然数：” (1)K=0 &&K值为0表示所输入的数是质数，为1表示不是质数J=2D．O WHILE J＜NIF MOD(N，J) (2)(3)LOOPE．LSEK＝1E．XITE．NDIFE．NDDOIF K＝0? (4) +“是质数”E．LSE? “NO!”E．NDIFSET TALK ONRETURN(1)A．ON NB．TO NC．GO ND．INTO N

[单选题](程序说明)程序功能是对任意一个表都可以追加、删除记录。(程序)SET TALK OFFA．CCEPT“请输入文件名：”TO NAMEUSE (9)?“1.追加记录”?“2.删除记录”WAIT“请选择(1—2)：”TO MIF (10)A．PPEND BLANKE．DITE．LSEINPUT“输入要删除的记录号：”TO N(11)D．ELETEPACK(12)USESET TALK ONRETURN(9)A．&NAMEB．NAMEC．表 NAMED．NAME