nopr

程序1

@ECHO OFF
setlocal enabledelayedexpansion
for /l %%i in (1,1,4) do (
     for /l %%j in (1,1,4) do (
         for /l %%k in (1,1,4) do (
                 if not %%i==%%j (
                     if not %%i==%%k (
                         if not %%j==%%k echo %%i%%j%%k)
                           )
                           )
                           )
                           )
pause
复制代码

[ 本帖最后由 nopr 于 2009-8-5 20:39 编辑 ]

nopr

@ECHO OFF
setlocal enabledelayedexpansion
:1
echo 查询日期请介于1900和2200年之间
ping /n 1 127.1>nul
set /p b=请输入年份:....

if %b% leq 1900 echo 你输入年份不符合要求,请重新输入!&ping /n 2 127.1>nul&cls&goto 1
if %b% gtr 2200 echo 你输入年份不符合要求,请重新输入!&ping /n 2 127.1>nul&cls&goto 1
:2
cls
set /p b1=请输入月份:
if %b1% lss 1 goto 2
if %b1% gtr 12 goto 2
:3
cls
set /p b2=请输入日期:
if %b2% lss 1 goto 3
if %b2% gtr 31 goto 3
cls&set /a b3=%b1%-1
call :4
for /l %%i in (1,1,%b3%) do (
         for %%j in (1 3 5 7 8 10 12) do (
             if %%i == %%j (set /a a+=31)
             )
         for %%k in (4 6 9 11) do (
             if %%i == %%k (set /a a1+=30)
             )
             )
for /l %%h in (1900 4 2200) do echo %%h>>a.txt
find "%b%" a.txt >nul && (set /a a2=%a1%+29) || set /a a2=%a1%+28
set /a a3=%a%+%a2%+%b2%
echo 你要查询的日期是%b%的第%a3%天
del a.txt&pause>nul&goto :eof
:4
for /l %%y in (1 1 20) do (
     set /p=*<nul
     for /l %%z in (1 1 500) do ver>nul
     )
cls
goto :eof
复制代码

nopr

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1,1,9) do (
     echo.
     for /l %%j in (1,1,9) do (
     set /a aa=%%i*%%j
     set a=%%jx%%i=!aa!
     if %%j leq %%i set/p=!a! <nul
     )
     )
pause>nul
复制代码

nopr

@echo off
setlocal enabledelayedexpansion
:1
set/a b+=1
for /l %%j in (1 1 4) do (
     set a=□■
     set/p=!a!<nul)
echo.
for /l %%i in (1 1 4) do (
     set a1=■□
     set/p=!a1!<nul)
echo.
if %b% geq 4 pause>nul&goto :eof
call :1
复制代码

就是棋盘有点小!