＞＞ ＜＜ と Cっぽい書き方でできる
Dim i As Integer i = 4 >> 1 ' 算術右シフト : i = 4 \ (2 ^ 1) = 2 となる ' &B0100(&H4) -> &B0010(&H2) i = 4 << 1 ' 算術左シフト : i = 4 * (2 ^ 1) = 8 となる ' &B0100(&H4) -> &B1000(&H8) i = 7 >> 2 ' 算術右シフト : i = 7 \ (2 ^ 2) = 1 となる ' &B0111(&H7) -> &B0001(&H1) i = 3 << 2 ' 算術左シフト : i = 3 * (2 ^ 2) = 12 となる ' &B0011(&H3) -> &B1100(&HC) i = 5 i = i >> 1 ' 算術右シフト : i = 2 i = i << 3 ' 算術左シフト : i = 16
