Private Sub Test_WjStudentIDSelectorY2008M03D11() [2008-03-18-PM-09-16-23]

    Private Sub Test_WjStudentIDSelectorY2008M03D11()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating:  60%
        ' (再利用的可能性) Chances of reuse:  40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 18 PM 08 28 32)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim O As WjStudentIDSelectorY2008M03D11

        Dim MaxStudentIdNumber As Integer

        MaxStudentIdNumber = 50

        O = New WjStudentIDSelectorY2008M03D11(MaxStudentIdNumber)

        Dim SB As New System.Text.StringBuilder

        With SB
            .Append(GetStandardTimeStampWithYearMonthDayAndTime)
            .Append(vbNewLine)
            .Append(O.SelectAStudentIdNumber)
            .Append(vbNewLine)
            .Append(vbNewLine)
        End With

        Me.RichTextBox1.Text = SB.ToString & Me.RichTextBox1.Text

    End Sub ' Test_WjStudentIDSelectorY2008M03D11
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -