For i=1 To Len(Str)
   c=mid(Str,i,1)
   iCode =Asc(c)
   If iCode<0 Then iCode = iCode + 65535//这里为什么要加65535呀
   If iCode>255 Then
     iLow = Left(Hex(Asc(c)),2)//这里的Hex函数是什么意思的
     iHigh =Right(Hex(Asc(c)),2)
     toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
   Else
     toByte = toByte & chrB(AscB(c))
   End If
   Next
 End function

For i=1 To Len(Str)
   c=mid(Str,i,1)
   iCode =Asc(c)
   If iCode<0 Then iCode = iCode + 65535//这里为什么要加65535呀
   If iCode>255 Then
     iLow = Left(Hex(Asc(c)),2)//这里的Hex函数是什么意思的
     iHigh =Right(Hex(Asc(c)),2)
     toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)//这里在高位和地位前面加个H有什么用呀
   Else
     toByte = toByte & chrB(AscB(c))
   End If
   Next
End function

toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)//这里在高位和地位前面加个H有什么用呀

很明显，这就是把取到的四位16进制数高低位互换。


为什么加上H就可以高底位互换呢