netbenton

排版请在相应的地方改成[Tab]键，就可以行列对齐，好看一点。

先把特殊家伙的给提出来，到适当的时候再放回去~~
加入随机数后，利用了set $排序，得到了随机的结果，

@echo off&setlocal enabledelayedexpansion
for /l %%b in (1,1,100) do (
        set n=!n! %%b
)

for %%a in (A B C D) do (
        set #%%a=!n!
        for /l %%b in (1,1,10) do set _%%a%%b=10
)

set ##B3=B-60&set #B=!#B: 60=!
set ##C8=C-49&set #C=!#C: 49=!
set/a _B3-=1,_C8-=1

for %%a in (A B C D) DO (
        for %%b in (!#%%a!) do set $%%a_!random:~-2!_%%b=1
)

set n=1
for /f "tokens=1,2,3 delims=$_=" %%a in ('set $') do (
        for %%k in (!n!) do (
                set X%%k=!X%%k!%%a-%%c        
                set /a _%%a%%k-=1
                if !_%%a%%k! equ 0 (
                        set/a n=n%%10+1
                        if defined ##%%a!n! call set X!n!=%%X!n!%%%%##%%a!n!%%        
                )
        )
)

for /l %%a in (1,1,10) do (
echo;第%%a班：
echo !x%%a!
)
pause
复制代码

[ 本帖最后由 netbenton 于 2010-6-28 01:28 编辑 ]