作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [ASP ] 想写个像乐透的程式但是遇到了瓶颈
时间Sun Mar 30 13:40:28 2008
这标题用错了喔，应该用[.NET]比较适合...
而且是「主控台应用程式」专案
不过我以「Windows应用程式」专案为例
要用主控台的就把MsgBox()置换成Console.Write()
Private Sub btn_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn.Click
'换算成从午夜到现在经过的秒数
Randomize(Now.Second * 1000 + Now.Minute * 60 * 1000 + _
Now.Hour * 60 * 60 * 1000)
Dim numArr As New ArrayList(), arr(5) As Object, i As Int16, sp As Int16
'先把42个号码放入ArrayList中
For i = 1 To 42
numArr.Add(i)
Next
'开始选号
For i = 0 To 5
arr(i) = GetRndNumber(numArr)
MsgBox("第" + (i + 1).ToString() + "个号码是" + arr(i).ToString())
Next
'取得特别号
sp = GetRndNumber(numArr).ToString()
MsgBox("特别号是" + sp.ToString(), MsgBoxStyle.Information)
'将结果排序
Array.Sort(arr)
MsgBox("由小到大排列为" + Join(arr, ",") + "，特别号" + sp.ToString())
End Sub
Private Function GetRndNumber(ByVal src As ArrayList) As Int16
'每取得一个号码就从ArrayList中抽掉
Dim n As Int16, r As Int16
n = Int(Rnd() * (src.Count - 1))
r = src(n)
src.RemoveAt(n)
Return r
End Function
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.100.4