DO WHILE J＜＝3
@I，J SAY “＊” J＝J＋1 ENDDO I＝I＋1 ENDDO
SET TALK ON
程序执行的结果是: 3、SET TALK OFF SM＝200 C＝’1’ T=’SM’
? STR(&T，3)＋C SET TALK ON
程序执行的结果是： 4、SET TALK OFF USE DA
COPY TO DA1
COPY TO DA2 STRU EXTE USE DA2 APPE BLAN
REPL FIELD＿NAME WITH “出生日期”，FIELD＿TYPE WITH WITH 8
CREA DA FROM DA2 APPE FROM DA1 SET TALK OF
程序的功能是：
四、阅读程序，写出程序的执行结果。每输出项4分，共24分。 1、 SET TALK OFF
CH = “？ + －＊／？” Ｎ＝１
DO WHILE N< = LEN (CH) －2 M = SUBSTR (CH,N +1,1) X = 4 &M. N Y = 2 &M. N ?? X &M . Y N = N+1 ENDDO RETURN
程序执行后所显示的结果依次是：
2、*主程序：MALN.PRG
SET TALK OFF
SET PROC TO P123
26
D’，FILED＿LEN ‘
PUBLIC A, B
STORE 1 TO A,B,C DO P1 ? \DO P2 ? \ B ? \ C
CLOS PROC RETURN
*****P123.PRG PROC P1 A=A*2+1 RETU
PROC P2 PRIV C B=B*4+1 C=C*2+1 DO P3 RETU
PROC P3 C=C*2+5 RETU
程序执行后所显示的结果依次是：
3、现有数据库XSDQ. DBF，其记录内容如下： Record # 班级别 年龄
1 A 20
2 A 21
3 A 19
4 B 22
5 B 20
现依次执行如下命令，试写出程序运行结果。 USE XSDA
INDEX ON STR （年龄，2） + 班级 GO TOP ？RECNO （ ），姓名
GO BOTT
27
姓名 程小平 邓金山 刘 刚 高大宣 习有兰 TO XS 性别 女 男 男 男 女
？ RECNO （ ），姓名
INDEX ON 姓别 + STR （30－年龄，2）TO XS GO TOP SKIP 2
？ RECNO （ ），姓名
USE
8、输出下列图形，请把QBASIC程序补充完整。 A BBB CCCCC DDDDDDD EEEEEEEEE K＝ASC（“A”） FOR I＝1 TO 5
FOR J＝1 TO PRINT TAB（6－I＋J）；CHR$（ ） NEXT J
K＝ PRINT NEXT I END
9、下列QBASIC程序是键入任意的三个数时，将按从大到小的顺序输出，请将程序补充完整。
INPUT “A，B，C”；A，B，C IF A＜B THEN SWAP A，B END IF
IF THEN
END IF
IF B＜C THEN SWAP B，C END IF
PRINT A，B，C END
三、读程序（每题15分）
1．写出下面QBASIC程序运行后输出的结果 FOR I＝1 TO 8 Y＝1
FOR J＝1 TO 10
28
FOR K＝1 TO 5 X＝X＋1 Y＝Y＋1 NEXT K NEXT J NEXT I
RPINT “Y＝”；Y END 结果为：
2．写出下面QBASIC程序运行后输出的结果 CLS
DIM A（3，3），B（3，3） FOR I＝1 TO 3
FOR J＝1 TO 3 READ A（I，I） PRINT A（I，J）； NEXT J PRINT NEXT I END
DATA 1，2，3，4，5，6，7，8，9 结果为：
3．在下面FOXBASE＋程序中，要使程序继续循环，变量K的输入值应为 ① WHIE ．T． K＝“Y”
@10，10 GET K READ
IF UPPER（K）$“YN” EXIT ENDIF ENDDO
程序结束后K的值是 ． 4．下列FOXBASE＋程序 SET TALK OFF DIME M(2，3) I＝1
DO WHILE I<＝2 J＝1
DO WHILE J<＝3 M（I，J）＝I*J ?? M（I，J），\ \ J＝J＋1
29
ENDDO ？ I＝I＋1 ENDDO RETURN
运行此程序的结果是 6.阅读下面程序，执行程序后，S= ______。 SET TALK OFF N=10 S=0
.DO WHILE N>0 S=S+N
IF MOD(N,2)=0 N=N+1 ELSE N=N-2 ENDIF ENDDO ? \
12.阅读程序写出运行结果。 *主程序MAIN.PRG SET TALK OFF
SET PROCEDURE TO PROA123 PUBLIC I,J I=1
DO PROC1 ? \ J=1 K=1
DO PROC2 ? \ ? \ SET TALK ON RETURN
*子程序文件PROC123.PRG PROCEDURE PROC1 I=I*2+1 RETURN
PROCEDURE PROC2 PRIVATE J J=I*2+1 K=2*K+1 DO PROC3
30