Как известно, числа в памяти хранятся в виде битовой последовательности и для ускорения работы, может потребоваться работать с битами на прямую, при помощи операторов AND, OR, XOR, NOT. Операции сдвигов (shift) двоичного числа в языке Visual Basic Script отсутствуют, но если двоичное число надо сдвинуть в право то можно использовать деление на 2 и соответственно умножение на 2, если сдвинуть надо влево.
Пример 14
option explicit
'демонстрация синтаксиса и семантики поразрядных битовых операций
dim a,b
a=Cint(inputbox("Введите два целых числа","введите первое число"))
b=Cint(inputbox("Введите два целых числа","введите первое число"))
msgbox a&" and "&b&" = "&(a and b),,"Битовая операция AND"
msgbox a&" or "&b&" = "&(a or b),,"Битовая операция OR"
msgbox a&" xor "&b&" = "&(a xor b),,"Битовая операция xor"
msgbox " not "&a&" = "&(not a),,"Инверсия битов в числе A"
Пример 15
option explicit
dim a
'Программа вывода битовой последовательности положительного 'десятичного числа
a=InputBox("Ввод числа","Введите число типа INT",0)
if IsNumeric(a) then
dim str
While a>0
str=CInt(Cint(a) and 1)&Str
a=a\2
WEnd
msgbox str
else msgbox "Ошибка ввода"
end if
Пример 16
option explicit
dim a
'Программа определения количества бит в двоичном
'представлении целого положительного числа
a=Cint(InputBox("Ввод числа","Введите число типа INT",0))
dim i 'параметр цикла
dim m
m=14
i=2^m
While ((a\i) and 1)<>1
m=m-1
i=2^m
Wend
msgbox m+1
