Sub ЗаписьВФайл()
Dim Студент As Студенты
Dim i As Integer
Open "ГруппаЭкономистов"
For Random As #1 Len = Len(Студент)
For i = 1 To 5
With Студент
.Фамилия = Cells(i, 1).Value .Оценка = Cells(i, 2).Value
End With
Put #1, i, Студент
Next i
Close #1
End Sub '
Sub СчитываниеИзФайла()
Dim Студент As Студенты
Dim i As Integer
Dim n As Integer
Open "ГруппаЭкономистов"
For Random As #1 Len = Len(Студент)
n = LOF(l) / Len(Студент)
For i = 1 To n
Get #1, i, Студент
With Студент
Cells (i, 3) .Value = .Фамилия Cells(i, 4).Value = .Оценка
End With
Next i
Close #1
End Sub