vb中 String转换成byte数组问题

Question

这段代码没看懂 请教各位帮分析说明下呗 谢谢啦
Private Function ConvertStringToBytes(ByVal s As String) As Byte()
   Dim b1() As Byte: b1 = s
   Dim l As Long: l = (UBound(b1) + 1) \ 2
   If l = 0 Then ConvertStringToBytes = b1: Exit Function
   Dim b2() As Byte
   ReDim b2(0 To l - 1) As Byte
   Dim p As Long
   For p = 0 To l - 1
      Dim c As Long: c = b1(2 * p) + 256 * CLng(b1(2 * p + 1))
      If c >= 256 Then c = Asc("?")
      b2(p) = c
      Next
   ConvertStringToBytes = b2
   End Function

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim bytA() As Byte
    Dim strP As String
    strP = "中华人民共和国ABC"
    bytA = StrConv(strP, vbUnicode)
End Sub

Answer 2

本帖最后由 bcrun 于 2013-01-31 12:10:48 编辑

  

Answer 3

本帖最后由 bcrun 于 2013-01-31 12:08:30 编辑