Функция

[karapuzik]

Нужно сделать задание
1. Составить функцию, определяющую представляет ли запись натурального
числа в двоичной системе счисления чередующуюся последовательность
единиц и нулей, начинающуюся с единицы.
2. Напечатать таблицу чисел, соответствующих п.1, не превосходящих
заданное натуральное число
В интернете я нашла много способов перевода, например этот, но как это работает мне не понятно...
И как определить чередуются ли 1 и 0?
Спасибо

Private Function ConvertToBinary(ByVal lngQuotient As Long) As String
Dim strBinary As String
Dim strReturn As String
Dim i As Integer
i = 100
strBinary = String(i, "0")
Do While lngQuotient
Mid(strBinary, i, 1) = CStr(lngQuotient Mod 2)
lngQuotient = lngQuotient \ 2
i = i - 1
Loop
strReturn = Right(strBinary, 100 - i)
ConvertToBinary = strReturn
End Function

Private Sub Command1_Click()
Text2.Text = ConvertToBinary(Text1.Text)
End Sub

[Хакер]

И как определить чередуются ли 1 и 0?

Применить к числу две чередующиеся маски (с чётными битами и с нечётными). Если ни там, ни там в не получится ноль, значит число левое.