@echo off
color 1b
set x=0
set /a y=x+1
set p=●○
set line0=%p:~0,1%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
set line1=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
set line2=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
set line3=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
set line4=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
:fstrn
echo %line0%
echo %line1%
echo %line2%
echo %line3%
echo %line4%
ckey 99 87 83 65 68
if %errorlevel%==1 goto:pdw
if %errorlevel%==2 goto:pds
if %errorlevel%==3 goto:pda
if %errorlevel%==4 goto:pdd
goto:fstrn
:pdw
if %x%==0 goto:echo
set /a x=x-1
set /a y=x+1
set line%x%=%line%y%%
set line%y%=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
goto:echo
:pds
if %x%==4 goto:echo
set /a x=x+1
set /a y=x-1
set line%x%=%line%y%%
set line%y%=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
goto:echo
:pda
if %line%x%:~0,1%==● goto:echo
if %line%x%%==○●○○○ set line%x%=●○○○○ & goto:echo
if %line%x%%==○○●○○ set line%x%=○●○○○ & goto:echo
if %line%x%%==○○○●○ set line%x%=○○●○○ & goto:echo
if %line%x%%==○○○○● set line%x%=○○○●○ & goto:echo
goto:echo
:pdd
if %line%x%:~4,5%==● goto:echo
if %line%x%%==●○○○○ set line%x%=○●○○○ & goto:echo
if %line%x%%==○●○○○ set line%x%=○○●○○ & goto:echo
if %line%x%%==○○●○○ set line%x%=○○○●○ & goto:echo
if %line%x%%==○○○●○ set line%x%=○○○○● & goto:echo
goto:echo
:echo
cls
echo %line0%
echo %line1%
echo %line2%
echo %line3%
echo %line4%
ckey 99 87 83 65 68
if %errorlevel%==1 goto:pdw
if %errorlevel%==2 goto:pds
if %errorlevel%==3 goto:pda
if %errorlevel%==4 goto:pdd
goto:echo
复制代码

dim a(9) '从零开始 
for i=0 to 9 
a(i)=i '填充每一个数组元素 
msgbox a(i) '输出数组元素 
next
复制代码