Re: [.NET]亂數不重複
※ 引述《HeyScng ( )》之銘言：
: 這是我的想法
: Dim A() As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
: Dim temp As Integer
: Dim i,j As Integer
: For i = 1 To i = 9
For i = 1 to 9
: j = Int(Rnd() * 9 + 1)
: temp = A(i) ////交換兩張牌
: A(i) = A(j)
: A(j) = temp
: Next
: Button1.Text = A(1)
...(中省略)
: Button9.Text = A(9)
Dim btn() As Button = {Button1, Button2, Button3, Button4, _
Button5, Button6, Button7, Button8, Button9}
For i = 0 To 8
btn(i).Text = A(i + 1)
Next
: 基本上的想法是先設初值number 1~9 並隨機交換這九個數字以達到亂數的目地
: 最後後傳回A(1)~A(9)則為亂數 可是總跑不出來
因為迴圈寫錯了 :)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.192.5.253
推
10/06 23:08, , 1F
10/06 23:08, 1F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
