悬崖之树

@echo off & setlocal ENABLEDELAYEDEXPANSION 
:ks
cls

set /p sum=请输入要生成的号码个数：
for /l %%i in (1 1 %sum%) do (

set /a a=!random!%%10
set /a b=!random!%%10
set /a c=!random!%%10
set /a d=!random!%%10
set /a e=!random!%%10
set /a f=!random!%%10
set /a g=!random!%%10
set /a h=!random!%%10
set /a i=!random!%%10
set /a j=!random!%%10

echo 1!a!!b!!c!!d!!e!!f!!g!!h!!i!!j!
)
echo.&echo.&echo.&echo.
echo 按任意键重来 & pause>nul
goto ks
复制代码

代码效率不高………………

悬崖之树

现在这个是改进的：

@echo off & setlocal ENABLEDELAYEDEXPANSION 
:ks
cls

set /p sum=请输入要生成的号码个数：
for /l %%i in (1 1 %sum%) do (

set /a a=!random!%%3
set /a b=!random!%%10
set /a c=!random!%%10
set /a d=!random!%%10
set /a e=!random!%%10
set /a f=!random!%%10
set /a g=!random!%%10
set /a h=!random!%%10
set /a i=!random!%%10
set /a j=!random!%%10
if !a!==0 set a=3
if !a!==1 set a=5
if !a!==2 set a=8

echo 1!a!!b!!c!!d!!e!!f!!g!!h!!i!!j!
)
echo.&echo.&echo.&echo.
echo 按任意键重来 & pause>nul
goto ks
复制代码

悬崖之树

apang 发表于 2012-8-1 12:09

其实可以把所有的%%b 替换成 %%a

@echo off&setlocal enabledelayedexpansion
set/p n=个数:
for /l %%a in (1 1 %n%) do (
  set a=358&set/a r=!random!%%3
  for %%a in (!r!) do set a=!a:~%%a,1!
  for /l %%a in (1 1 9) do set/a r=!random!%%10&set b=!b!!r!
  echo,1!a!!b!&set b=
)
pause
复制代码

效果一样