这只是求出一个数是不是质数的程序
CLS
INPUT N
F=1
FOR I=2 TO SQR(N)
IF N MOD I=0 THEN F=0
NEXT I
IF F=1 THEN PRINT"YES" ELSE PRINT"NO"
END