bamboo

程序1

@echo off
setlocal enabledelayedexpansion
set "number=1 2 3 4"
for %%a  in (%number%) do (
  set num1=!number:%%a=!
  for %%b in (!num1!) do (
    set num2=!num1:%%b=!
    for %%c in (!num2!) do (
      echo %%a%%b%%c
    )
  )
)
echo    按任意键退出！
pause>nul
复制代码

bamboo

程序4

@echo off
setlocal enabledelayedexpansion

echo 输入日期（格式：2009-11-24），判断这一天是这一年的第几天？
set /p input=请输入日期：
for /f "tokens=1-3 delims=-" %%a in ("%input%") do (
  call :calcdays %%a %%b %%c
)
echo 这一天是这一年的第%days%天
echo    按任意键退出！
pause>nul
exit

:calcdays
set "month1=31 28 31 30 31 30 31 31 30 31 30 31"
set "month2=31 29 31 30 31 30 31 31 30 31 30 31"
set isleapyearflag=1
call :isleapyear %1
set /a months=%2-1
for %%A in (!month%isleapyearflag%!) do (
  if !months! gtr 0 (
    set /a months-=1
    set /a days+=%%A
  )
)
set /a days+=%3
goto :eof

:isleapyear
set /a flag1= %1%%4
if !flag1! equ 0 (
  set /a flag2=%1%%100
  if !flag2! equ 0 (
    set /a flag3=%1%%400
    if !flag3! equ 0 (
      set isleapyearflag=2
    ) else (set isleapyearflag=1)
  ) else (set isleapyearflag=2)
) else (set isleapyearflag=1)
goto :eof
复制代码

bamboo

程序8(正三角)

@echo off
setlocal enabledelayedexpansion
for /l %%a in (1,1,9) do (
  for /l %%b in (1,1,9) do (
    if %%b leq %%a (
      set /a ans=%%a*%%b
      set /p=%%a*%%b=!ans!  <nul
    )
  )
  echo.
)
echo    按任意键退出！
pause>nul
复制代码