作者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