Astro73

Option Explicit

Public Type Student
    lastName As String * 20
    firstName As String * 20
    middleName As String * 20
    age As Integer
    gender As String * 1
    grade As Integer
    rank As Integer
    gpa As Single
    homeroom As String * 4
    hrTeacher As String * 20
    counselor As String * 20
    absent As Single
    tardy As Integer
    
    idNumber As Long
    Title(0 To 5) As String * 20
    
    credits As Single
    courseNumber As String * 3
    teacher(0 To 5) As String * 20
    kind(0 To 5) As String * 1 'A, H, R (AP, Honors, Regular)
    q1(0 To 5) As Single
    q2(0 To 5) As Single
    q3(0 To 5) As Single
    q4(0 To 5) As Single
    exam(0 To 6) As Single
    ytd As Single
    comment(2) As Integer
    Street As String * 40
    City As String * 15
    State As String * 40
    Zip As String * 5
    
End Type
Public s As Student

Public filename As String