作者hebe52h (Aki)
站内Visual_Basic
标题Re: [VB6 ]请问如何把所产生乱数各别储存?在跑下个 …
时间Wed Nov 12 11:37:02 2008
※ 引述《hebe52h (Aki)》之铭言：
: 如标题..
: 有什麽函数是可以做储存用的..??
: 还是有什麽其他方法??
: 我要做GA练习..
: 运用VB程式产生20组33位元乱数
: 现在卡在如何把一开始产生的乱数
: 在抓出来做比较(原本是2进位,中途以换算成10进位)
: 可是现在的10进位再换回2进位,会有小数误差而不再是原本的33位元组
: 不知各位看不看的懂我说什麽
: 主要是想知道有没有快的方法做储存列阵
: 谢谢!!
不好意思已修正了!!^^
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 14
y(i)=int(rnd*10)
if y(i)<=5then
y(i)=0
else
y(i)=1
end if
next i
next k
怎麽把x(i) & y(i)个别一个一个存起来?
应该是这样..不太会形容^^"
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.121.115.12
1F：→ tomas0011:这个程式在干嘛好难懂XD" 产生乱数0-9 <=5,0 >5,1之後? 11/12 15:56