你好!73不懂那个vfp语言仅代表个人观点,不喜勿喷,谢谢。
CLEARnu=0i=2do while .t.for n=2 to int(sqrt(i))if i%n=0EXITelseIF n=INT(SQRT(i)) .AND. (1000+i)%37=0?inu=1EXITendifendifENDFORIF nu=1EXITENDIFi=i+1enddo
73不懂那个vfp语言