-----------------------------------
修正当b大于10,c小于10,c只显示一位的bug
@echo off&color 4a&mode con cols=35 lines=4
title 暂停使用ctrl+s键,任意键启动
set a=0&set b=0&set c=0&set d=0
for /l %%i in (1,1,100) do call,set cls=%%cls%%
echo.
:begin
set /a e+=1
if %e% equ 2 set e=0&set /a d+=1
if %d% equ 100 set d=0&set /a c+=1
if %c% equ 60 set c=0&set /a b+=1
if %b% equ 60 set b=0&set /a a+=1
if %b% lss 10 (
   if %c% lss 10 (
                 set /p=          %a%:0%b%:0%c%.%d%<nul
   ) else (
          set /p=          %a%:0%b%:%c%.%d%<nul
          ) 
) else ( 
        if %c% lss 10 (
                      set /p=          %a%:%b%:0%c%.%d%<nul
        ) else (
               set /p=          %a%:%b%:%c%.%d%<nul
               )
)          
set /p=%cls%<nul
goto begin
 Last edited by zw19750516 on 2008-4-19 at 07:56 PM ]
:
@echo off&title CtrL+s 键暂停,任意键启动
color 4a&mode con cols=35 lines=4&echo.
for /l %%i in (1,1,100) do call,set cls=%%cls%%
:loop
  set /a d=(d+1)%%100,c=(c+!d)%%60,b+=!(c+d),a+=!(b+c+d)
  for %%a in (a b c d) do call set a%%a=0%%%%a%%
  set /p=           %aa:~-2%:%ab:~-2%:%ac:~-2%.%ad:~-2%<nul
  set /p=%cls%<nul
goto loop