排他的論理和の計算をするには？ (ID:111492)

名前

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

本文 簡単に書けば・・・ Debug.Print hex$((((asc("R") xor asc("5")) xor asc("6")) xor asc("7")) xor asc("2")) プログラムにすれば・・・ Dim sz As String Dim g As Integer Dim c As Integer Dim i As Integer sz = "R5672" c = Asc(Left$(sz, 1)) g = c For i = 2 To Len(sz) c = Asc(Mid$(sz, i, 1)) g = g Xor c Next i Debug.Print Hex$(g) ※ きれいなコードではありませんが、結果が得られます。 以上。