“确定”命令按钮的click事件代码： Y=\
For i = 100 to 999 a = int(i/100)
b = int(mod(I,100)/10) c = _______③________ If i =a^3+b^3+c^3 Y=______④________ Endif endfor
thisform.text1.value=y ③
(A) mod(i/10) (B) mod(int(i)) (C) i (D) i/10 ④
(A) y+str(I,5) (B) y+I+chr(13) (C) y+I (D) y+str(I,5)+chr(13)
3.有学生数据表(文件名为：XS.dbf) 和成绩数据表(文件名为：CJ.dbf)，如图5（a）（b）所示。
（a） （b）
图5
设计如图6所示表单，表单运行后，在组合框中选择专业“体育”或者“经济”后（组合框中的数据选项采用手工输入），在下方的文本框中显示所选专业学生的不及格人数。选择并完善组合框控件的InteractiveChange事件代码。
201402 二级Visual FoxPro语言笔试试题（A卷） 第 6 页 共 14 页
图6
zy= ⑤
select xs.学号,姓名,成绩 from xs,cj where xs.学号=cj.学号 and 专业=zy ;
into cursor xstemp
select ⑥ from xstemp where 成绩<60 ⑦ thisform.text1.value=rs(1)
⑤
(A) thisform.combo1.caption (B) thisform.combo1.value (C) thisform.combo1.name (D) thisform.combo1.label ⑥
(A) count(*) (B) 人数 as rs (C) 人数 (D) sum(人数) ⑦
(A) into temp rs (B) into cursor rs (C) into array rs (D) to array rs 4.有学生数据表STU.DBF，表中记录如下：
记录号 学号（C） 姓名（C） 性别（C） 年龄（N） 1 201401 张强 男 22 2 201402 王刚 男 24 3 201403 汪霞 女 20 4 201404 吴丽 女 23 5 201405 柳莺 女 21 6 201406 陈鹏 男 20
设计如图7所示的表单，将stu.dbf添加到表单的数据环境中，表单运行后，单击 “统计”命令按钮，分别统计并显示表中男女生平均年龄和男女生人数，选择并完善“统计”命令按钮的click事件代码。
201402 二级Visual FoxPro语言笔试试题（A卷） 第 7 页 共 14 页
图7
“统计”命令按钮的click事件代码： na=0 nv=0 NL1=0 NL2=0
DO WHILE NOT EOF() IF 性别=\男\ ____⑧_____ NL1=NL1+年龄 else
nv=nv+1
NL2=NL2+年龄 ENDIF
____⑨_____ ENDDO
thisform.text1.value=____⑩_____ thisform.text2.value=NL2/nv thisform.text3.value=na thisform.text4.value=nv ⑧
(A) na=na+1 (B) na=1 ⑨
(A) skip -1 (B) skip ⑩
(A) NL1 (B) NL1/2
(C) na=na+2 (C) next (C) NL1/na
(D) na=0 (D) continue (D) na
四、读程序（阅读以下程序，根据程序结果选择一个正确选项，将其填涂在答题卡上。每小题5分，共30分） 1．设计如图8所示表单，表单运行后，在文本框Text1中输入一串中文字符“客上天然居，茶品可清心”（其中逗号为中文逗号），单击命令按钮，文本框Text2中显示的结果是
201402 二级Visual FoxPro语言笔试试题（A卷） 第 8 页 共 14 页
什么，请选择。
图8
命令按钮“Command1”的Click事件代码： X=len(alltrim(Thisform.Text1.Value)) S=\i=x-1
do while i>=1
s=s+substr(alltrim(Thisform.Text1.Value),I,2) i=i-2 enddo
Thisform.Text2.Value=S （A）“居然天上客，清心可品茶” （B）“心清可品茶，居然天上客” （C）“茶品可清心，居然天上客” （D）“心清可品茶，客上天然居”
2．设计如图9所示表单，表单中文本框text1的初值为0，文本框Text2为只读文本框。表单运行后在文本框text1中输入正整数“127”，按回车键，在文本框text2 中显示的结果是什么，请选择。
图9
文本框text1的LostFocus事件代码： x=thisform.text1.value y=\
do while x<>1 r=x%2
y=str(r,1)+y x=INT(x/2)
201402 二级Visual FoxPro语言笔试试题（A卷） 第 9 页 共 14 页
enddo
thisform.text2.value=str(x,1)+y (A) 1111110 (B) 1111111 (C) 1111112 (D) 1111113
3．设计如图10所示表单，表单运行后单击“显示”按钮，列表框List1将显示什么，请选择。
图10
“显示”命令按钮的“click”事件代码如下： THISFORM.LIST1.CLEAR FOR I=5 TO 1 STEP -1 A=SPACE(10-I)
FOR J= 1 TO I*2-1 A=A+STR(J,1) ENDFOR
THISFORM.LIST1.ADDITEM(A) ENDFOR
(A) (B) (C) (D)
4．有一职工工资数据表，文件名为：gzb.dbf。设计一表单，包含一个命令按钮控件和一个编辑框控件，命令按钮的click事件代码如下：
Thisform.edit1.value=\
Select * from gzb order by 基本工资 desc into dbf jxb Go top
Do while !Eof() If 基本工资>2000
Thisform.edit1.value=Thisform.edit1.value+姓名 Exit
201402 二级Visual FoxPro语言笔试试题（A卷） 第 10 页 共 14 页