(程序说明) 程序功能是判断一个自然数是否为质数。

(程序)

SET TALK OFF

INPUT“请输入一个大于1的自然数：” (1)

K=0 &&K值为0表示所输入的数是质数，为1表示不是质数

J=2

D．O WHILE J＜N

IF MOD(N，J) (2)(3)

LOOP

E．LSE

K＝1

E．XIT

E．NDIF

E．NDDO

IF K＝0

? (4) +“是质数”

E．LSE

? “NO!”

E．NDIF

SET TALK ON

RETURN(1)

A．ON N

B．TO N

C．GO N

D．INTO N

[单选题](程序说明)程序功能是计算一个整数的各位数字之和。(程序)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)

[单选题](程序说明)程序功能是对任意一个表都可以追加、删除记录。(程序)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

[单选题](程序说明)程序功能是求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

[单选题](程序说明) 程序功能是按姓名提供学生成绩的查询。(程序)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()

[单选题]执行下列程序： CLEAR SET TALK OFF STORE 1 TO i,a,b DO WHILE i＜=3 DO PROG1 ??"P("+STR(i,1)+")="+STR(a,2)+"," i=i+1 ENDDO ??"b="+STR(b,2) RETURN PROCEDURE PROGl a=a*2 b=b+a SET TALK ON RETURN 程序的运行结果为A．P(1)=2，P(2)=3，P(3)=4，b=15B．P(1)=2，P(2)=4，P(3)=6，b

[单选题](程序说明) 程序功能是求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

[单选题]若有如下程序： SET TALK OFF INPUT TO X FOR i=1 TO 3 INPUT TO Y IF Y＞X X=Y ENDIF ENDFOR ?X RETURN 本程序的功能是( )。A．求3个数中的最大值B．求4个数中的最大值C．求3个数中的最小值D．求4个数中的最小值

[主观题]下列程序用于判断一个整数是否为质数，试将程序补充完整。Private Sub Command1_Click()D．im n As Integern = InputBox("请输入")t = Int(Sqr(n))i = 2flag = 0While i ＜= t And flag = 0If ______Thenflag = 1E．lse: i = i + 1E．nd IfWendIf ______ThenPrint "这是一个质数"E．lsePrint "这不是一个质数"E．nd

[单选题](程序)*** 主程序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 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之间的奇数之和