*??????问题描述得并不准确!???????????????
LOCAL i,c,n,nZero
STORE 0 TO nZero
FOR i = 1 TO 7
c = STR(i,1)
n = p&c
DO CASE
CASE !BETWEEN(n,0,1)
? "P&c不在0-1范围内!"
CASE n = 0
nZero = nZero + 1
CASE n <= 0.30
? "P&c: 0-0.30"
CASE n <= 0.50
? "P&c: 0.30-0.50"
CASE n <= 0.70
? "P&c: 0.50-0.70"
OTHERWISE
? "P&c: 0.70-1"
ENDCASE
ENDFOR
?"0的个数:",nZero