作者biox ()
看板Visual_Basic
标题Re: [.NET] 产生乱数 ... 我这样写哪里有问题
时间Fri Jan 12 02:12:29 2007
不好意思，我照这个程式执行之後出现了这个错误讯息
http://0rz.tw/942kC
这个应该是controls的那几行出了问题，
谁可以解释一下这是怎麽回事@@" 我卡在这里卡好久阿....
※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: ※ 引述《Bonder (Yes)》之铭言：
: : 各位大大...小弟初学VB.net
: : 想要产生6个乱数在1-49之间
: : 很直观就这样写
: 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
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.224.141.230