《VFP6.0程序设计》

IF SUBS(THISFORM.LIST1.VALUE,1,1)=”1” COPY STRU TO TRIM(THISFORM.TEXT1.VALUE) ELSE COPY FILE TO TRIM(THISFORM.TEXT1.VALUE) ENDIF USE

图五 此题有两处错误，请找出并改正。

48

2004年11月的VFP试题答案：

一、

1．B 2．C 3．D 4．C 5．C 6．A 7．A 8．B 9．A 10．A 11．C 12．A 13．C 14．B 15．D 16．D 17．B 18．B 19．C 20．B 21．D 22．B 23．C 24．D 25．C 二、

1．C 2．A 3．D 4．C 5．C 6．D 7．A 8．C 9．A 10．B 11．B 12．A 13．D 14．B 15．D 16．D 17．D 18．C 19．C 20．D 21．A 22．C 23．B 24．D 25．B 三、

1．2 4

1 3 2．7 8 3．59 53 4．1 0 0 5．computer

6．第一次：-10 第二次：1 四、 1．（1）考试成绩 TO PJF （2）KSCJ=60

（3）KSCJ>=PJF+5 2．（4）T*N （5）1 （6）2 3．（7）THISFORM.COMBO2.LISTINDEX = 0 （8）NOT FOUND() （9）获奖学金=.T. 4．（10）1000

（11）THISFORM.TIMER1.ENABLED=.F. （12）THISFORM.REFRESH 五、

1． 第4行改为A=RIGHT（A，1）

第7行改为S=S+N

49