作者qq1217 (...)
看板CSMU-MIS96
標題[情報] 校週會名單出爐
時間Thu Dec 3 19:38:49 2009
大家好，一學期n次的校週會又來了
校週會名單：37、2、1、28、49、35、10、17、16、41
經過亂數產生，名單如下圖 (有圖有真相)
http://img6.imageshack.us/i/77403768.png/
校週會時間：12/15 (二) 中午11點40 in 大禮堂
無故未到者，小過一支
程式碼真相如下：
Private Sub Form_Load()
Dim N(15) As Integer
Dim i As Integer
Dim mStr As String
Randomize
i = 1
Do
N(i) = Int(Rnd() * 51 + 1)
i = i + 1
For j = 1 To i - 2
If N(i - 1) = N(j) Then
i = i - 1
Exit For
End If
Next
Loop Until i = 16
For i = 1 To 15
mStr = mStr & vbCrLf & N(i)
Next
MsgBox mStr
End Sub
一組15個由上到下選出，並且淘汰不在班上的號碼
若不足人數則重新產生，超過10人則由上而下選出
所以，請各位記得要參加喔 (￣▽￣＃)﹏﹏
OS：我好想再多騙一點P幣...〒△〒
--
------------------------------------------------------------
天天開心，開心的每一天~~~^^
＊ ＊
∴ ∵ ∴
＊ ∴ ∵
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.128.142.122
※ 編輯: qq1217 來自: 140.128.142.122 (12/03 19:40)
1F：推 notimenofree:來，神手高敎你簡單的程式碼 12/04 02:20
2F：推 crazytank:有請神手高解說 科科 12/04 09:26