急 VB6 作弊骰子

Question

請問各位高手

要怎樣才能設計這樣的東西

麻煩各位高手了

希望簡單明瞭

感謝感恩

其各點出現機率分佈如下：六點出現的機率為五點的兩倍，五點出現的機率為四點的兩倍，四點出現的機率為三點的兩倍，三點出現的機率為兩點的兩倍，兩點出現的機率為一點的兩倍。今執行此骰子程式，共擲200次骰子。請將200次的結果及每點出現的次數列出。提示如表點數出現機率一點1/63二點2/63三點4/63四點8/63五點16/63六點32/63

已更新項目:

是了好久還是不會

要怎麼設定可以講一下嗎

我還是很新的新手

感謝

Answer 1

最佳解答

簡單一點的，設定隨機最高為63，其他就照他的機率給數字:

例如:

一點=>1

二點=>2~3

三點=>4~8

以此類推。

記得加上Randomize Timer

不然每次數字都一樣 = =

2011-05-28 22:50:41 補充：

我寫成很簡單的方式，程式碼和執行檔都放在裡面，

http://erikliao.myweb.hinet.net/123.zip

2011-05-28 22:51:34 補充：

參考資料給錯XD

參考資料： http://erikliao-php.blogspot.com/, http://erikliao-php.blogspot.com/, http://blog.superboa.com/

Answer 2

自問自答嗎?

這問題大概只有 [塔西] 可以回答而已.

http://tw.knowledge.yahoo.com/my/my?show=AD0514139...

真不懂.這樣子搞你會比較爽嗎.

Answer 3

n = Int(Log(Int(Rnd * 63 + 1)) / Log(2)) + 1

Answer 4

先設定每個變數的機率，在利用亂數產生點數值

2011-05-26 18:56:02 補充：

給 ㄚ旺 :

我看了很多篇都有你留下的東西，請問這個意義何在?!

如果非知識意見問題，麻煩請別洗版，感謝配合。