Программный код для кнопки закрыть:
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. Двумерные массивы