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