Dim a As Byte,b As Byte,c As Byte
输入a,b,c
If a>b Then
a=a xor b
b=a xor b
a=a xor b
End If
If a>c Then
a=a xor c
c=a xor c
a=a xor c
End If
If b>c Then
b=b xor c
c=b xor c
b=b xor c
End If
Msgbox Trim(Str(a)) & " " & Trim(Str(b)) & " " & Trim(Str(c))
End If
加密迭代