X1=\X2=\
Y=O
DO WHILE I<=3
X = VAL( LTRIM ( Xl ) +REPLICATE( X2 ,I)) J=l
DO WHILE J<=2 DO EXA WITH X Y=Y+Z J=J+1 ENDDO M=M+J
?\ ??\ ??\ I=I+1 ENDDO SET TALK ON RETURN 子程序 :EXA. PRG PARAMETERS F IF MOD( F,4)= 0 Z=MOD( F,4) ELSE Z=MOD( F,6) ENDIF RETURN
运行上面的程序，显示的结果为：_ ___ 4.有如下FoxBASE+程序 SET TALK OFF CLEAR L=2
计算机专业理论试题 第13页 共 24页
C=30
DO WHILE L< = 8
IF L<>2. AND. L<>5. AND. L<>8 @L,C SAY\ ELSE
@L,C SAY\ ENDIF
L=L+1 C=C+1
ENDDO SET TALK ON
运行上面的程序，显示的结果为：_ ___
5．有学生成绩库XSCJ. DBF，字段为：学号(C，10)，姓名(C，8)，数学(N，3，O)，英语(N,3,0)，数据库数据如下：
Record# 1 2 3 4 5
学号
姓名
数学 英语
0811060101 肖天海 80 90 0811060202 王岩盐 65 95 0811060203 刘星魂 75 85 0811060105 0811060208
张月新
92 75
李明玉 78 65
其中：学号的前8位为班级编号。 有如下FoxBASE+程序：
SET TALK OFF CLEAR USE XSCJ
SORT ON学号TO CJ DO WHILE. NOT. EOF()
STORE O TO PYSCJ,PSJCJ,YM,SM BJBM =SUBSTR(学号，1,8) NBJ=O YM=英语
USE CJ
计算机专业理论试题 第14页 共 24页
SM=数学
DO WHILE SUBSTR(学号，1,8)= BJBM
IF数学 SM=数学 ENDIF IF英语 YM=英语 ENDIF PYSCJ= PYSCJ+英语 PSJCJ= PSJCJ+数学 NBJ=NBJ+1 SKIP ENDDO ? BJBM, \ ENDDO CLOSE DATABASE SET TALK ON 七、程序改错(本大题共2小题，每题5分，共10分。) 1．有两个字符串X$=\ABCDEKG\和Y$=\BDFC\，每个字符串中都没有重复出现的字符，把Y$中的字符插入到x$中。插入方法：从Y$中取出一个字符，然后在X$中查找，若有相同字符,就把它放在该相同字符后，若找不到则放在X$的后面，然后从Y$中取下一个，直到全部处理完，最后x$中的内容为”ABBCDDEKGGF”。程序中有两行错误，请将改正后的全行写在答题纸上。 10 X$= \ 20 Y$= \ 30 L2= LEN(Y$) 40 FOR I=l TO L2 50 C$= MID$( X$,I,1) 60 L1=LEN( X$) 70 FOR J=l TO Ll 80 IF C$= MID$( X$ ,J,1)THEN X$= MID$( xs,1,J)+ C$ + MID$(X$,J+1):GOT0 100 90 NEXT J 95 IF J<= Ll THEN X$=X$+C$ 计算机专业理论试题 第15页 共 24页 100 NEXT I 110 PRINT X$ 120 END 2．有两个一维数组a和b,a中有10个数据，现输入一个数c，然后在a中查找是否有与c相同的数,将a数组中不等于c的数据依次存人数组b中，最后若数组b中的数据与数组a中的数据完全相同,则不输出数组b，否则输出数组b中有数据的元素。程序中有两行错误，请将改正后的全行写在答题纸上。（注：15行（含）以前不做修改） 5 DATA 2,4,6 ,4.6,8,7,6,9,8 10 DIM a(10)，b(10) 15 j=0 20 FOR i=l T0 10 30 READ a(i) 40 NEXT i 50 INPUT c 60 FOR i=l T0 10 70 IF a(i)= c THEN b(j)= c:j=j+l 80 NEXT i 90 lF j>0 THEN GOT0 130 100 FOR i=l TO j 110 PRINT b(i) ; 120 NEXT i 130 END 第Ⅲ卷（以下两题选做一题，共35分） （注：第八题、第九题考生任选一题作答。如果两题全做，按照第八题得分计） 八、程序填空（本大题共7个空，每空5分，共35分。按程序要求在答题纸上填入相应的内容，使程序完整正确） 1．数组a有11个不同的元素，现输入数据b，在数组a中查找是否存在该数据，有则打印出所在的位置（排序后的位置），无则打印0。查找方法：先把数组a由小到大排序，再用数据b 计算机专业理论试题 第16页 共 24页