摘要： Private Function Byte2HexStr(bt() As Byte) As String Dim btLen As Integer Dim I As Integer Dim strDes As String btLen = UBound(bt) + 1 strDes = Space$(btLen * 2) For I = 0 To btLen - 1 Mid$(strDes, I + I + 1, 2) = Right$( "0 " & He... 阅读全文