悬崖之树

"!res:%res:~,1%=!"==""  这句怎么理解啊？

悬崖之树

回复 5# xhhivi


判断是否相同试试下面的：

@echo off
set a=0000 1111 2222 3333 4444 5555 6666 7777 8888 9999
:ks
set /p b=请输入一个四位数：
for %%i in (%a%) do (
if %b%==%%i echo 数字相同请重新输入！& goto ks
 )
echo 你输入的数符合要求！再来一次吧！& goto ks
复制代码

但是如果你输入的不是四位数的话，也将显示“你输入的数符合要求！再来一次吧！”

悬崖之树

回复 3# 601997526
为什么有的数字会报错呢？因为代码不完善，应写成：

@echo off & setlocal enabledelayedexpansion

:begin
set n=1
set /a res=%random%%%9000+1000
echo 初始数是 %res%
if "!res:%res:~,1%=!"=="" echo %res% 是全相同数&pause&goto begin
:lp
set "str="&set "str1="
for /l %%i in (0 1 3) do echo !res:~%%i,1!>>tmp.txt
for /f %%i in ('sort tmp.txt') do set "str=%%i!str!"&set "str1=!str1!%%i"
set /a a=%str%-(1%str1%-10000) 
set b=000%a%
set res=%b:~-4%
echo %str%-%str1%=%res%
del tmp.txt
if %res% neq 6174 set /a n+=1&goto lp
echo 共运行了%n%次
pause & cls & goto begin
复制代码

这样就不会出错了！

悬崖之树

下面这个是手动的，自己输入"7877" 和"6766" 试试吧！还可以输入类似 0001 0101 之类的。

@echo off & setlocal enabledelayedexpansion
:begin
set n=1
set /p res=请输入一个四位数，每位数字是0~9，但不能完全相同：
if "!res:%res:~,1%=!"=="" echo %res% 是全相同数&pause&goto begin
:lp
set "str="&set "str1="
for /l %%i in (0 1 3) do echo !res:~%%i,1!>>tmp.txt
for /f %%i in ('sort tmp.txt') do set "str=%%i!str!"&set "str1=!str1!%%i"
set /a a=%str%-(1%str1%-10000) 
set b=000%a%
set res=%b:~-4%
echo %str%-%str1%=%res%
del tmp.txt
if %res% neq 6174 set /a n+=1&goto lp
echo 共运行了%n%次
pause & cls & goto begin
复制代码

悬崖之树

五位数的黑洞是什么呢？
运行下面的就知道了：

@echo off & setlocal enabledelayedexpansion
:begin
set /p res=请输入一个五位数，每位数字是0~9，但不能完全相同：
if "!res:%res:~,1%=!"=="" echo %res% 是全相同数&pause&goto begin
:lp
set "str="&set "str1="
for /l %%i in (0 1 4) do echo !res:~%%i,1!>>tmp.txt
for /f %%i in ('sort tmp.txt') do set "str=%%i!str!"&set "str1=!str1!%%i"
set /a a=%str%-(1%str1%-100000) 
set b=0000%a%
set res=%b:~-5%
echo %str%-%str1%=%res%
echo %str%-%str1%=%res%>>2.txt
del tmp.txt
goto lp
复制代码