Private Sub CmdSort_Click()
'prints all the Course Groups
Dim Index As Integer
Dim record As Integer
Dim NumberOfRecords As Integer
Dim CourseGroup As Integer
Printer.Print "List Of All Teams and Players"
Printer.Print
Printer.Print "Player"; Tab(25); "Team"
Printer.Print
For Index = 1 To 3
Printer.Print "League " & Index
Printer.Print
Open RandomFilename For Random As #1 Len = Len(Student)
NumberOfRecords = LOF(1) / Len(Student)
For record = 1 To NumberOfRecords
Get #1, , Student
If Index = Student.CourseGroup Then
Printer.Print Student.Name; Tab(25); Student.CourseCode
End If
Next record
Close #1
Printer.Print
Next Index
I spent two weeks volunteering in my local Primary school working with the Key Stage One classes. I worked with a range of groups sizes of children, one on one, small groups and the whole class. I also helped supervise a class outing.
While this was only a two week post I feel it helped develop my communication skills and gave me confidence in roles of responsibility.
As title, hope its not seen as mindless spam just amusing to see what some people have, so only reply once and maybe give an explanation to make it more understandble
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.