中国DOS联盟

@echo off
setlocal enabledelayedexpansion
echo 正在进行计算...
echo.
set str1=123456789101112131415161718192021222324252627282930
set str2=123456789101112131415161718192021222324252627282930
echo %str1%
echo ×
echo %str2%
call :test %str1% "" ex
call :test %str2% _ ex_

for /l %%a in (0 1 %ex%) do (
   for /l %%b in (0 1 %ex_%) do (
     set /a mult=!num%%a!*!num%%b_!
     set /a sum=%%a+%%b+1
     rem 将所有的位数相同的数据全部加起来：例如，十位上的数字和十位上的数字相加；
     set /a result!sum!+=!mult!
))

for /l %%a in (10000 -1 1) do (
     if defined result%%a (
         rem 定义前一位数字变量
         set /a last=%%a-1
         set var=!result%%a!
         rem 如果该数大于10，则进位；
         if !result%%a! GEQ 10 set /a result!last!+=!var:~0,-1!
         set result=!var:~-1!!result!
    )
)
echo.
echo =%result%

pause>nul
:test
   for /l %%i in (0 1 100) do (
      set var=%1
      if "!var:~%%i,1!"=="" set /a %3=%%i-1 & goto :eof
      rem 分别获得数字的千百万等位数；
      set /a num%%i%2=!var:~%%i,1!)