![]() ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Битовые операции в языке 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 Не нашли, что искали? Воспользуйтесь поиском:
|