討論串[VB6 ]請問如何把所產生亂數各別儲存?在跑下個 …
共 2 篇文章
首頁
上一頁
1
下一頁
尾頁
內容預覽:
[中略]. 喔,既然每一位都是 0 或 1,那很簡單啊. 你知道 k 進位的第 x 位對應到 k^x (k 的 x 次方). 所以先宣告. xx = 0. 然後for每跑出一個 0 或 1 就. xx = x(i) * 2^i. 這樣就可以把二進位的 x(i) 合成一個整數 xx 了. 然後你可以用
(還有448個字)
內容預覽:
不好意思已修正了!!^^. for k=1 to 20. randomize. for i=0 to 17. X(i)=int(rnd*10). if x(i)<=5then. x(i)=0. else. x(i)=1. end if. next i. randomize. for i=0 to 1
(還有26個字)
首頁
上一頁
1
下一頁
尾頁