[情報] 校週會名單出爐

[qq1217 (...)]

大家好，一學期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)
推 notimenofree:來，神手高敎你簡單的程式碼
推 crazytank:有請神手高解說 科科