Образец выполнения задания

Пример 1. Рассчитать процентное содержание букв «А» в заданном слове.

1. Входными данными является любое слово на русском языке.

2. Выходными данными – общее количество букв-N, количество букв «А» в слове-K, процентное содержание.

3. Проектируем форму:

4. Составляем программу:

Dim SL As String, N As Integer, K As Integer, I As Integer

Private Sub Command1_Click()

SL = Text1.Text

N = Len(SL)

K = 0

For I = 1 To N

If Mid(SL, I, 1) = "А" Or Mid(SL, I, 1) = "а" Then

K = K + 1

End If

Next

Text2.Text = N

Text3.Text = K

Text4.Text = K * 100 / N

End Sub

Private Sub Command2_Click()

End

End Sub

5. Результат выполнения программы:

Пример 2. В заданной переменной вычислить количество гласных букв и на их место поставить символ «*».

1. Входными данными является любое слово на русском языке.

2. Выходными данными – преобразованное слово, общее количество гласных букв-K.

3. Проектируем форму:

4. Составляем программу:

Dim SL As String, K As Integer, I As Integer

Private Sub Command1_Click()

SL = Text1.Text

K = 0

For I = 1 To Len(SL)

If InStr("АЕЁИОУЫЭЮЯаеёиоуыэюя", Mid(SL, I, 1)) <> 0 Then

K = K + 1

Mid(SL, I, 1) = "*"

End If

Next

Text2.Text = SL

Text3.Text = K

End Sub

Private Sub Command2_Click()

End

End Sub

5. Результат выполнения программы: