Re: [.NET] 產生亂數 ... 我這樣寫哪裡有問題
CType(Me.Controls("Label" & (i + 1).ToString), Label).Text = r(i).ToString()
這樣試試
※ 引述《biox ()》之銘言：
: 不好意思，我照這個程式執行之後出現了這個錯誤訊息
: http://0rz.tw/942kC
: 這個應該是controls的那幾行出了問題，
: 誰可以解釋一下這是怎麼回事@@" 我卡在這裡卡好久阿....
: ※ 引述《fumizuki (矇面加菲獅)》之銘言：
: : 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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.68.49
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
