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

名前

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

本文 1文字づつ取り出して XOR すればいいです。 Dim strData As String Dim bytData As Byte Dim i As Integer strData = "R5672" For i = 1 To Len(strData) bytData = bytData Xor Asc(Mid$(strData, i, 1)) Next i MsgBox Hex(bytData)