End Sub

Next i

Private Sub Command1_Click()

End Sub

Next i

N = 0 ‘ счетчик порядкового номера буквы а в слове

Private Sub Command1_Click()

End Sub

Next i

N = 0 ‘счетчик количества букв а

Private Sub Command1_Click()

Занятие 24. Решение задач повышенной трудности на строковые величины

End Sub

Print y

Next i

Private Sub Command1_Click()

End Sub

Print y

Next i

Private Sub Command1_Click()

End Sub

Print y

Next i

Private Sub Command1_Click()

x$ = InputBox("Введите слово")

Print x$

y$ = ""

For i = 1 To Len(x)

If Mid$(x, i, 1) <> "о" Then y = y + Mid$(x, i, 1) _

Else y = y + "ро"

Задача 8. Составьте программу, удаляющую буквы стоящие в слове Х на четных местах. машина Þ мшн

x$ = InputBox("Введите слово")

Print x$

y$ = ""

For i = 1 To Len(x) Step 2

y = y + Mid$(x, i, 1)

Задача 9. Составьте программу, определяющую является ли слово Х перевёртышем.

шалаш Þ шалаш

перевертыш

телефон Þ нофелет

не перевертыш

x$ = InputBox("Введите слово")

Print x$; "=>";

y$ = ""

For i = 1 To Len(x)

y = Mid$(x, i, 1) + y

If x = y Then Print "перевертыш" Else Print "не перевертыш"

Задача 10. Составьте программу, определяющую, сколько раз встречается в слове буква "а". Например: шалаш Þ 2 лось Þ 0

x$ = InputBox("Введите слово")

Print x$

For i = 1 To Len(x)

If Mid$(x, i, 1) = "а" Then N = N + 1

If N = 0 Then Print "В слове нет букв а" _

Else Print N; " – букв ‘а’ в слове"

Задача 11. Составьте программу, определяющую, порядковый номер первой буквы "а" в слове. ананас Þ 1

x$ = InputBox("Введите слово")

Print x$

For i = Len(x) To 1 Step -1

If Mid$(x, i, 1) = "а" Then N = i

If N = 0 Then Print "В слове нет букв а" _

Else Print "Первая буква ‘а’ на "; N; "- месте"

Задача 12. Составьте программу, выясняющую, какая из букв "а" или "о" встречается в слове Х чаще.

x$ = InputBox("Введите слово")

Print x$

Счет_a = 0

Счет_o = 0

For i = 1 To Len(x)

If Mid$(x, i, 1) = "а" Then Счет_a = Счет_a + 1

If Mid$(x, i, 1) = "о" Then Счет_o = Счет_o + 1

If Счет_a = 0 And Счет_o = 0 Then Print "В слове нет букв а или о"

If Счет_a > Счет_o Then Print "а - встречается чаще"

If Счет_a < Счет_o Then Print "o - встречается чаще"

If Счет_a = Счет_o And Счет_a <> 0 Then _

Print "одинаково часто встречаются а и о"

Задача 13. Удалить из слова те буквы, что встречаются трижды.

Например: молоко Þ млк