Re: [.NET] 產生亂數 ... 我這樣寫哪裡有問題
不好意思，我照這個程式執行之後出現了這個錯誤訊息
http://0rz.tw/942kC
這個應該是controls的那幾行出了問題，
誰可以解釋一下這是怎麼回事@@" 我卡在這裡卡好久阿....
※ 引述《fumizuki (矇面加菲獅)》之銘言：
: ※ 引述《Bonder (Yes)》之銘言：
: : 各位大大...小弟初學VB.net
: : 想要產生6個亂數在1-49之間
: : 很直觀就這樣寫
: Dim i As Int16, j As Int16, Exists As Boolean
: Dim r(5) As Integer
: Randomize()
: For i = 0 To 5
: Do
: r(i) = Int(Rnd() * (49 - 1) + 1) '最大值減最小值加一才對@@
: Exists = False '檢查是否重複
: For j = 0 To i - 1
: If r(i) = r(j) Then Exists = True : Exit For
: Next
: If Not Exists Then Exit Do
: Loop
: Next
: For i = 0 To 5
: Controls("Label" & (i + 1)).Text = r(i)
: Next
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.224.141.230
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
