Битовые операции в языке Visual Basic

Как известно, числа в памяти хранятся в виде битовой последовательности и для ускорения работы, может потребоваться работать с битами на прямую, при помощи операторов 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

Не нашли, что искали? Воспользуйтесь поиском: