Option Explicit. Const n As Integer = 20 'Константа определяет количество записей в книжке

Const n As Integer = 20 'Константа определяет количество записей в книжке

Private Type Друг 'Создана структура для хранении данных о друзьях

Fam As String

Name As String

BirthDay As Date

Telephone As Long

End Type

Dim Друзья(1 To n) As Друг 'Обьявлен массив, состоящий из структур

Dim c As Integer

Private Sub CmdAdd_Click()

If c = n + 1 Then

MsgBox "больше добавлять нельзя", _

vbExclamation, "Столько друзей не бывает"

Exit Sub

End If

Друзья(c).Fam = TxtFam.Text

Друзья(c).Name = TxtName.Text

Друзья(c).BirthDay = DTPicker1.Value

Друзья(c).Telephone = Val(TxtTelephone.Text)

c = c + 1

Call formClear

End Sub

Private Sub CmdFind_Click()

Dim j As Integer

Dim flag As Boolean

flag = False

Call formClear

Print "Результат поиска"

Print "======================================="

For j = 1 To c - 1

If TxtFind.Text = Друзья(j).Fam Then

Print Друзья(j).Fam; " "; Друзья(j).Name; " "; _

Друзья(j).BirthDay; " "; Друзья(j).Telephone

flag = True

End If

Next j

If flag = False Then

MsgBox "такой фамилии нет", _

vbExclamation, "Поиск не дал результатов"

Call formClear

TxtFind.Text = ""

End If

End Sub

Private Sub CmdFind1_Click()

Dim j As Integer

Dim flag As Boolean

flag = False

Call formClear

Print "Результат поиска"

Print "======================================="

For j = 1 To c - 1

If TxtFind1.Text = Mid(Друзья(j).BirthDay, 4, 2) _

Then

Print Друзья(j).Fam; " "; Друзья(j).Name; " "; _

Друзья(j).BirthDay; " "; Друзья(j).Telephone

flag = True

End If

Next j

If flag = False Then

MsgBox "такой месяца нет", _

vbExclamation, "Поиск не дал результатов"

Call formClear

TxtFind1.Text = ""

End If

End Sub

Private Sub CmdView_Click()

Dim j As Integer

Call formClear

For j = 1 To c - 1

Print Друзья(j).Fam; " "; Друзья(j).Name; " "; _

Друзья(j).BirthDay; " "; Друзья(j).Telephone

Print

Next j

End Sub

Private Sub Form_Load()

c = 1

Call formClear

End Sub

Private Sub formClear()

FrmДрузья.Cls

TxtFam.Text = ""

TxtName.Text = ""

DTPicker1.Value = Date

TxtTelephone.Text = ""