附上源碼吧
Private Sub Command1_Click()
Dim i, j As Integer
For i = 0 To 255
For j = 0 To 255
If (&H32 Xor i) + (&H30 Xor j) = &HF2 Then
If (&H42 Xor i) + (&H40 Xor j) = &H12 Then
Text1 = ""
Text1 = Text1 + "|" + Hex(i) + "+" + Hex(j)
End If
End If
Next j
Next i
End Sub