Private Type feedbackdata
 
Laboratory(0 To 4) As Integer
Library(0 To 4) As Integer
Teaching(0 To 4) As Integer
optLaboratory As Boolean
optLibrary As Boolean
optTeaching As Boolean
End Type
 
 
Dim Index As Integer
Dim recordNum As Integer
 
 
Private Sub cmdSubmit_click()
 
Dim feedback As feedbackdata
 
Open "C:\student.txt" For Random As #1 Len = Len(feedback)
 
recordnum = 0
 
For Index = 0 To 4
If optLaboratory(Index).Value = True Then
feedback.Laboratory(Index) = 1
Else: feedback.Laboratory(Index) = 0
Put #1, recordNum, feedback
Exit For
End If
Next Index
 
 
 
For Index = 0 To 4
If optLibrary(Index).Value = True Then
feedback.Library(Index) = 1
Else: feedback.Library(Index) = 0
Put #1, recordNum, feedback
Exit For
End If
Next Index
 
For Index = 0 To 4
If optTeaching(Index).Value = True Then
feedback.Teaching(Index) = 1
Else: feedback.Teaching(Index) = 0
Put #1, recordNum, feedback
Exit For
End If
Next Index
 
 
recordNum = recordNum + 1
 
Close #1
 
 
 
End Sub
 
 
Private Sub cmdReset_click()
Dim Index As Integer
For Index = 0 To 4
optLaboratory(Index).Value = False
Next
For Index = 0 To 4
optLibrary(Index).Value = False
Next
For Index = 0 To 4
optTeaching(Index).Value = False
Next
 
 
End Sub

Open "C:\student.txt" For Random As #1 Len = Len(feedback)

Option Explicit
 
Private Type feedbackdata
    Laboratory(0 To 4) As byte
    Library(0 To 4) As byte
    Teaching(0 To 4) As byte
 
End Type
 
Dim recordnum As Long
 
Private Sub cmdSubmit_click()
Dim feedback As feedbackdata, Index As Integer
 
    Open "C:\student.txt" For Random As #1 Len = Len(feedback)
 
        With feedback
            For Index = 0 To 4
                .Laboratory(Index) = Abs(OptLaboratory(Index).Value)
                .Library(Index) = Abs(OptLibrary(Index).Value)
                .Teaching(Index) = Abs(OptTeaching(Index).Value)
            Next Index
        End With
        recordnum = recordnum + 1
        Put #1, recordnum, feedback
    Close #1
    cmdReset_click
End Sub
 
Private Sub cmdReset_click()
Dim Index As Integer
    For Index = 0 To 4
        OptLaboratory(Index).Value = False
        OptLibrary(Index).Value = False
        OptTeaching(Index).Value = False
    Next
End Sub