循环结构~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

先来个简单的：
检验Q是否为素数
1.n=2
2.如果Q 可以被n整除则到7.，否则到3.
3.n=n+1
4.如果n>=q则到6.否则到2.
5.到1.
6.Q为素数
7.Q为和数

当然这个效率是很低的，发个程序吧

CLS
DIM z(10000)
PRINT "start ?"
INPUT ""; k
j% = 1
z(1) = 2
PRINT " "
PRINT "2";
FOR i = 2 TO k
k$ = INKEY$
s = 0
FOR o = 1 TO j%
IF i MOD z(o) = 0 THEN s = s + 1: o = j%
IF z(o) * z(o) > i AND s = 0 THEN o = j%
NEXT o
IF s = 0 THEN
j% = j% + 1
z(j%) = i
PRINT ; ","; i;
END IF
IF k$ = "q" THEN i = k
NEXT i
PRINT "Finding over !"
PRINT "Totall found "; j%
END