作者warrickl (阿捷)
看板Visual_Basic
标题Re: [VB6 ] 取固定的值作乱数?
时间Mon Jun 15 10:43:05 2009
不确定是不是这个意思
您想在2、4、5、6、7、9、10乱数选一个数字
Module Module1
Sub Main()
'2、4、5、6、7、9、10
Randomize()
MsgBox("数字为" & CStr(Choose(Int((Rnd() * 7) + 1), 2, 4, 5, 6, 7, 9,
10)))
End Sub
End Module
※ 引述《sneku (幸福的咒语)》之铭言：
: 小弟想在1-10之间跑乱数，但要排除1、3、8
: 就是使用2、4、5、6、7、9、10去执行乱数
: 已知如何在1-10之间跑乱数，要怎麽拿掉1、3、8呢?
: 希望是拿拿掉再跑，而不是跑完再拿掉，有办法吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.29.94.129