[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
晕~~~~只能扣分,不能加分~~~~~

为什么这样 /ku

TOP

  1. @echo off&color 2f
  2. setlocal enableDelayedExpansion
  3. set /p max=输入上限数:
  4. set /a max+=1
  5. :lp
  6. set /a tre=!random!%%max,one=!random!%%max,fh=!random!%%2
  7. if !tre! gtr !one! (
  8.   set/a two=tre-one
  9. if !fh! equ 0 (set str=!tre!-!one!) else (set str=!one!+!two!)
  10. ) else (
  11.   set/a two=one-tre
  12.   if !fh! equ 0 (set str=!one!-!tre!) else (set str=!tre!+!two!)
  13. )
  14. set/a des=!str!
  15. echo;!str!=?
  16. set in=err
  17. set /p in=输入结果:
  18. if !in! equ !des! (echo;答对了!你真聪明!) else (echo;真可惜,正确答案是!des!)
  19. pause>nul
  20. echo;
  21. echo;
  22. goto :lp
复制代码

TOP

返回列表