程序设计.docx
《程序设计.docx》由会员分享，可在线阅读，更多相关《程序设计.docx（38页珍藏版）》请在冰豆网上搜索。
程序设计
一、选择题
1.读下列程序：
k=1
DOWHILEk<=21
k=k+2
?
STR（k,2）
IFk=9
EXIT
ENDIF
ENDD
（1）程序循环了多少次______。
A）4B）3C）6D）5
（2）程序执行的结果是______。
A）1357B）2468
C）3579D）1234
2.读下列程序：
CLEAR
STORE1TOI,J
DOWHILEJ<5
@I,JSAY"*"
J=J+1
ENDDO
CANCEL
（1）屏幕显示的起始坐标为______。
A）1,5B）i,jC）0,0D）1,1
（2）程序执行后，i,j的值分别为______。
A）1,5B）i,jC）0,0D）1,1
3.读下列程序：
I=0
DOWHILEI<10
IFINT（I/2）=I/2
I=I+3
ENDIF
I=I+2
ENDDO
?
I
RETU
（1）上述程序执行后，共循环了______次。
A）10B）5C）4D）死循环
（2）上述程序执行后，屏幕显示为______。
A）10B）11C）9D）13
4.读下列程序：
USEGZ
Y='Y'
DOWHILEY$'Yy'
CLEA
ACCE'请输入姓名'TOXM
INDEXON职称TOZXFOR姓名=ALLT（XM）
L=3
M=10
DOWHILE.NOT.EOF（）
@L,MGET姓名
@L,M+20GET基本工资
L=L+2
SKIP
ENDDO
WAIT‘下一个（Y/N）？
’TOY
ENDDO
USE
RETU
（1）这个程序的功能是______。
A）输入B）查询（C）修改（D）统计
（2）程序中变量Y的作用是______。
A）控制整个程序循环B）把指针指向下一条记录
C）等待D）没有作用
5.读下列程序：
USEXSDA
N=1
XH="200201"
DOWHILEN<=120
APPENDBLANK
REPL学号WITHSTR（VAL（XH）+N,6）
N=N+1
ENDDO
USE
CANCEL
（1）上述程序数据库中，“学号”这个字段是______。
A）字符型B）数值型C）日期型D）逻辑型
（2）该程序的功能是______。
A）修改表文件的字段
B）修改表文件原有记录中学号字段的值
C）增加表文件的字段
D）追加新记录并填充学号字段的值
（3）程序运行到最后，变量N的值是______。
A）1B）120C）121D）0
PROCEDURESUB1
PRIVZ1
Z1=10
X1=300
Y1=2
?
'B处:
',X1,Y1,Z1
Z1=1
RETURN
6.读下列程序：
*MAIPROGRAM
CLEA
CLEARALL
X1="工资-100"
Y1=200
Z1=100
DOSUB1
?
'A处:
',X1,Y1,Z1
X1=1
Y1=2
Z1=3
DOSUB2WITHX1,Z1+10,10
?
'C处:
',X1,Y1,Z1
CANCEL
PROCEDURESUB1
PRIVZ1
Z1=10
X1=300
Y1=2
?
'B处:
',X1,Y1,Z1
Z1=1
RETURN
PROCEDURESUB2
PARAX1,Z1,Y1
X1=X1+10
Y1=Y1+10
X1=X1+10
RETURN
（1）程序显示A处的X1，Y1，Z1值分别为______。
A）300200100B）3002100
C）30020010D）300210
（2）程序显示B处的的X1，Y1，Z1值分别为______。
A）30020010B）300200100
C）3002100D）300210
（3）程序显示C处的的X1，Y1，Z1值分别为______。
A）212030B）21203
C）21230D）2123
7.有学生信息表XS.DBF文件，其结构和记录如下：
记录号学号姓名年龄性别入学日期出生地
1Y001李明21男09/01/99重庆
2Y002林雨20女09/01/99成都
现有一程序段：
DIMENSIONX（3）
USEXS
SCATTERTOX
X
（1）="A003"
X
（2）="曾真"
X（3）=19
APPENDBLANK
GATHERFROMX
LIST
RETURN
（1）运行结果X数组的数据元素的个数是______。
A）0个B）3个C）6个D）1个
（2）LIST显示记录中，最后一条记录的姓名字段值是______。
A）字段值为空B）林雨C）李明D）曾真
8.现有表文件STUD.DBF，表中有：
学号（C/6），姓名（C/8），性别（C/2），出生日期（D/8）等字段，并有记录若干条，根据已有的表文件运行下面程序：
SETTALKOFF
CLEAR
USESTUD
INDEXONTRIM（姓名）TOISTUD
S=.T.
DOWHILES
XM=SPACE（8）
ACCEPT‘请输入姓名:
’TOXM
IFLEN（TRIM（XM））=0
EXIT
ENDIF
SEEKXM
IF.NOT.EOF（）
@3,10SAY“学号”
@3,20SAY学号
@5,5SAY“姓名”+姓名
@7,5SAY“性别”+性别
@9,5SAY“出生日期:
”
@9,20SAY出生日期
ELSE
@20,3SAY“没有找到该姓名的学生”
S=.F.
ENDIF
WAIT
ENDDO
CANCEL
（1）程序中的索引关键字和索引文件名分别为______。
A）学号,STUD.DBFB）姓名,ISTUD.DBF
C）学号,ISTUD.IDXD）姓名,ISTUD.IDX
（2）程序中用SEEK进行______查找。
A）顺序B）条件C）索引D）范围
（3）执行EXIT命令的条件是_______。
A）输入姓名后直接按键
B）未输入姓名就按键
C）输入姓名，又按空格键，再按键
D）输入姓名为0后按键
9.读下列程序：
CLEAR
FORK=1TO4
A="$"
FORJ=1TOk
A=A+STR（K,1）
ENDFOR
@K,5SAYA
ENDFOR
WAIT
RETURN
（1）程序运行的结果是______。
A）$1B）$1
$22$22
$122333$333
$4444
C）$122333D）$
（2）程序运行到WAIT处，变量K与J的值分别是______。
A）1,1B）4,4C）4,1D）5,5
10.读下列程序：
A=“Abcde”
N=LEN（A）
I=1
DOWHILEI<=N
B=SUBSTR（A,I,1）
IFISLOW（B）
B=CHR（ASC（B）-32）
A=STUFF（A,I,1,B）
ENDIF
I=I+2
ENDDO
?
A
RETURN
（1）程序运行的结果是______。
A）abcdeB）ABCDEC）abCdED）AbCdE
（2）程序循环的次数是______。
A）5B）4C）3D）6
11.读下列程序：
USE学生
I=1
FILEN=””
DOWHILEI<=9
FILEN=”S”+STR（I,1）+”.DBF”
COPYTO&FILEN
I=I+1
ENDDO
USE
（1）程序运行的结果是______。
A）无结果B）拷贝了1个文件
C）拷贝了9个文件D）拷贝了10个文件
（2）拷贝所产生的新文件名是______。
A）S.DBFB）FILENC）&FILEND）S1.DBF~S9.DBF
12、已知proc.prg程序清单如下：
（12）A
n=10
t=15
S=1
M=0
DOproc_1WITHn
M=M+S
DOproc_1WITHT
M=M+S
?
M
CANC
proc_1.prg程序清单如下：
PARAMETERSa
S=1
FORK=1TOA
S=S*K
ENDFOR
RETURN
程序proc.prg的功能是
（1）A）输出N和T的乘积B）输出N和T的阶乘
C）输出N和T的阶乘之和D）输出N和T的值
（2）在程序中变量S是（）
A）全局变量B）私有变量C）本地变量D）局部变量
13、有如下程序段：
USECLASS
LOCATEFOR政治面目="团员"
DOWHILEFOUND（）
DISPLAY
CONTINUE
ENDDO
该程序的功能是：
（）
（1）A）显示团员的一条记录B）显示非团员的一条记录
C）显示团员的所有记录D）显示非团员的所有记录
（2）该程序退出循环的条件是（）
A）FOUND（）函数返回值为真B）FOUND（）函数返回值为假
C）与FOUND（）函数的值无关D）EOF（）函数返回值为真
14、有如下程序段：
DOCASE
CASEX>100
?
?
"1"
CASEX>200
?
?
"2"
OTHERWISE
?
?
"3"
ENDCASE
（1）若在X=300的情况下执行这个程序段，屏幕上将显示
A）1B）2C）12D）3
（2）输入下列什么数据时，屏幕上将显示字符3
A）100B）200C）300D）400
15、有如下教师授课表：
教师号主讲课程
t1101数据结构
t1102C语言
t1103网页制作
t1104计算机网络
t1105计算机网络
t1105C语言
t1105数据库
下列程序段的输出结果是
CLOSEDATA
a=0
USE教师
GOTOP
DOWHILE.NOT.EOF（）
IF主讲课程＝"数据结构".OR.主讲课程＝"C语言"
a=a+1
ELSE
DISP
ENDIF
SKIP
ENDDO
?
a
A）3B）4C）5D）6
（2）命令DISP一共显示的记录条数是：
A）3B）4C）5D）6
16如下程序显示的结果是（）。
s=1
i=0
dowhilei<8
s=s+i
i=i+2
enddo
?
s
（1）S的值为（）
A）10B）11C）12D）13
（2）程序循环次数为：
（）
A）3B）4C）5D）6
17读程序
1、CLEAR
M=0
FORX=1TO10
IFMOD（X,3）=0
M=M+X
ENDIF
ENDFOR
?
M
RETURN
（1）该程序的功能是：
求1到10之间（）
A.能被3整除数的个数B.能被3整除数的和
C.不能被3整除数的个数D.不能被3整除数的和
（2）该程序执行的结果是：
（）
A.3B.10C.18D.37
18、&&MAIN.PRG&&P1.PRG
X1=1PARAW1,W2
X2=2PRIVATEW1
DOP1WITHX1,X2W1=W1*3
?
’X1=’+STR（X1,1）W2=W2*4
?
?
’X2=’+STR（X2,1）RETURN
X1=1
X2=2
DOP1WITHX1,X1+X2
?
’X1=’+STR（X1,1）
?
?
’X2=’+STR（X2,1）
RETURN
（1）第一次显示X1，X2的值是（）
A.1,8B.3,8C.1,1D.8,8
（2）第二次显示X1，X2的值是（）
A.1,2B.3,1C.3,2D.1,3
19、
CLEAR
CLOSEALL
USE学生
COUNTTOX
GOTOP
FORI=1TOX
IF性别=’男’
DISP
ENDIF
SKIP
ENDFOR
CLOSEALL
（1）该程序的功能是：
（）
（1）A）显示一条男同学的记录B）显示一条女同学的记录
C）显示所有男同学的记录D）显示所有女同学的记录
（2）程序退出循环的条件是（）
A）记录指针指向文件尾B）记录指针指向文件头
C）循环次数大于表中记录条数D）循环次数小于表中记录条数
20、CLEAR
DIMEA（20）
P=1
FORN=1TO20
INPUT“请输入数据：
“TOA（N）
ENDFOR
FORL=1TO19
FORM=L+1TO20
IFA（L）<=A（M）
T=A（L）
A（L）=A（M）
A（M）=T
ENDIF
ENDFOR
?
?
A（I）
ENDFOR
（1）程序完成的功能是将20个数组元素值（）
A．排序后按从大到小的顺序输出
B．排序后按从小到大的顺序输出
C．倒序输出D.按自然顺序输出
（2）将DIMEA（20）改成DIMEA（10）后，（）
A．出现“数组重复定义”的错误
B．出现“数组下标越界”的错误
C．程序功能不变，只是输出10个数组元素值
D．程序功能不变，仍然输出20个数组元素值
21、
CLEAR
CLOSEALL
USE学生
SCAN
IF性别=’男’
DISP
ENDIF
N=N+1
ENDSCAN
？
N
CLOSEALL
CANC
（1）A）该程序显示一条男同学的记录B）该程序显示一条女同学的记录
C）该程序显示全班同学的记录D））该程序显示全班男同学的记录
（2）命令？
N显示的是（）
A）男同学的记录个数B）女同学的记录个数
C）全班同学的记录个数C）无法确定
22、阅读下面程序：
CLEAR
OPENDATABASEemplorer
USEcompen
SCANFORRECNO（）<=10
IF姓名=’李强’
LOOP
ENDIF
?
姓名，实发工资
ENDSCAN
USE
CLOSEDATABASE
（1）compen是：
（）
A．自由表B．数据库表 Ｃ．数据库
Ｄ．可能是自由表，也可能是数据库表
（2）若数据库有50条记录，则程序的功能是：
（）
A．前10条记录中搜索“李强”的记录B．列出前10条记录
Ｃ．每10条记录一屏显示记录，但不显示“李强”的记录
Ｄ．列出前１０条记录，但是不显示“李强”的记录
23、CLEAR
N=10
FORJ=1TO3
?
STR（J,2）+’）’
?
?
SPACE（6*J）
FORK=1TO3-J+1
?
?
STR（J*K,6）
N=N+2
ENDFOR
?
ENDFOR
RETURN
（1）输出的图形为：
（）
A.1）1B.1）123C.1）123D.1）123
2）242）242）242）468
3）3693）33）33）91215
（2）程序结束时，N的值是：
（）
A.22B.9C.10D.15
24、阅读下面程序：
CLEARALL
STORE1TOJ，K
DOWHILEK<5
@J,KSAY“*”
K=K+1
ENDDO
RETU
（1）屏幕的其始坐标为（26）
（A）1，5（B）0，0（C）1，1（D）任意
（2）程序执行后J，K的值是（27）
（A）1，5（B）5，5（C）0，0（D）1，1
25、设表文件XS.DBF有10条记录，程序如下：
USEXS
GOBOTTOM
N=3
DOWHILEN>=1
DISPLAY
SKIP-1
WAIT
N=N-1
ENDDO
USE
RETURN
（1）程序的功能是（28）
（A）显示所有记录（B）分别显示前3个记录
（C）显示第3个记录（D）分别显示后三个记录
（2）退出循环后，N的值是（29）
（A）0（B）1（C）3（D）4
26、阅读下面程序
USESB
SORTTORQXON启用日期/DFIELDS编号，名称，启用日期FORNOT主要设备
USERQX
LIST
USESB
SORTTOBMXON部门/D，价格FOR主要设备
USEBMX
LIST
RETURN
（1）程序执行到第一个LIST命令时，输出结果是（）
（A）将主要设备按编号，名称，启用日期分别升序排序。
（B）将主要设备按编号，名称，启用日期分别降序排序。
（C）将非主要设备按启用日期降序排序。
（D）将非主要设备按启用日期升序排序。
（2）程序执行到第二个LIST命令时，输出结果是（31）
（A）将主要设备按部门升序排序，当部门相同时，按价格降序排序。
（B）将主要设备按部门降序排序，当部门相同时，按价格升序排序。
（C）将主要设备按部门降序排序，当部门相同时，按价格升序排序。
（D）将主要设备按部门升序排序，当部门相同时，按价格降序排序。
27阅读下面程序：
CLEA
clear
store1toi
store2toj,k
doa1
?
"i="+str（i,2）+"j="+str（j,2）+"k="+str（k,2）
proca1
i=3*i+2
privatei
i=2*j+k
?
"i="+str（i,2）+"j="+str（j,2）+"k="+str（k,2）
retu
RETURN
（1）主程序中“doa1”后的显示语句显示结果为：
（）
（A）i=6j=7k=2（B）i=5j=7k=2
（C）i=5j=2k=2（D）i=6j=8k=2
（2）过程a1中的显示语句将显示：
（）
（A）i=6j=7k=2（B）i=5j=7k=2
（C）i=5j=8k=2（D）i=6j=2k=2
28、共有3个数据库文件TB1.DBF,TB2.DBF,TB3.DBF,下面程序功能是把每个库文件的末尾记录删掉。
阅读下面的程序，将程序填写完整。
N=1
DOWHILEN<=3
TB=“TB“+STR（N，1）
USE&TB
GOBOTTOM
DELETE
PACK
N=N+1
ENDDO
（1）该程序的功能是（）：
（A）将数据表的末记录作物理删除（B）将数据表的末记录作逻辑删除
（C）将数据表的首记录作物理删除（D）将数据表的首记录作逻辑删除
（2）该程序一共删除了（）表中的记录
（A）1个（B）2个（C）3个（D）4个
29阅读下面程序：
有图书数据表TS和订书单表DSD如下：
TS：
（书号：
C3，单价：
N6.2书名C10）
书号单价书名
00112.0计算机应用
00210.0化学
00315.0分析化学
DSD：
（班级：
C6，书号：
C3，数量：
N3.0,款项：
N7.2）
记录号班级书号数量款项
1化95.4001470.00
2数94.3002740.00
3物96.4003670.00
4生95.4002470.00
5地94.3001670.00
6物94.3002670.00
7数94.3001740.00
8化95.4003470.00
9数94.3003740.00
程序：
CLEAALL
SELE1
USETsALIASSHU
INDEXon书号tagTSSH
SELE2
USEdsdaliasshdn
SETRELATO书号INTOSHU
REPLALL 款项WITH数量＊shu.单价
LIST
DOWHIL.T.
ACCE“输入0退出”TOBJ
IFBJ=’0’
EXIT
ENDI
ACCE“输入书号”TOSH
LOCATFOR书号=SH
DISP
ENDI
？
“书号”+书号+str（款项）+”元。
”
ENDD
cleaall
RETURN
（1）dowhile循环中locate操作的表是：
（）
（A）数据表TS（B）数据表DSD
（C）系统临时表aaa（D）系统临时表cursoraaa
（2）运行时输入书号“003”，则输出为：
__（_
（A）分别显示书号为“003”的所有款项
（B）显示书号为“003”的所有款项之和
（C显示书号为“003”的第一条记录的款项
（D）输入错误，没有输出
30、阅读下面程序：
CLEAR
T=65
R=20
INPUT“请输入图形的行数N=”TON
I=1
DOWHILEI<=N
J=1
DOWHILEJ<=2*I-1
@I,J+RSAYCHR（T）
J=J+1
IFJ<=I
T=T+1
ELSE
T=T-1
ENDIF
ENDDO
I=I+1
R=R-1
T=65
ENDDO
RETURN
（1）运行程序后输出图形（）。
（A）A（B）A
BBBABC
CCCCCABCDE
DDDDDDDABCDEFG
EEEEEEEEEEEEABCDEFGHIJ
…………………………………
（C）AA
ABABAB
ABCBACBABC
ABCDCBADCBABCD
ABCDEDCBAEDCBABCDE
……………………………………
（2）语句@I,J+RS
升级会员 