VFP璁捐�￠�樺強鍏剁瓟妗?- 鐧惧害鏂囧簱

THISFORM.TEXT3.VALUE=SHI THISFORM.TEXT4.VALUE=GE ELSE

THISFORM.RELEASE ENDIF

51、2009-6-13（2220003）

N=THISFORM.TEXT1.VALUE S=0

FOR I=1 TO N IF I%2=0 S=S+I ENDIF ENDFOR

THISFORM.TEXT2.VALUE=S 52、2009-6-13（2220006）

N=THISFORM.TEXT1.VALUE S=0

FOR I=1 TO N IF I%2<>0 S=S+I ENDIF ENDFOR

THISFORM.TEXT2.VALUE=S 53、2010-6-14（7020003）

N=THISFORM.TEXT1.VALUE S=0

FOR I=1 TO N

IF I%5=0 AND I%2<>0 S=S+I ENDIF ENDFOR

THISFORM.TEXT2.VALUE=S 54、2010-6-14（7020005）

17

N=THISFORM.TEXT1.VALUE S=0

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

18

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 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

19

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）

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

20