1.Создать на форме объекты: CommandButton, 2 текстовых поля (Name=txtLike, Name=txtOper),

2.ввести код процедуры Command1_Click():

3.Private Sub Command1_Click()

4.txtLike.Text = txtOper.Text Like "a*[1-3]!"

End Sub

5.стартовать проект, вввести в текстовое поле txtOper: ark2!, сделать щелчок на командной кнопке, результат выводится в поле txtLike - True; вводить другие строки для сравнения с шаблоном

7b. Ввод обоих операндов в текстовые поля

1.Создать на форме объекты: CommandButton, 2 текстовых поля и объект Label, рисунок 1.10,

2.ввести код процедуры Command1_Click():

3. Dim j As String, sh As String, res As Boolean

j = txt1.Text: sh = txt2.Text: res = j Like sh: lbl1.Caption = res

4.стартовать проект, вввести в текстовые поля:

∙аa - в первое текстовое поле, а* - во второе поле, сделать щелчок на командной кнопке,

∙ав - в первое поле, в* - во второе поле, сделать щелчок на командной кнопке,

5.вводить другие строки для сравнения с шаблоном

329