我有个自己写的简单的privatesubform_load()fori=1to1000ifnot(imodsqr(i))=0thenprintiendsub我只要判断这个数是否能够不被自己的开平方除净就可以了``就拿17和16做次实验17modsqr(17)=sqr(17)所以不能够被除净所以是素数16modsqr(16)=0sqr(16)=44能够被16整除所以不是素数