Re: [ASP ] 想寫個像樂透的程式但是遇到了瓶頸
這標題用錯了喔,應該用[.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
討論串 (同標題文章)
完整討論串 (本文為第 4 之 5 篇):