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

名前

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

本文 Dim st As String Dim i As Long Dim k As Integer st = "R5672" k = Asc(Left$(st, 1)) For i = 2 To Len(st) k = k Xor Asc(Mid$(st, i, 1)) Next Msgbox k こんなん。