作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [.NET] 产生乱数 ... 我这样写哪里有问题
时间Fri Jan 12 07:14:39 2007
CType(Me.Controls("Label" & (i + 1).ToString), Label).Text = r(i).ToString()
这样试试
※ 引述《biox ()》之铭言：
: 不好意思，我照这个程式执行之後出现了这个错误讯息
: http://0rz.tw/942kC
: 这个应该是controls的那几行出了问题，
: 谁可以解释一下这是怎麽回事@@" 我卡在这里卡好久阿....
: ※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: : 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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.68.49