Введите битовую строку и дополните её последним
битом, который должен быть равен 0, если в
исходной строке чётное число единиц, и равен 1,
если нечётное (в получившейся строке должно
всегда быть чётное число единиц).
пример:
введите битовую строку: 01101010110
результат: 011010101100
Function func32725655(i As String)
Dim str() As String, j, zero_one(2) As Integer
zero_one(0) = 0: zero_one(1) = 1
str = Split(i, 0)
j = UBound(str, 1)
i = i & zero_one(j Mod 2)
func32725655 = i
End Function
Excel VBA