II. Практическая часть. Public Type struct_sotrudmika

1. Задача 1.

‘ В модуле

Public Type struct_sotrudmika

Fam As String * 1

Name As String * 1

Sur As String * 1

year As String * 4

ph As String * 1

End Type

Dim i, i2 As Integer

Private Sub Command1_Click()

Dim sved As struct_sotrudmika

Open "C:\Program Files\Microsoft Visual Studio\VB98\год поступленя\db.txt" For Random As #1 Len = Len(t(1))

c = LOF(1) / Len(t(1))

For i = 1 To c

Get #1, i, t(i)

Next i

For i = 1 To c - 1

min = CInt(t(i).year)

ind_min = i

For i2 = i + 1 To c

If (CInt(t(i2).year) < min) Then

min = CInt(t(i2).year)

ind_min = i2

End If

Next i2

sved = t(i)

t(i) = t(ind_min)

t(ind_min) = sved

Next i

For i = 1 To c

Print t(i).Fam & " " & t(i).Name & " " & t(i).Sur & " " & t(i).ph & " " & t(i).year

Next i

End Sub

2. Задача 2.