VFP 6.0的一些小东东

从来没有玩过什么VFP，今天一个同学让我帮忙做题目，必须用VFP完成，真的很无聊，硬着头皮，搞了一点点东西，现在想想以前的这些老东西，也挺有意思的。

 

随机函数：

Rand()

好像调用之前必须要用一个Rand(-1)来初始化一下，不然每次随机的结果可能都是一样。这个函数返回0到1之间的一个小数，希望取得整数的话，请在结果上*你想要的整数位， 例如10000以内的整数，Rand() * 10000。

没有什么函数可以取到素数，所以自己写了一个：

 

PROCEDURE COL3_DATA

PRIVATE I, J

USE RESULT

I = 2
DO WHILE .NOT. eof()
    REPLACE COL3 WITH I
    SKIP 1
    IF eof() THEN 
        EXIT
    ENDIF
    I = I + 1
    DO WHILE .T.
        FOR J = 2 TO I - 1
            IF I % J = 0 THEN 
                EXIT
            ENDIF
        NEXT 
        IF J = I THEN
            EXIT
        ELSE
            I = I + 1
        ENDIF
    ENDDO
ENDDO

USE

RETURN

 

这是一个循环，从2一直向后算，我的RESULT表里面是10000条记录，也就是计算出10000个素数来。