第一套参考答案
一、单选题
1~5 A C D C A 6~10 D B B C A 11~15 D D B A B 10~20 B A B B D 21~25 C D B B D 26~30 C C A C B 31~35 D A A B C 36~40 C A A A D 二、判断题
1~5 ×××√× 6~10 √××√× 三、填空题
① int(x/100) ② x
③ 学号=xh ④ thisform.label3.caption=姓名 ⑤ i=2 ⑥ i=i+1 ⑦alltrim(str(n)) ⑧ zf(数学，语文) ⑨ skip ⑩ sx+yw 四、读程序
1、Text1: 李四 text2: 王五
2、label2: p(2)=4 p(3)=16 label3: b=22 3、s(0)= 0.00 S(10)= 50.00 S(20)= 250.00
4、第一次： 节日已过去7天 第二次： 距离节日还有-1天 五、程序设计 thisform.list1.clear use xs
xh=alltrim(thisform.text1.value) locate for 学号=xh if found()
thisform.label3.caption=姓名
sele 课程名,成绩 from xs,xk where xs.学号=xk.学号 and xs.学号=xh into dbf xx use xx scan
thisform.list1.additem(课程名)
thisform.list1.additem(str(成绩,5,1)) endscan else
thisform.label3.caption=\查无此人！\ endif close all
第二套
一 单选（36） 1 2 3 4 5 6 7 D A C B B C B 16 17 18 19 20 21 22 C A B A C A C 31 32 33 34 35 36 D C A A B C 二 判断题（10） 1 2 3 4 5 6 7 T T T F F F F 三 填空（20） 1 Desc 2 Go bottom 3 笔试+上机 4 Rename 5 Ts.总编号=jy.总编号 四 读程序写结果（4*6=24） 1 钱进进 453 2 及格 良好 不及格 8 B 23 D 9 C 24 D 10 A 25 A 11 D 26 C 12 A 27 D 13 C 28 C 14 B 29 C 15 C 30 A 8 F 9 F 10 T 6 7 8 9 10 Month(借书日期)=1 Avg(入学成绩) Into A+b>c and b+c>a and a+c>b Str(s0,8,2) 3 4 12 10 8 6 4 2 11
第三套
一 单选（36） 1 2 3 4 5 6 C C B D D C 16 17 18 19 20 21 A C C B B B 31 32 33 34 35 36 B D A B C D 二 判断题（10） 1 2 3 4 5 6 T T F F T T 三 填空（20） 1 Count（*） 2 班级数 DESC 3 Exit 4 Str(m,5) 5 Mod(y,5)=0 四 读程序写结果（4*6=24） 1 汪五 40 3 2 5 7 12 17 4 五 程序设计题（10） 7 D 22 C 7 F 8 B 23 A 8 F 9 C 24 A 9 F 6 7 8 9 10 10 A 25 C 10 T Array aa Dtoc(借阅日期) Thisform.text1.value Found()或not enf() “查无此人” 11 A 26 B 12 B 27 D 13 B 28 C 14 A 29 B 15 B 30 A 钓鱼岛 f 1 钓鱼岛是中国领土 I=6 j=5 n=this.value k=0
do while n<>1 if n%2=0
thisform.edit1.value= thisform.edit1.value+str(n)+”/2=”+str(n/2)+chr(13) n=n/2 else
thisform.edit1.value= thisform.edit1.value+str(n)+”*3+1=”+str(n*3+1)+chr(13) n=n*3+1 endif k=k+1 enddo
thisform.text2.value=k
第四套
第五套
一、单选 20分
BCCCB CCCDB BCDAC ACDAB 二、? √判断 ?10 分
? √ √ ? ? √ ?
三、
填空20分
1、①B ②C 2、③C ④B 3、⑤C ⑥A 4、⑦D ⑧C 5、⑨B ⑩A 四、读程序写结果30分
1、D 2、D 3、A 4、A 5、B 6、B 五、写程序20分 1、参考程序 S=0 N=0
FOR i=1 to 100 If i%8=0 S=s+i N=n+1 Endif Endfor
Thisform.text1.value=s Thisform.text2.value=s/n 2、参考答案
Bh=alltrim(thisform.combol1.value)
Select 姓名,研究方向 from dsb where 导师编号=bh into array x Thisform.label3.caption=x(1) Thisform.label5.caption=x(2)
Select 学号,姓名AS 学生姓名,性别,所在院系 from xsb where Thisform.label3.caption=x(1) =bh into cursor temp
Thisform.grod1.recordsource=”temp”
导师编号
VFP练习册(第四版)参考答案
