[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
@goto start1
楼主啊!  
两个代码为什么不用两个code来扩呢?这样我们还是不好复制啊!!!
这么多 echo  我来整理整理。
:: 版本一:
:start1
  1. @echo off&title 读心术P处理版
  2. mode con cols=80 lines=25
  3. :begin
  4. setlocal enabledelayedexpansion
  5. set 4=① 从10~99之间任意选择一个数
  6. set 14=② 把这个数的十位与个位相加
  7. set 24=③ 再把任意选择的数减去这个和
  8. set 34=   例如:你选的数是23
  9. set 44=   然后2+3=5,然后23-5=18
  10. set 54=④ 在图表中找出与差值对应的图形,
  11. set 64=   并把这个图形牢记心中
  12. set 74=⑤ 然后进入下一步
  13. set 84=⑥ 你会发现:
  14. set 94=   显示出来的图形就是你刚刚心里记下的那个图形
  15. echo.
  16. set str=☆★○●◎◇◆□■△▲※→←↑↓〓@〖〗【】『』≈≡∑∈⊙∵∴¤
  17. for /l %%i in (0,1,99) do (
  18.   set /a random_=!random!%%32
  19.   call set var%%i=%%str:~!random_!,1%%
  20. )
  21. for /l %%a in (9 9 117) do set var%%a=!var81!
  22. for /l %%a in (0 1 99) do (
  23.   set /a max+=1&set abc=00%%a
  24.   set abc=!abc:~-2!
  25.   set /p=!abc! !var%%a! <nul
  26.   if !max! equ 5 set /p= ^| !%%a!<nul&echo.&set max=0
  27.   )
  28. echo.&echo  按任意键进入下一步...
  29. pause>nul&cls
  30. for /l %%i in (1,1,18) do (
  31.   echo.&if %%i equ 9 echo  通过心灵感应,发现这个图形正是你所想的:%var117%
  32. )
  33. echo  按任意键再来一次...
  34. endlocal&pause>nul
  35. cls&goto begin
复制代码

[ 本帖最后由 随风 于 2007-11-27 15:18 编辑 ]
技术问题请到论坛发帖求助!

TOP

返回列表