raffle program

'assume rsRecordset and cnConnection already declared

Private Sub Form_Load()
Dim CurrStudent As Integer
Dim intStudents() As Integer
Dim Upperbound As Integer
Dim blnInArray As Boolean
Dim intI As Integer, intJ As Integer
Dim NumRequiredStudents As Integer

Upperbound = (rsRecordset.recordcount - 1)

'assign numrequired students to exact number needed (1-based)
For intJ = 0 To NumRequiredStudents - 1
    CurrStudent = CInt((Upperbound * Rnd) + 0)

    For intI = 0 To UBound(intStudents)
        If intStudents(i) = CurrStudent Then
            blnInArray = True
        Else
            blnInArray = False
        End If
    Next intI

    If blnInArray = False Then
        ReDim Preserve intStudents(UBound(intStudents) + 1)
        intStudents(UBound(intStudents)) = CurrStudent
    Else
        intJ = intJ - 1
    End If
    
Next intJ

End Sub