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

Date: 2015-10-07; view: 540.

A. Ввод строки в текстовое поле, шаблон находится в процедуре

Практическая работа 7. Оператор Like

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

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

Private Sub Command1_Click()txtLike.Text = txtOper.Text Like "a*[1-3]!"End Sub

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

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

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

Dim j As String, sh As String, res As Booleanj = txt1.Text: sh = txt2.Text: res = j Like sh: lbl1.Caption = res

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

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

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

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

Рис. 1.10.Оператор Like; схема формы

<== previous lecture	\|	next lecture ==>
Операторы	\|	Практическая работа 8. Логические операторы, конкатенация

lektsiopedia.org - 2013 год. | Page generation: 0.027 s.