无聊，写了个猜数字的游戏，上班闲的时候可以摸鱼。

ludaweb

1. (defun c:tt( / randomnum i num Random)
   
2.   (defun Random (x y / RandomObj rtn)
   
3.     (setq RandomObj (vlax-create-object "System.Random"))
   
4.     (setq rtn (fix (+ x (* (vlax-invoke RandomObj 'nextdouble) (- y x)))))
   
5.     (vlax-release-object RandomObj)
   
6.     rtn
   
7.   )
   
8.   (setq randomnum (Random 0 100))
   
9.   (setq i 0)
   
10.   (princ "\n猜数字游戏开始0-99!")
    
11.   (while
    
12.     (setq i (1+ i))
    
13.     (setq num (getint "\n猜数字游戏，请输入你的答案:"))
    
14.     (if (= num randomnum)
    
15.       (progn
    
16.         (princ (strcat "\n太厉害了，你只猜了" (itoa i) "次就猜对了!"))
    
17.         (setq randomnum (Random 0 100))
    
18.         (setq i 0)
    
19.         (princ "\n猜数字游戏开始0-99!")
    
20.       )
    
21.       (progn
    
22.         (if (> num randomnum)
    
23.           (princ "\n太大了!")
    
24.           (princ "\n太小了!")
    
25.         )
    
26.       )
    
27.     )
    
28.   )
    
29. )

(defun c:tt( / randomnum i num Random)<br />   (defun Random (x y / RandomObj rtn)<br />     (setq RandomObj (vlax-create-object "System.Random"))<br />     (setq rtn (fix (+ x (* (vlax-invoke RandomObj 'nextdouble) (- y x)))))<br />     (vlax-release-object RandomObj)<br />     rtn<br />   )<br />   (setq randomnum (Random 0 100))<br />   (setq i 0)<br />   (princ "\n猜数字游戏开始0-99!")<br />   (while<br />     (setq i (1+ i))<br />     (setq num (getint "\n猜数字游戏，请输入你的答案:"))<br />     (if (= num randomnum)<br />       (progn<br />         (princ (strcat "\n太厉害了，你只猜了" (itoa i) "次就猜对了!"))<br />         (setq randomnum (Random 0 100))<br />         (setq i 0)<br />         (princ "\n猜数字游戏开始0-99!")<br />       )<br />       (progn<br />         (if (> num randomnum)<br />           (princ "\n太大了!")<br />           (princ "\n太小了!")<br />         )<br />       )<br />     )<br />   )<br /> )

ynhh

建议大师来个
双色球
之类的奖票程序
说不定还能中个大奖

再见熊猫衣服

楼主你好，我有比较重要的事情，想跟你及时沟通

jkop

简单，上班模鱼用！没事猜数字，脑子放松！

tigcat

大大，太有意思了，准备好，就看啥时摸鱼

mokson

先得有个公司上班才说吧。

上善若水！@#

有什么规律可循么

Bao_lai

二分法应该比较快

tigcat

我玩了一把，用了六次

甜兮兮

谢谢分享  支持下

juliana207

哈哈, 上班从来没闲过

竹天

我愿将其与推箱子并称两大快乐源泉