Вот пример программы на Visual Basic, которая выполняет указанное действие:
Module Mai Sub Main( Dim word As String = "какая-то строка для проверки Dim newWord As String = " Dim foundA As Boolean = Fals For i As Integer = 0 To word.Length - If word(i) = "а"c The foundA = Tru ElseIf foundA AndAlso i Mod 2 <> 0 The newWord = newWord & "_ Els newWord = newWord & word(i End I Nex Console.WriteLine(newWord End Su End Module
Программа принимает строку "какая-то строка для проверки" и заменяет все буквы, стоящие на нечетных позициях после буквы "а", знаком подчеркивания "_". Результат выводится в консоль.
Вот пример программы на Visual Basic, которая выполняет указанное действие:
Module MaiSub Main(
Dim word As String = "какая-то строка для проверки
Dim newWord As String = "
Dim foundA As Boolean = Fals
For i As Integer = 0 To word.Length -
If word(i) = "а"c The
foundA = Tru
ElseIf foundA AndAlso i Mod 2 <> 0 The
newWord = newWord & "_
Els
newWord = newWord & word(i
End I
Nex
Console.WriteLine(newWord
End Su
End Module
Программа принимает строку "какая-то строка для проверки" и заменяет все буквы, стоящие на нечетных позициях после буквы "а", знаком подчеркивания "_". Результат выводится в консоль.