中国DOS联盟

@echo off
setlocal enabledelayedexpansion
set /p Source=输入十进制数字:
set /a Source=%Source%||pause&&goto :eof

:dosomething
    set /a Remain = %Source% %% 33
    set /a Source /= 33
    call :Switch %Remain%
    set CoResult=%Remain%%CoResult%
    if %Source% lss 33 goto Result
goto dosomething

:Switch
set Num=-1
    for %%n in (0 1 2 3 4 5 6 7 8 9 A B C D E F G H J K L M N P Q R S T V W X Y Z) do (
      set /a Num+=1
      if "%1" == "!Num!" set Remain=%%n
    )
goto :eof

:Result
call :Switch %Source%
if "%Remain%" == "0" set Remain=
set 结果=%Remain%%CoResult%
set Source=
set Remain=
set CoResult=

echo.
echo.结果: %结果%
echo.

pause