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

Question

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

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

Comments

Задача пустяковая, но среды VB у меня нет. Могу на VBA, это почти то же самое, только без формы.

---

Хорошо,давай)

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