数组和字符串如何转换？

[pigeon0411]

Function CRC16(Data() As Byte) As String

      Dim CRC16Lo As Byte, CRC16Hi As Byte      'CRC寄存器

      '省略若干算法...

      Dim ReturnData(1) As Byte

      ReturnData(0) = CRC16Hi              'CRC高位

      ReturnData(1) = CRC16Lo              'CRC低位

      CRC16 = ReturnData

End Function

我想获取经函数 Function CRC16(Data() As Byte) As String 运算后得到的结果：

Private Sub Command1_Click()
      Dim my As String
      dim arr(255) as byte

      my = CRC16(arr)'请问如何取的经CRC16函数运算后的值？我用这种赋值方法，取不到结果
      '.....
End Sub

[孤独剑_LPZ]

my = join(CRC16(arr),",")

[jhone99]

Private Sub Command1_Click()
Dim my As String
dim arr as variant '这样试
my = CRC16(arr)'请问如何取的经CRC16函数运算后的值？我用这种赋值方法，取不到结果
'.....
End Sub

[pigeon0411]

[Quote=引用 1 楼 asftrhgjhkjlkttttttt 的回复:]
my = join(CRC16(arr),",")
[/Quote]

谢谢，这样确实可以得到数据。

我是想
Private Sub Command1_Click()
Dim my As String
dim arr(255) as byte
arr(0)=&H51
arr(1).....
......
arr(255)=&H58

my = CRC16(arr)
mscomm1.output = my ''我是想通过串口来把CRC16返回的结果按两个字节发送出去
''也就是说，我是希望把在CRC16中计算得到的结果：
' ReturnData(0) =CRC16Hi和ReturnData(1) = CRC16Lo分别通过串口发送出去，
'请问如何取这两个字节？
End Sub

[pigeon0411]

终于在网上找到了方法，我数据类型的转换看来是没搞的太明白啊，学习了。

Function CRC16(data() As Byte) As String
      Dim CRC16Lo As Byte, CRC16Hi As Byte      'CRC寄存器
      Dim CL As Byte, CH As Byte                '多项式码&HA001
      Dim SaveHi As Byte, SaveLo As Byte
      Dim i As Integer
      Dim Flag As Integer
      CRC16Lo = &HFF
      CRC16Hi = &HFF
      CL = &H1
      CH = &HA0
      For i = 0 To UBound(data)
        CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或
        For Flag = 0 To 7
          SaveHi = CRC16Hi
          SaveLo = CRC16Lo
          CRC16Hi = CRC16Hi \ 2            '高位右移一位
          CRC16Lo = CRC16Lo \ 2            '低位右移一位
          If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1
            CRC16Lo = CRC16Lo Or &H80      '则低位字节右移后前面补1
          End If                           '否则自动补0
          If ((SaveLo And &H1) = &H1) Then '如果LSB为1，则与多项式码进行异或
            CRC16Hi = CRC16Hi Xor CH
            CRC16Lo = CRC16Lo Xor CL
          End If
        Next Flag
      Next i
      Dim ReturnData(1) As Byte
      ReturnData(0) = CRC16Hi              'CRC高位
      ReturnData(1) = CRC16Lo              'CRC低位
      CRC16 = ReturnData
    End Function

Private Sub Command1_Click()
    Dim CRC() As Byte
    Dim d() As Byte
    ReDim d(7) As Byte
    Dim s As String
    Dim str As String
    Dim i As Integer

    d(0) = 50
    d(1) = 3
    d(2) = 40
    d(3) = 11
    d(4) = 0
    d(5) = 3
    CRC = CRC16(d)
    str = CRC
    s = ""
    For i = 1 To LenB(str)
        s = s + Hex(AscB(MidB(str, i, 1)))
    Next i
    Text1.Text = s
    Text2.Text = Right(s, 2)
    Text3.Text = Mid(s, 1, 2)
    If Len(s) < 4 Then
        Text3.Text = Mid(s, 1, 1)
    End If

End Sub

[chinaboyzyq]

恭喜了~~~~~~~~