Dim slovkol As Integer

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

Poisk.Hide

Unload poisk

menu.Enabled=True

Menu.Show

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

Spis.AddItem slovo.Text

slovkol=slovkol+1

slovarr(slovkol)=slovo.Text

slovo.Text=""

Slovo.SetFocus

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

Poisk.Cls

If spis.List(0)=Empty Then

MsgBox "Заполните список", 16, "Внимание"

Exit Sub

End If

Dim i, sum As Integer

poisk.CurrentX=Lab_pr.Left

poisk.CurrentY=Lab_pr.Top+30

buk.Caption=bukva.Text

For i=1 To slovkol

If Right$(slovarr(i), 1)=bukva.Text Then

Poisk.Print slovarr(i)

Else

sum=sum+1

End If

Next i

result.Caption=sum

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

Форма отчета: дискета или иной носитель с файлами форм и проектов работы № 4; текстовый файл с изображениями форм и текстами программных кодов.

Тема 6. Двумерные массивы