討論串[.NET] 產生亂數 ... 我這樣寫哪裡有問題
共 5 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者biox時間18年前 (2007/01/12 12:48), 編輯資訊
0
0
1
內容預覽:
還是一樣,可否請版大寫個程式來看看@@". 還是同樣的問題。. --. 發信站: 批踢踢實業坊(ptt.cc). ◆ From: 61.224.141.230.

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者fumizuki (矇面加菲獅)時間18年前 (2007/01/12 07:14), 編輯資訊
0
0
1
內容預覽:
CType(Me.Controls("Label" & (i + 1).ToString), Label).Text = r(i).ToString(). 這樣試試. --. ▃▅▇▆▄ ▆▂▃ `逝去感如何能留住,半點遺留殊不易,██▅▇▄▃ ▇▃▂" .. █████████▃i ▁▄▇.

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者biox時間18年前 (2007/01/12 02:12), 編輯資訊
0
0
1
內容預覽:
不好意思,我照這個程式執行之後出現了這個錯誤訊息. http://0rz.tw/942kC. 這個應該是controls的那幾行出了問題,. 誰可以解釋一下這是怎麼回事@@" 我卡在這裡卡好久阿..... --. 發信站: 批踢踢實業坊(ptt.cc). ◆ From: 61.224.141.2

推噓1(1推 0噓 1→)留言2則,0人參與, 最新作者fumizuki (矇面加菲獅)時間18年前 (2006/12/27 12:46), 編輯資訊
0
0
0
內容預覽:
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) '最大值減最小值加一才對@@.
(還有472個字)

推噓2(2推 0噓 2→)留言4則,0人參與, 最新作者Bonder (Yes)時間18年前 (2006/12/26 14:43), 編輯資訊
0
0
0
內容預覽:
各位大大...小弟初學VB.net. 想要產生6個亂數在1-49之間. 很直觀就這樣寫. Dim a, b, c, d, h, f As Integer. Do. Randomize(). a = Int(Rnd() * 49 + 1). b = Int(Rnd() * 49 + 1). c = I
(還有196個字)
首頁
上一頁
1
下一頁
尾頁