作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [.NET] 产生乱数 ... 我这样写哪里有问题
时间Wed Dec 27 12:55:40 2006
※ 引述《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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半点痴情遗留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.175.60
1F:推 biox:还是会出现:从字串 "Label1" 转换为型别 'Integer' 是无效的 01/07 16:06
2F:→ biox:错误发生在controls那边 这是什麽问题? 01/07 16:07