學生之班號的挑選器Y2008M03D11 [2008-03-11-PM-09-06-44]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.學生之班號的挑選器
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -  
'     OOP2008C01.學生之班號的挑選器Y2008M03D11 [2008-03-11-PM-09-06-44]
'     Version: 1.00.02
'     Last Updated: (2008 03 11 PM 09 04 09)
' -   -   -   -   -   -  
'     OOP2008C01.學生之班號的挑選器Y2008M03D11 [2008-03-04-PM-08-58-59]
'     Version: 1.00.01
'     Last Updated: (2008 03 11 PM 09 03 15)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class 學生之班號的挑選器Y2008M03D11

    Private m_MaxStudentIdNumber As Integer
    Private m_MinStudentIdNumber As Integer = 1
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub New(ByVal MaxStudentIdNumber As Integer)
        ' ok

        Me.m_MaxStudentIdNumber = MaxStudentIdNumber

    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function 挑選一個學生的號碼() As Integer
        ' ok
        Dim myRandom As System.Random

        myRandom = New System.Random

        Dim myRandomNumber As Integer
        myRandomNumber = myRandom.Next

        Return (myRandomNumber Mod Me.m_MaxStudentIdNumber) + 1

    End Function
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class ' 學生之班號的挑選器Y2008M03D11