Dim snm As Integer

Dim sln As Single

Dim lcn As Integer

Программный код для кнопки добавить:

Private Sub dobav_Click()

If nst.Text<>"" Then

Sp.AddItem nst.Text

lcn=lcn+1

sarr(lcn)=nst.Text

nst.Text=""

End If

Nst.SetFocus

End Sub

Программный код для кнопки очистить:

Private Sub ochis_Click()

Dim i As Integer

Sp.Clear

For i=1 To lcn

sarr(i)=""

Next i

Nst.SetFocus

sred.Caption=""

fst.Caption=""

End Sub

Программный код для кнопки искать:

Private Sub isk_Click()

Dim i As Integer

snm=0

sln=0

For i=1 To lcn

If InStr(sarr(i), fin.Text) Then

snm=snm+1

sln=sln+Len(sarr(i))

End If

Next i

fst.Caption=snm

If snm>0 Then

sred.Caption=sln/snm

Else

MsgBox "Нет строк!", 48

End If

Nst.SetFocus

fin=""

End Sub

5. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.