7,763
社区成员
发帖
与我相关
我的任务
分享
'VB6
Option Explicit
Sub Main()
Test ChrB(168)
Test Chr(168)
Test ChrW(168)
End Sub
Sub Test(ByVal s As String)
Dim a() As Byte
Dim i As Long
a = s
For i = 0 To UBound(a)
If i > 0 Then Debug.Print "-";
Debug.Print Right$("0" & Hex(a(i)), 2);
Next
Debug.Print
End Sub
A8
00-00
A8-00