Re: [VB6 ] 取固定的值作亂數?
不確定是不是這個意思
您想在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
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：