Практическая работа по VISUAL BASIC.Проект «Подсчитать количество вхождений"

Выполнив задания этой практической работы, вы научитесь: Проект «Подсчитать количество вхождений» ­  создавать   форму   и   размещать     на   ней   элементы     управления   (CommandButton, TextBox); ­ устанавливать свойства  элементов управления (Caption, Text, MultiLine, ScroolBars,); ­ вводить текст  программы и её отладка (вспомните циклический оператор, строковые функции, функцию вывода); ­ сохранять проект. Для выполнения задания вам надо знать: ­ элементы  управления и их свойства; Класс объектов Свойства CommandButton (кнопка) Caption (надпись) Значение по умолчанию  Новое  значение Command1 Подсчитать TextBox (текстовое поле) ­Text (текст) ­MultiLine(многострочный текст) ­ ScroolBars (скролинг) Text1 Text2 True Vertical ­ inStr (I,Text1.Text, Text2. Text)­  определяет позицию вхождения     текста 2 в текст 1, начиная с позиции I, если такого вхождения нет, то значение функции  равно нулю.   Задание: 1 Создать   форму,   расположив   на   ней соответствующие   управляющие   элементы, настроив их свойства. 2 Составить   событийную   процедуру,   которая бы при нажатии на кнопку «ПОДСЧИТАТЬ» осуществляла   поиск   части   в   общем   тексте (выделяет синим цветом) и выводила количество вхождений, либо сообщение, если таких вхождений нет. 3 Сохранить проект в папке «Проекты».       образец       решения                                     Примерный   Private Sub Command1_Click() k = 0 p = 1 i = 1 While p = 1 If InStr(i, Text1.Text, Text2.Text) <> 0 Then k = k + 1 i = InStr(i, Text1.Text, Text2.Text) + Len(Text2.Text) Elsep = 0 End If Wend If k = 0 Then MsgBox ("Вхождений нет") Else MsgBox (k) End If End Sub