16 现有一职工表已打开，按工资建立的索引文件也打开，要将记录指针定位在第一个工资
大于1000的记录命令是（D）
A seek工资1000 B find工资1000C locate工资1000D locate for 工资1000
17在VFP命令窗口中，要创建一个数据库，应该用命令（B ）
AcreateBcreate databaseC open database D create table
20将当前表单上个对象的值刷新的命令是（B）
Athisform .showB thisform.refresh
C thisform.releaseD thisform.visible=.t.
二二二二．．．．读程序读程序读程序读程序，，，，写结果写结果写结果写结果
1阅读下面的程序，根据要求写出结果
Clear
S=0
K=1
Do while k<=20
Ifmod(k,5)=0
S=s+k
Endif
K=k+2
Enddo
s,k
(1) 程序循环的次数是（C）
A 20 B2C 10D5
（2）最够s,k的值是（B）
A 1820 B 2021
C 19 10D20 12
2 下面是一个住程序调用子程序，请根据要求写出结果
*主程序zu.prg
Clear
X=”abc”
Y=”xyz”
Do sub1
x,y
*子程序sub1.prg
Private y
X=30
Y=50
x.y
return
(1) 主程序种的？x,y输出的结果是（C）
A 3050B abcxyz
C 30xyzD abc 50
(2) 子程序种的x,y 输出的结果是（A）
A 3050B abc xyz
C 30xyzD abc 50
3 下面程序中用到的表xkk.dbc的内容如下
学号姓名 年龄 籍贯学生来源
200301李小虎19上海 上海
200302周华18江苏 广州
200303王永富19重庆 成都
200304王晓晓21武汉 武汉
阅读下面程序，根据要求填空
Clear
Sele a
Use xkk
Copy stru to jjk fields 姓名，年龄，学生来源
Sele b
Use jjk
Use a
Do while .not. eof()
If 年龄=19
Sele b
Append blank (追加一条空白记录)
Repl 姓名 with a-年龄 ，学生来源 with a-.学生来源
Endif
Sele a
Skip
Enddo
Close all
(1) 该程序的功能是C
A产生一新表 B将xkk表中的年龄在19及以上的记录添加至jjk表中C产生一新的表
文件jjk.dbf，并将xkk.dbf表中年龄为19岁及以上的记录的姓名，年龄，学生来源添加至
jjk.dbf表文件中 D产生一新的表文件，并将xkk.dbf表中年龄大于19岁的记录的姓名，
年龄，学生来源添加至jjk.dbf表文件中
（2）新产生的表jjk.dbf中有（D）记录
A4 B2 C1 D3
4以下程序使用的教工档案表jgda.dbf和工作量表work.dbf，表中数据如下
教工档案表
编号姓名 职称 实发工资
00021孙学东 副教授0.00
00030高娟 讲师0.00
00020林静之 助教0.00
00023刘克忠 教授0.00
00017陆平 讲师0.00
00018张河 助教0.00
工作量表
编号基本工资工作量
00021839 200
00030750 180
00020205 50
00023950 240
00017784 170
0001820550
阅读下面的程序，回答问题
Clear
Sele 1
Use work
Inde on 编号to bh
Sele 2
Use jgda
Set rela to 编号 into a
Do while .t.
Accept“请输入姓名” to xm
If.not.eof()
Iflen(alltrim(xm))=0
Exit
Endif
Locate for 姓名=xm
If.not.eof()
姓名，职称，a-工作量
endif
wait“是否继续（Y/N）” to yn
if lower(yn)=”y”
loop
exit
endif
enddo
(1) 该程序的功能是（c）
A按编号查询B按姓名查询
C按姓名jgda表中进行顺序查询
D按编号在WORK表中进行顺序查询
（2）程序中索引关键字和索引文件名分别是d
A编号，bh,cdx B编号，bh.dbf
C姓名,xm.idxD编号，bh.idx
（3）退出 循环有几种方式（b）？
A1 B2C3 D该循环是死循环
（4当屏幕出现“是否继续（Y/N？）”时，若要继续查询可输入（d）
A大写字母YB小写字母y
C大写字母N或小写n
D大写字母Y或小写y
（5）如果程序中的locate for 姓名=xm语句改成find &xm ,程序运行将（c）
A功能不变B程序功能要改变
C出现“表没有设置排序索引”的提示对话框
D程序一点都不执行
6下面程序用到的表文件为第四题的表文件
Clear
Sele1
Use work
Index on 编号 to bh
Sele2
Use jgda
Set relation to 编号 into a
Locate for 职称=“讲师”
？姓名，职称，a-基本工资
use jgda
locate for 职称=“讲师”
cont
姓名，职称，a-基本工资
close all
(1)程序执行到第一个？命令时，屏幕显示的结果时（b）
A高娟讲师 839 B高娟 讲师 750
C高娟讲师 0D高娟讲师 784
（2）程序执行到第二个？命令时，屏幕显示的结果是（b）
A陆平 讲师 839 B陆平 讲师 750
C陆平 讲师 0 D陆平 讲师 784
三三三三、、、、程序填空题程序填空题程序填空题程序填空题
Clear
__use stud_
Do while .t.
Clear
__2__
@8,10 say “学号：“ get 学号
@8,30 say “姓名：“ get 姓名
@10,10 say “出生日期：“ get 出生日期
___3____
Wait “继续输入吗（Y/N？）to yn
If upper(yn)=”N”
Exit
Endif
Enddo
2 下面程序完成打印九九乘法表，程序有多处空，请完善
1*1=1
1*2=2 2*2=4
1*3=3 2*3=6 3*3=9
…….
1*9=9 2*9=18.
Clear。