RETURN

7、下面一段程序，执行的结果是_____4000________。 CLEAR A=2000 B=”2000” M=’A’ ?&M+&B RETURN

8、在下面的填空号处，填上程序运行的结果。 *main.prg CLEAR all CLEAR

PUBLIC A,B,C,

STORE 5 TO A,B

?”调用过程前A、B、C的值：”

?A,B,C ________5___5.f._________ DO SUB1

?”调用过程后，A、B、C、G的值：”

?A,B,C,G __10___5___.f.____15_________ RETURN *过程SUB1

PROCEDURE SUB1 PRIVATE B,C

STORE 10 TO A,B,C SUB2() RETURN ENDPROC * 过程SUB2

FUNCTION SUB2 PUBLIC G G=15 RETURN ENDFUNC

三、分析题（本大题共10空，每空2分，共20分） 完成程序的编写。

1、编写过程proc1：计算N! Procedure proc1(n) S=1

For i=1 to n

____s=s*i__________ Endfor ?n,”!=”,s Endproc

2、编写过程proc2：计算1+2+3+…+n

Procedure proc2(m) sum=0

For i=1 to m

__sum=sum+i____________ Endfor

Return sum Endproc

3、下面的程序是打印出3~1000之间的所有素数，请在空白处填入适当的内容。 CLEAR

FOR I=3 TO 1000 STEP 2 M= INT(SQRT(I)) J=2

DO WHILE J____<=m________ IF I %J=0 EXIT ENDIF J=J+1 ENDDO IF J>M

??_____i________ ENDIF ENDFOR RETURN

4、设有学生成绩表：XSCJ.DBF(学号 C（8），姓名 C（6），班级 C（4），语文 I，数学 I，外语 I，计算机 I，总分 I， 名次 I)。总分和名次字段目前都无值。下面的程序用来计算学生的总分及名次，要求：总分自高到低降序排列；总分最高者名次为第一名；总分相同者名次并列。程序不全，请在下划线的地方填上适当的内容将程序补全。 *排名次 CLEAR

USE XSCJ EXCLUSIVE

REPLACE __all____________ 总分 WITH 语文+数学+外语+计算机