作者MOONRAKER (㊣水冷可保持CPU内清洁。)
看板Visual_Basic
标题Re: [VB6 ]请问如何把所产生乱数各别储存?在跑下个 …
时间Wed Nov 12 16:38:03 2008
※ 引述《hebe52h (Aki)》之铭言：
: 不好意思已修正了!!^^
[中略]
: 怎麽把x(i) & y(i)个别一个一个存起来?
: 应该是这样..不太会形容^^"
喔，既然每一位都是 0 或 1，那很简单啊
你知道 k 进位的第 x 位对应到 k^x (k 的 x 次方)
所以先宣告
xx = 0
然後for每跑出一个 0 或 1 就
xx = x(i) * 2^i
这样就可以把二进位的 x(i) 合成一个整数 xx 了
然後你可以用一个函数取出 xx 的每一 bit
function BBIT(int x, int k)
BBIT = x and 2^k
end function
这样如 BBIT(xx, 1) 就是 xx 的第 1 个 bit
注意 bit 权数由 0 开始，最低位元(LSB，最右边那位)为 bit 0
最後是 randomize 在程式开始跑一次就好
每次回圈前就跑，如果执行太快，会发生灵异现象
--
BATCH 03 : 买张床 - 切达大侠 - 伐木人之歌 -
http://tinyurl.com/3zpyx5
[B4准备中]: 讴歌金钱(7/02) - 单车超人(7/23) -
http://tinyurl.com/66v6vq
[ 番外篇 ]: 包租婆也有过当罗莉的时候(7/17) -
http://tinyurl.com/6j4ale
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
■ 蒙帝派松正体中文计画 ■ Spam-a-lot and enjoy the pythonesque delight!
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ https://www.youtube.com/user/JamesBondXD▄▄
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.194.115