回复 120楼 独木星空
几点小建议程序代码:
* 建议一 y0=0 y1=0 y2=0 y3=0 y4=0 y5=0 y6=0 y7=0 y8=0 y9=0 y10=0 && 改成下面语句 DIMENSION yy[11] && yy数组取代变量y0~y10 FOR i=1 TO alen(yy) yy[i] = 0 ENDFOR * 建议二 ys=MOD(hz,11) DO CASE CASE ys=0 y0=y0+1 CASE ys=1 y1=y1+1 CASE ys=2 y2=y2+1 CASE ys=3 y3=y3+1 CASE ys=4 y4=y4+1 CASE ys=5 y5=y5+1 CASE ys=6 y6=y6+1 CASE ys=7 y7=y7+1 CASE ys=8 y8=y8+1 CASE ys=9 y9=y9+1 CASE ys=10 y10=y10+1 ENDCASE && 改成下面语句 ys=MOD(hz,11) yy[ys+1] = yy[ys+1] + 1 * 建议三 SELECT 1 &&打开盛放素数式的表 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 0 &&将B值付给素数式 REPLACE 统计 WITH y0 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 1 &&将B值付给素数式 REPLACE 统计 WITH y1 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 2 &&将B值付给素数式 REPLACE 统计 WITH y2 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 3 &&将B值付给素数式 REPLACE 统计 WITH y3 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 4 &&将B值付给素数式 REPLACE 统计 WITH y4 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 5 &&将B值付给素数式 REPLACE 统计 WITH y5 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 6 &&将B值付给素数式 REPLACE 统计 WITH y6 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 7 &&将B值付给素数式 REPLACE 统计 WITH y7 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 8 &&将B值付给素数式 REPLACE 统计 WITH y8 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 9 &&将B值付给素数式 REPLACE 统计 WITH y9 &&将B值付给素数式 APPEND BLANK &&增加一条空记录 REPLACE m余 WITH 10 &&将B值付给素数式 REPLACE 统计 WITH y10 &&将B值付给素数式 && 改成下面语句 FOR i=1 TO alen(yy) INSERT INTO 模m余数统计 (m余,统计) VALUES (i-1,yy[i]) ENDFOR
[此贴子已经被作者于2021-10-9 16:46编辑过]