是我疯了,还是vfp疯了 后续问题
该段代码所实现的目的,感谢wwwa帮我解决
现在的问题是我想知道
为什么遇到xx等于0.00 或0.01 之后会出现混乱
哪位能不能解释一下
DECLARE aa(6)
FOR x=1 TO 6
DO WHILE .t.
aa=0
xx=RAND()
CLEAR
?xx
IF (xx <0.34) AND (xx>0)
??xx,100*xx,INT(xx*100)
xx=INT(xx*100)
IF xx=0
WAIT
ENDIF
h1=0
IF x>1
FOR h=1 TO x-1
IF xx=aa(h)
h1=h1+1
ENDIF
ENDFOR
ENDIF
ELSE
LOOP
ENDIF
ENDDO
ENDFOR