Порядок действий. 1. Расположите на форме два текстовых поля, две метки и одну кнопку

1. Расположите на форме два текстовых поля, две метки и одну кнопку.

2. Установите значение свойства Name для меток – LblФраза и LblГласные соответственно.

3. Установите значение свойства Caption верхней метки — Введите фразу, нижней метки – Встреченная гласная.

4. Установите значение свойства Caption формы — Гласные.

5. Установите значение свойства Name для текстовых полей — txtФраза и txtГласные соответственно.

6. Установите значение свойства Name для командной кнопки — cmdПуск.

7. Значения свойств объектов, определяющих внешний вид приложения, установите по своему усмотрению.

8. Проанализируйте представленный ниже программный к а затем наберите его.

Private Sub сmdПуск_ ()

Dim ВсеГласные As String, фраза As String, ВстреченныеГласные As String, t As String

Dim L As Integer, i As Integer, d As Integer

ВсеГласные = "аеёиоуыэюяАЕЁИОУЫЭЮЯ" ' все гласные буквы

фраза = txtФраза.Text 'фраза

ВстреченныеГласные = "" 'Множество гласных букв во введенной фразе

L = Len(фраза) 'Длина введенной фразы

For i = 1 To L

t = Mid(фраза, i, 1) 'Выделенный символ

If InStr(ВсеГласные, t) <> 0 Then 'Если очередной cимвол гласная

If InStr(ВстреченныеГласные, t) = 0 Then 'и если она еще не встречалась

ВстреченныеГласные = ВстреченныеГласные + t 'то добавляем ее к ‘множеству гласных

End If

Next i

d = Len(ВстреченныеГласные) 'Длина сформированной фразы

Select Case d

Case 0

LblГласные.Caption = "Гласных нет"

txtГласные.Visible = False

Case 1

LblГласные.Caption = " Встреченная гласная:"

txtГласные.Visible = True

txtГласные.Text = ВстреченныеГласные

Case Else