RuiIsRui

11 以下的5个数不在............我是写来算6位质数的，改给你用了

@echo off&setlocal Enabledelayedexpansion
set/a MinShu=10
set/a MaxShu=1000
set/a N=0
for /l %%i in (%MinShu%,1,%MaxShu%) do (
set/a JShu=%%i
call:AA
)
echo %MinShu% ~ %MaxShu% 有 %N% 个质数
pause
exit
:AA

for %%i in (2,3,5,7,11) do (
set/a b=%JShu%%%%%i
if "!b!"=="0" GOTO:eof
)

set/a MinShu2=%JShu%/10
for /l %%i in (12,1,%MinShu2%) do (
set/a d=%JShu%%%%%i
if "!d!"=="0" GOTO:eof
)
echo 质数%N%.素数:%JShu%
set/a N+=1
GOTO:eof
复制代码

RuiIsRui

@echo off&setlocal Enabledelayedexpansion

set/a MinShu=2
set/a MaxShu=1000
set/a N=0
for /l %%i in (%MinShu%,1,%MaxShu%) do (
set/a JShu=%%i
call:AA
)
echo %MinShu% ~ %MaxShu% 有 %N% 个质数
pause
exit
:AA

set/a MinShu2=%JShu%/2
for /l %%i in (2,1,%MinShu2%) do (
set/a d=%JShu%%%%%i
if "!d!"=="0" GOTO:eof
)
echo 质数%N%.素数:%JShu%
set/a N+=1
GOTO:eof
复制代码

回复 15# cjiabing


    哎哟........我那样写是为了我算6位7位时能快捷一点嘛...

RuiIsRui

回复 21# cjiabing


    大侠，帮帮我这个嘛，我的vbs实在是菜到家了..

http://www.bathome.net/thread-15644-1-1.html