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

名前

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

本文 ガッさん、いなさん 早速のご返答ありがとうございます。 ガッさんへ >ハミング距離…Xor演算？ 調べてみたのですが、理解不能です。 申し訳ありません。もう少しご説明いただけると助かります。 いなさんへ １０進を２進には変換ですが、 Function DecToBin(ByVal x As Long) As String Dim a& a = 1 Dim y& y = 0 Dim i& For i = 0 To &H20 - 1 If Mid(x, i + 1, 1) <> " " Then y = y Or a End If If i < &H20 - 1 - 1 Then a = a * 2 Else a = &H80000000 'オーバフロー対策 End If Next DecToBin = y End Function