标题: [贴士] 产生 1 到10 之间的随机数 [打印本页]

---

作者: SzAngel    时间: 2007-8-30 18:07     标题: 产生 1 到10 之间的随机数

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

Do Until DefResp = vbNo
   MyNum = Int (10 * Rnd + 1)   ' 产生 1 到 10 之间的随机数。
   DefResp = MsgBox (MyNum & " 想要另一个数吗？", vbYesNo,"紫菀花")
Loop

---

欢迎光临 紫菀论坛 (http://bbs.szyin.com/)

Powered by Discuz! 7.1