RETURN
PROCEDURE PROC3 K=K*K RETURN
MAIN.PRG 运行结果是I= __________ ，J= _________ ，K= ___________ 。
20.有程序段如下: STORE 0 TO X,Y DO WHILE.T. X=X+1 Y=Y+X IF X＞=100 EXIT ENDIF ENDDO
?\
这个程序是计算______的,执行后的结果是______。
2.执行如下命令序列 .USE STUDENT .LIST
Record# 姓 名 学号 年龄 性别
1 李 红 098765 20 男 2 王 菩 123456 19 男 3 赵 师 345678 21 女 4 刘 知 863745 18 男 5 钱 生 374951 20 女 6 杨 博 903278 18 女 .INDEX ON 年龄 TO STU .FIND 20 .SKIP
.DISP 姓名
最后一条命令显示的学生姓名是______。 3.有如下一段程序:
INPUT \请输入当前日期:\ ?RQ+29
在执行本程序时，用户应当输入______，显示结果才是:12/27/98。 4.有如下一段程序: SET STATUS OFF SET COLOR TO/G CLEAR X=79
SET COLOR TO/R DO WHILE X＞39
31
@ 0,X TO 23,X CLEAR
@ 0,79-X TO 23,79-X CLEAR X=X-0.2 ENDDO()
执行本程序的屏幕效果是___________________.
15.有程序段如下: STORE 0 TO X,Y DO WHILE.T. X=X+1 Y=Y+X IF X＞=100 EXIT ENDIF ENDDO
?\
这个程序是计算______的,执行后的结果是______。
3.阅读下列程序，并填写运行结果。 SET TALK OFF CLEAR
STORE 1 TO N STORE 20 TO M DO WHILE N<=M IF MOD(N,2)=0 N=1+N^2 M=M+1 ELSE
N=N+1 ENDIF ENDDO ? N ? M
SET TALK ON RETURN
运行结果N的值是__________，M的值是____________。
1.有如下程序： store 'name' to s
s=lower(s)+str(len(s),1) t='孙猴子' x='桃子'
a=substr(t,1,4)+substr(t,at('y',x)2)
32
?'&a,吃&x'
回答：(1)内存变量s的值为_________
(2)程序的最后输出结果为_________ 2.set talk off x=0 y=0
do while x<20 x=x+1
if int (x/2)=x/2 loop else
y=y+x endif enddo
?\ set talk on return
程序运行结果是_______
四、写出以下程序运行的结果(每小题6分，共18分) 1.10 FOR I=1 TO 5 20 READ A(I)
30 PRINT TAB (I); A(I) 40 NEXT I 50 RESTORE
60 PRINT TAB(I);A(I) 70 DATA 0,1,2,1,2 80 END
2. 10 A $=\ 20 FOR I=1 TO 5 30 FOR J=1 TO 2*I 40 PRINT TAB(J);
50 PRINT MID$(A$,I,1); 60 NEXT J 70 PRINT 80 NEXT I 90 END
3. SET TALK OFF CLEAR N=1
DO WHILE N<7 M=1
DO WHILE M<2*N @N,20-N+M SAY \ M=M+1
33
ENDDO N=N+1 ENDDO
SET TALK ON RETURN
2． 阅读程序，并给出运行结果： SET TALK OFF CLEAR
STORE 1TO X STORE20 TO Y DO WHILE X＜＝Y
IF INT （/2）＜＞X／2 X＝1＋X~2 Y＝Y＋1 LOOP ELSE
X＝X＋1 END IF END DO ？X ？Y
SET TALK ON RETURN
运行结果X的值 ，Y的值是 。 4．已知有如下程序。
＊ main.prg *子程序sub.prg
set talk off para半径，周长，面积 半径＝2 周长＝2＊3．14＊半径 周长＝3 面积＝3．14＊半径＊半径 面积＝4 return do sub with面积，周长，半径 ？“半径＝”，半径，“周长，“面积＝”，面积
执行main.prg后，主程序最后的输出语句的结果为： 半径＝ ，周长＝ ，面积＝ 1．写出下列程序的运行结果（16分） * AZ.PRG主程序 set talk off
store 5 to A, B, C do Azl WITH A, B, C ? A, B, C set talk on return
34
*AZ1.PTG
PARA A1, B1, C1 A1=B1+C1 B1=A1+C1 C1=A1+B1 ？A1!,B1,C1
DC AZ2 WITH A1,B1,C1 ?A1,B1,C1 RETURN
*AZ2.PRG子程序2 PARA A2,B2,C3 RETURN
⑴该程序的运行结果为：（1 六、程序分析题（3*6=18分） 1 store 0 to i, s do while .t. if s<50 i=i+3 else exit endif s=s+i enddo ? i, s return
程序运行后输出的i和s的值分别为________和________。 2 clear
dimension a(12) a=0
for i=1 to 12
@ i, 1 say \ read endfor x=a(1)
for i=2 to 12 if a(i)>x x=a(i) endif endfor ? x return
3 SET TALK OFF Clear
35
Dime A（6） K=2
Do while k<=6 A(k)=20-2*k K=k+1 Enddo K=5
Do while k>=2 A(k)=a(k)/a(4)-10) K=k-1 Enddo ?a(1),a(6) set talk on return
运行程序后屏幕上输出的结果为 。36