netbenton

 
@echo off&setlocal enabledelayedexpansion
set a1=■■■■
set a2=■■ ■■
set a3=■■ @■■
set a4=■ ■ ■ ■
set a5=■ ■■ @■
set a6=■■ @■ @■
set a7=■■■ @■
set a8=@■ ■■ ■
set a9=@■■ ■■
set a0=@■ ■■■
:lp
for %%a in (!a%random:~-1%!) do (set str=%%a&echo;!str:@=  !)
pause&goto :lp
复制代码

[ 本帖最后由 netbenton 于 2009-5-18 22:42 编辑 ]