@echo off
set /p num=请输入要计算的数列位数：
if %num% leq 2 set /a ans=1&goto end
set /a num-=2,ans1=1,ans2=1
for /l %%a in (1,1,%num%) do set /a ans=ans1+ans2,ans1=ans2,ans2=ans
:end
echo 结果是：%ans%
pause>nul
复制代码

@echo off
Set /p iStop=
Set /a iX = 1, iY = 0, iN = 0, iFlag = iStop %% 2
:loop
Set /a iX += iY, iY += iX, iN += 2
If %iN% LSS %iStop% goto :loop
If %iFlag% equ 1 (echo %iX%) else (echo %iY%)
Pause
复制代码

@echo off
set/pn=请输入要显示第几位数：
set num1=1
for /l %%i in (2 1 %n%) do call :Fibonacci %%i
set num%n%
pause
goto :eof
:Fibonacci
set/a L=%1-1,L2=%1-2
set/a num%1=num%L%+num%L2%
复制代码

@echo off&setlocal enabledelayedexpansion
set /a a=1,b=1
:lp
set /a c=a+b,n+=1
if %n% leq 2 (set /p=%a% <nul) else (
   set /a a=!b!,b=!c!
   set /p=!c! <nul
)
if %n% equ 46 goto end
goto lp
:end
pause>nul
复制代码

@echo off
set a=1
set b=1
:start
set /a n+=1
set /a p=%n%+2
set /a c=%a%+%b%
set b=%a%
set a=%c%
echo 第%p%个为：%c%
pause
goto :start
复制代码

 
@echo off
echo 批处理计算雯波那契数列,按任意键查看下一个。
setlocal enabledelayedexpansion
set a=1
set b=1
echo 第1项为：!a!
echo 第2项为：!b!
:start
set /a tn+=1
set /a n_=!tn!+2
for /l %%a in (1,1,1000) do (
      set ka=!a:~%%a,1!
      if not defined ka (
            set la=%%a
            goto :start_a
      )
)
:start_a
for /l %%a in (1,1,1000) do (
      set kb=!b:~%%a,1!
      if not defined kb (
            set lb=%%a
            goto :start_b
      )
)
:start_b
if !la! == !lb! (
      set l=!la!
      set /a m=!a:~0,1!+!b:~0,1!
      if !m! geq 9 (
            set n=1
            ) else (
            set n=0
      )
      ) else (
      set n=0
)
if !la! gtr !lb! (
      set /a l=!la!+!n!
      ) else (
      set /a l=!lb!+!n!
)
for /l %%a in (1,1,!l!) do (
      if !la! geq %%a (
            set x=!a:~-%%a,1!
            ) else (
            set x=0
      )
      if !lb! geq %%a (
            set y=!b:~-%%a,1!
            ) else (
            set y=0
      )
      if defined o (
            set /a z=!x!+!y!+!o!
            set o=
            ) else (
            set /a z=!x!+!y!
      )
      if !z! gtr 9 set o=1
      set /p =!z:~-1,1!<nul>>%temp%\temp.txt
      set /p all=<%temp%\temp.txt
)
for /l %%a in (1,1,!l!) do set /p =!all:~-%%a,1!<nul>>%temp%\temp_.txt
set b=!a!
set /p a=<%temp%\temp_.txt
del %temp%\temp*.txt /q
if "!a:~0,1!" == "0" set a=!a:~1!
echo 第!n_!项为：!a!
pause>nul
goto :start
 
复制代码

@echo off&setlocal enabledelayedexpansion
mode con cols=100 lines=25
set "Fa[1]=00000001"
set "Fb[1]=00000001"
for /l %%i in (2 1 125) do (
	set "Fa[%%i]=00000000"
	set "Fb[%%i]=00000000"
)
for /l %%n in (3 1 5000) do (
	set add=0&set "F="
	set/a CYC=%%n/5+8
	for /l %%i in (1 1 !CYC!) do (
		set/a Fn[%%i]=1!Fa[%%i]!+1!Fb[%%i]!
		set/a tmp=Fn[%%i]+add
		set Fa[%%i]=!Fb[%%i]!
		set Fb[%%i]=!tmp:~1!
		if not "!Fb[%%i]!"=="00000000" (set F=!Fb[%%i]!!F!)
		if !tmp! geq 300000000 (set add=1) else (set add=0)
	)
	for /l %%l in (1 1 7) do (
		if "!F:~0,1!"=="0" (set F=!F:~1!)
	)
	echo !F!
)
复制代码