批处理搜索素数（1~100000）

::说明:搜索素数(质数),在1~100000之间的素数搜索较快.
@echo off &title DOS资源站 www.cmdos.net
::将素数5、7写入文件
echo 5 >Result.txt
echo 7 >>Result.txt
::------------------
set /a Num1=2
set /a Num2=3
set /a Num=10
::启用"延迟环境变量"
setlocal enabledelayedexpansion
::-----------------------------
:Start
set /a Num=%Num%+1
title 正在检测：%Num%
::求余数
set /a Num3=%Num%%%Num1%
set /a Num4=%Num%%%Num2%
::------------------------
::如果能被2或3整除，就直接跳到Start（以免频繁读写Result.txt）。
if %Num3% EQU 0 goto :Start
if %Num4% EQU 0 goto :Start
::---------------------------------------------------------
for /f %%i in (Result.txt) do (
set /a T=%%i
set /a S=%%i*%%i

rem 如果S（平方）都比数字%Num%小，就看它能否整除变量%Num%，如果能，则判断为合数，跳出循环；
rem 否则（即%Num%的平方根内无数字能整除%Num%）就直接将%Num%记入结果，跳出循环。

if !S! leq %Num% (
set /a T1=%Num%%%!T!
if !T1! EQU 0 goto :Start
) else echo %Num%>>Result.txt & goto :Start
rem ------------------------------------------
)
pause