作者Bonder (Yes)
看板Visual_Basic
标题[.NET] 产生乱数 ... 我这样写哪里有问题
时间Tue Dec 26 14:46:40 2006
各位大大...小弟初学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
1F：推 DavidOff1:你这样写只能说A不会跟B相同C是可以跟A一样的~ 12/26 14:52
2F：→ DavidOff1:用IF作判断式吧 12/26 14:54
3F：推 Bonder:soga.....感恩 ^^ 12/26 15:02
4F：→ a880923:我比较好奇跑出来的数字有没有中 XD 12/27 16:05