[.NET] 產生亂數 ... 我這樣寫哪裡有問題
各位大大...小弟初學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 = Int(Rnd() * 49 + 1)
d = Int(Rnd() * 49 + 1)
h = Int(Rnd() * 49 + 1)
f = Int(Rnd() * 49 + 1)
Loop Until a <> b <> c <> d <> h <> f
Label1.Text = a
Label2.Text = b
Label3.Text = c
Label4.Text = d
Label5.Text = h
Label6.Text = f
印出之後發現有時候會有重複的數字
不知道是哪邊有問題呢..?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.211.65.41
推
12/26 14:52, , 1F
12/26 14:52, 1F
→
12/26 14:54, , 2F
12/26 14:54, 2F
推
12/26 15:02, , 3F
12/26 15:02, 3F
→
12/27 16:05, , 4F
12/27 16:05, 4F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
