大虾救急啦!Dim Buff() As Byte 转为Dim StrA As String怎么转

Question

Dim Buff() As Byte 'Buff()有20个字节
要转为 Dim StrA As String 怎么转

Answer 1

Private Sub Command1_Click()
    Dim Buff() As Byte 'Buff()有20个字节
    Dim i As Integer
    Dim StrA As String
    ReDim Buff(19)
    For i = 0 To 19
        Buff(i) = i + 48
    Next
    For i = 0 To 19
        StrA = StrA & Chr(Buff(i))
    Next
    Text1 = StrA
End Sub

Answer 2

StrA = Buff  就可以，StrA 的编码格式取决于 Buff

Answer 3

上楼的兄弟说得对，直接赋值就可以了，只是最好还是使用StrConv函数
StrA = StrConv(Buff, vbFromUnicode)
或者是
StrA = StrConv(Buff, vbUnicode）

Answer 4

Private Sub Command1_Click()
  Dim i As Integer
  Dim intA(20) As Byte
  For i = 0 To 20
  intA(i) = 65 + i
  Next
  Dim strA As String
  strA = StrConv(intA, vbUnicode)
End Sub

Answer 5

Private Sub Form_Click()
  Dim i As Integer
  Dim bta(19) As Byte
  For i = 0 To 19
    bta(i) = i + 49
  Next
  Dim strA As String
  strA = StrConv(bta, vbUnicode)
  Print strA
End Sub

Answer 6

StrA = StrConv(Buff, vbFromUnicode)