VB语句中的for循环语句这么运用?

for i=3 to 10000 ‘查找质数for j=2 to i-1x=i mod j if i<>0 then exit for '如果除了1和本身,还能被任意小于本身的一个数整除,那么此数不是指数,并跳出循环,进行下一个数的判断esle ‘如果一个数不能被所有小于它的数整除,那么这个数就是质数pds=1 ‘质数累加的判断数,等于1时,质数个数累加1 end ifnext jif pds=1 theny=y+1 ‘质数个数累加1end ifnext i ‘指数查找结束for i 1 to 10000 ‘打印print i,'打印数if i<>10000 thenprint space(5) '打印5个空格elseprint print y 在最末尾打印质数的个数end ifif i mod =20 then print 一行打印20个数next i