发布时间 : 星期二 文章VFP考试复习范围 - 图文更新完毕开始阅读
FOR I=1 TO N IF I=6 S=S+I ENDIF ENDFOR
THISFORM.TEXT2.VALUE=S 55、2010-12-26(1720005)
N=THISFORM.TEXT1.VALUE S=0
FOR I=1 TO N FOR J=2 TO N-1 IF I%J=0 EXIT ENDIF ENDFOR IF I=J S=S+1 ENDIF ENDFOR
THISFORM.TEXT2.VALUE=S
56、2010模拟题0020001
N=0 S=0
IF THISFORM.OPTIONGROUP1.VALUE=1 FOR I=100 TO 200 IF I%7=0 N=N+1 ENDIF ENDFOR
THISFORM.TEXT1.VALUE=N ELSE
FOR I=100 TO 200 IF I=0 S=S+I ENDIF ENDFOR
THISFORM.TEXT1.VALUE=S ENDIF
21
57、2010-12-26(1720001)
2010-12-26(1720003) N=THISFORM.TEXT1.VALUE S=0
FOR I=100 TO N BAI=INT(I/100)
SHI=INT((I0)/10) GE=INT(I0) IF I=BAI^3+SHI^3+GE^3 S=S+1 ENDIF ENDFOR
THISFORM.TEXT2.VALUE=S 58、2010模拟题0020005
在“求阶乘”的CLICK事件中编写如下代码:
N=THISFORM.TEXT1.VALUE
IF N>=1 (可用IF !EMPTY(N)替代)
P=1
FOR I=1 TO N P=P*I ENDFOR
THISFORM.LABEL3.CAPTION=STR(P) ELSE
THISFORM.LABEL3.CAPTION=\请先正文本框中输入一个正整数!\ENDIF
59、2009-12-26(2220009)
N=THISFORM.TEXT1.VALUE
22
IF N>=100 AND N<=999 A=INT(N/100) B=INT(N0/10) C=INT(N0) D=A+B+C ELSE
D=\输入有误\
ENDIF
THISFORM.TEXT2.VALUE=D
60、2009-12-26(2220002)
X=THISFORM.TEXT1.VALUE DO CASE CASE X>5 Y=COS(X)-2
CASE X>=-5 AND X<=5 Y=(2+ABS(X))/5 CASE X<-5 Y=2*X-3
ENDCASE
THISFORM.TEXT2.VALUE=Y 61、2009-12-26(2220003)
N=THISFORM.TEXT1.VALUE DO CASE
CASE N>=85 AND N<=100 M=\优秀\
CASE N>=60 AND N<85 M=\合格\
CASE N<60 AND N>=0 M=\不合格\ OTHERWISE M=\非法数据\
ENDCASE
THISFORM.TEXT2.VALUE=M 62、2009-6-13(2220004)
23
A1=THISFORM.TEXT1.VALUE B1=THISFORM.TEXT2.VALUE A2=THISFORM.TEXT3.VALUE B2=THISFORM.TEXT4.VALUE C=A1*B1+A2*B2 IF C<300
D=ROUND(C,0) ELSE
D=ROUND(C*0.9,0) ENDIF
THISFORM.TEXT5.VALUE=D
63、2009-12-26(2220001)
A1=THISFORM.TEXT1.VALUE B1=THISFORM.TEXT2.VALUE A2=THISFORM.TEXT3.VALUE B2=THISFORM.TEXT4.VALUE C=A1*B1+A2*B2 IF C<800
D=ROUND(C,0) ELSE
D=ROUND(C*0.9,0) ENDIF
THISFORM.TEXT5.VALUE=D 64、2010模拟题0020002
24