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