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