第一题FOR i = 100 TO 2000cl = len(alltrim(str(i)) t = 0 FOR j = 1 TO clt = t + VAL(SUBSTR(ALLTRIM(STR(i)),j,1))^3 ENDFOR IF t = i? i ENDIF ENDFOR 第二题sum0 = 0FOR i = 1000 TO 9998 STEP 2 t = 0 FOR j = 1 TO 4t = t + VAL(SUBSTR(ALLTRIM(STR(i)),j,1)) ENDFORIF t % 15 = 0sum0 = sum0 + t ENDIF ENDFOR ?sum0第三题h = 100t = hn = 1DO WHILE .t. IF t > 678? nEXIT ENDIFn = n + 1 h = 0.75 * h t = t + 2 * hENDDO 第四题n = 0&& n需赋初始值 for x=10 to 100 if mod(x,7)=0 or mod (x,9)=0 && 逻辑关系错n=n+1 && 计数错 end if end for ?n && 输出错第五题set talk off clear s=0 && 初始值错for n=1 to 50000 step 3 s=s+n
&& 求和错if s>50000 exit
&& 应为退出，不是循环endif && endif中间不能空格endfor&& for循环结束应为endfor?n set talk on return 第六题看不明白题目：“以知24有8个正整数。。。”第七题：(此题内容已经补充，但VFP中用y'做变量是不允许的，建议改为其它名字)set talk on n=0 for x=1 to 39 y' = 200 - 5 * x y=int(y') if y=y' n = n + 1endif endfor
|
