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()

End Sub

Private Sub Command1_Click()

End Sub

Private Sub Command1_Click()

End Sub

Private Sub Command1_Click()

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

Задача 1. Составьте слово "романтика" из букв слова "информатика".

X$ = "информатика"

Y$ = Mid$(X$, 5, 1) + Mid$(X$, 4, 1) + Mid$(X$, 6, 2) + _

Mid$(X$, 2, 1) + Mid$(X$, 8, 4)

Print X$

Print Y$

При составлении данной программы рекомендуется использовать копирование части строки. Это выполняется так:

- Когда вы первый раз напечатали Mid$(X$,

- поставьте курсор слева от М

- Нажмите Shift и, не отпуская его, нажмите клавишу ®

- Поместим выделенную часть строки в буфер обмена Ctrl+C

- В нужном месте вставим Mid$(X$, клавишами Ctrl+V

Задача 2. Составьте программу перестановки букв в слове, при которой последняя буква становится первой, а все другие сдвигаются к концу слова.

Например: Дано: удар Надо: руда

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

Print x$

x$ = Mid$(x$, Len(x$), 1) + Mid$(x$, 1, Len(x$) - 1)

Print x$

Задача 3. Составить программу выясняющую совпадает ли первая буква слова с последней. Контрольные образцы: арбуз и арба

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

Print x$

If Mid$(x$, 1, 1) = Mid$(x$, Len(x$), 1) Then _

Print "совпадают" Else Print "не совпадают"

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

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

Print x$

y$ = ""

For i = 1 To Len(x)

If Mid$(x, i, 1) = "е" Then _

y = y + "я" Else y = y + Mid$(x, i, 1)

Задача 5. Составьте программу, удаляющую из слова букву "а". (машина Þ мшин)

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

Print x$

y$ = ""

For i = 1 To Len(x)

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

Задача 6. Составьте программу, удваивающую каждую букву слова Х. лес Þ ллеесс

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

Print x$

y$ = ""

For i = 1 To Len(x)

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

Задача 7. Составьте программу, вставляющую перед каждой буквой "о" букву "р".

лось Þ лрось