Напишите программу для вычеркивания в данном слове всех букв, стоящих на нечетных местах после буквы "а"

Написать на Visual Basic

Question

Информатика

Елисей

24 декабря, 09:27

Напишите программу для вычеркивания в данном слове всех букв, стоящих на нечетных местах после буквы "а"

Написать на Visual Basic

+1

Ответы (1)

Знаете ответ на вопрос?

Геновефа · Answer 1

Sub ex1 ()

Dim s As String, s1 As String

Dim i As Integer, j As Integer

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

i = InStr (s, "а")

If i > 0 Then

s1 = Left (s, i)

For j = i + 2 To Len (s) Step 2

s1 = s1 + Mid (s, j, 1)

Next j

Else

s1 = s

End If

MsgBox "Результат: " + s1

End Sub

Напишите программу для вычеркивания в данном слове всех букв, стоящих на нечетных местах после буквы "а"Написать на Visual Basic

Напишите программу для вычеркивания в данном слове всех букв, стоящих на нечетных местах после буквы "а"

Написать на Visual Basic