可以这样:
svstr=""
for i=1 to 8
 svstr=svstr & chr(sbyte(i))
next i
如果想把svstr转换为byte,可以这样:
for i=1 to 8
 sbyte(i)=asc(right(left(svstr,i),1))
next i

解决方案 »

  1.   

    svstr = strconv(sbyte,vbUnicode)
      

  2.   

    谢谢你们,我这样试了以下:Dim sbyte(1 To 8) As Byte
        Dim svstr As String, i As Integer    sbyte(1) = 50
        sbyte(2) = 129
        sbyte(3) = 77
        sbyte(4) = 233
        sbyte(5) = 200
        sbyte(6) = 79
        sbyte(7) = 100
        sbyte(8) = 10
        
        'svstr = sbyte
        'svstr = StrConv(StrConv(sbyte, vbUnicode), vbFromUnicode)
        svstr = ""
        For i = 1 To 8
            svstr = svstr & Chr(sbyte(i))
        Next i    
        MsgBox svstr & "H"
        MsgBox Len(svstr)
        
        MsgBox CStr(Asc(Right(Left(svstr, 5), 1)))
    To zm:
        不行,比如上面代码中最后一个msgbox 显示的并不是200。to taolei:
        如何计算svstr的长度。
      

  3.   

    dim sbyte() as byte
    dim svstr as stringredim sbyte(1 to 8)sbyte(1)=45
    sbyte(2)=129
    sbyte(3)=77
    sbyte(4)=233
    sbyte(5)=200
    sbyte(6)=79
    sbyte(7)=100
    sbyte(8)=10'赋值:
    svstr = sbyte
    '取回:
    erase sbyte
    sbyte = svstr