在哪出错 Function ToHex(s As String) As String Dim l, n As Long Dim s1, s2, s3 As String l = Len(s) s3 = "" For i = 0 To l - 1 s1 = Mid(s, l, 1) n = Asc(s1) s2 = Hex(n) If Len(s2) = 1 Then s2 = "0" & s2 End If s3 = s3 & s2 Next i ToHex = s3 End Function y
