10進数から2進数のビット変化について (ID:125359)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 前回のものは間違いでした。 １０進を２進には変換ですが、 Function Dec2BinEx(Dec) Do Dec2BinEx = CStr(Dec Mod 2) & Dec2BinEx Dec = Dec \ 2 Loop Until Dec = 0 End Function