skuny

学习一下，厉害啊………………！

firewolf85

@setlocal enabledelayedexpansion
set %random%=%random%
@echo off
::没有在开头使用是为了对比检验结果。完全可以移到首行
for /l %%i in (0 1 32767) do (if defined %%i (set i=%%i)&goto next)
:next
::这里使用一个跳转是为了节约CPU资源，不直接跳转是为了防止出错。 
echo 随机变量为:%i%
echo 其值为:!%i%!
set num=0
set b=%i%
set c=!%i%!
for /l %%a in (0 1 4) do (
set /a num+=!b:~%%a,1!
set /a num+=!c:~%%a,1!
)
echo 各位数的和为:%num%
pause>nul
复制代码

试验后发现位数不足五位时会有错误提示，修改屏蔽提示。

@setlocal enabledelayedexpansion
set %random%=%random%
@echo off
for /l %%i in (0 1 32767) do (if defined %%i (set i=%%i)&goto next)
:next
echo 随机变量为:%i%
echo 其值为:!%i%!
set num=0
set b=%i%
set c=!%i%!
for /l %%a in (0 1 4) do (
set /a num+=!b:~%%a,1! 2>nul
set /a num+=!c:~%%a,1! 2>nul
)
echo 各位数的和为:%num%
pause>nul
复制代码

[ 本帖最后由 firewolf85 于 2008-12-20 19:11 编辑 ]

wxcute

因为此题是本练习题的一个小结，属于一个综合性的题目。因为题目是连贯性的，所以只要弄明白了前面的题目，这一题就不会很难了。

唯一的比较难的点就是找到这个变量，这就看大家有没有掌握关于 SET 命令显示变量的用法了。

还有就是显示的时候没必要像 2 楼一样显示过程，像顶楼蓝字下面一样显示结果就行了。

随风

set %random%=%random%
上面的这行代码不能改动，
这个要求是否有点高了？随机数，如何获取变量名？难道要通过判断变量名是否为纯数字？如此代码是否复杂化了？

h5599859

@echo off
set a=%random%=%random%
echo %a%
:calc
set var=%a:~,1%
set /a s+=var
set /p=%var%+<nul 2>nul
set a=%a:~1%
if defined a goto calc
set /p==%s%<nul
pause>nul

lhjoanna

修改了一下，通过屏蔽错误输出，从而省略去掉str中“=”的步骤！可以稍微提高点效率~~

@echo off&setlocal enabledelayedexpansion
set %random%=%random%
for /f "delims=" %%i in ('set') do set str=%%i&goto start
:start
echo %str%
:calc
set var=!str:~,1!
set /a s+=var
set /p=%var%+<nul 2>nul
set str=!str:~1!
if defined str goto calc
set /p==!s!<nul
pause>nul
复制代码

[ 本帖最后由 lhjoanna 于 2008-11-21 17:11 编辑 ]

lhjoanna

呵，wxcute兄出的题目越来越有水平了，说难也不难，说不难也的确要动一下脑子。强烈支持！！！

@echo off&setlocal enabledelayedexpansion
set %random%=%random%
for /f "delims=" %%i in ('set') do set str=%%i&goto start
:start
echo %str%
for /f "tokens=1,2 delims==" %%i in ("%str%") do set num=%%i%%j
:calc
set var=!num:~,1!
set /a s+=var
set /p=%var%+<nul
set num=!num:~1!
if defined num goto calc
set /p==!s!<nul
pause>nul
复制代码

[ 本帖最后由 lhjoanna 于 2008-11-21 16:53 编辑 ]