素数是指除了1和本身不能被任何数整除的数。请将3到100间的素数添加到LIST1中。

PRIVATE SUB FORMCLICK

  FOR I = 3 TO

     F=0

     FOR J= 2 TO I-1

       IF THEN

        F=1

        EXIT FOR

       END IF

     NEXT J

  IF F=0   THEN

 

 END SUB