作者bbb304bbb (== Wine ==)
看板Visual_Basic
標題[VB2008]新手問題 陣列取亂數
時間Tue Jun 15 09:29:11 2010
這是樂透開獎程式...
但是想用其他方式寫出來
請多指教
======================================
0. 宣告陣列aa(49) as integer
1. 亂數初始化
2. 將陣列aa 內容全部設定為 0 //表示 1~49數字都還沒用過
3. i=0 //用i紀錄一共開出幾個數
4. 當 i < 6
5. x = 1~49間隨機產生的亂數
6. 如果 aa(x)=0 則 //x 沒有開過
7. 印出 x
8. 紀錄 x 已用過 // 將 aa(x)內容設定為 1
9. i = i + 1 // 紀錄開出的數字個數
10. end if
11. 回到步驟 4
========================================
小弟目前困在
陣列宣告了，但是不會用
該怎麼在陣列中取亂數
(如果只是用x取亂數我會...但是碰到陣列總覺得沒有我想的這麼簡單)
####################
以下是小弟寫的..
Module Module1
Sub Main()
Randomize()
Dim aa(46) As Integer
Dim y As Integer
aa(46) = 0
y = 0
For y = 0 To 5
aa(46) = Int(Rnd() * 46)
If aa(46) = 0 Then
Console.WriteLine(aa(46))
aa(46) = 1
y = y + 1
ElseIf aa(46) = 1 Then
End If
Next
Console.ReadKey()
End Sub
End Module
##########################
請各位大大幫忙看一下...謝謝 <(_ _)> 感激不盡
--
▃ ▃ ▃▃▃ ▃ ▃ ▃▃▃ ● 只不過時機未到
█ █ ███ █▃ █ ███ \) 我一個人走走沒關係的
█ ▃ █ █ ██ █ █▃▃ ﹒ ︵ √\
█ █ █ █ █ █ █ ███ 一個人想 一個人走 一個人哭 一個人傷心
█ █ █ ▃█▃ █ ██ █▃▃ 一個人從有心到無心 一首歌從有情到無情
████ ███ █ █ ███ 每一個人 每一個夢 每一分鐘 每一次失落
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.249.19.19
※ 編輯: bbb304bbb 來自: 111.249.19.19 (06/15 09:33)
1F：→ jwjeng:先令x=Int(Rnd()*46)，再丟進aa(y)裡面不就好了? 06/15 09:37
2F：→ jwjeng:你前面的流程圖不就是這麼寫的? (上面應該是aa(x)=1) 06/15 09:39
3F：推 horngsh:.Net 有Random Class可以用..為何還在用VB6東西? 06/15 09:59
4F：→ bbb304bbb:謝謝以上兩位大大 更感謝J大 答案讓我有豁然開朗的感覺 06/15 10:30