如何将二进制数据转换为字符串？

Question

如何将二进制数据转换为字符串？使用哪个函数？

Answer 1

dim a$
a$=str(101010010101)就可以了~不要忘记了加分分数哦~~~

Answer 2

dim a$
a$=str(101010010101)
如果二进制是101010010101
你要它变成怎么样？

Answer 3

你的意思是：比如一个整数10，其二进制数为：1010，转换成‘1010’字符串吧！给你一个函数（查表法）：
Private Function GetTwo(ByVal strS As String) As String
    Dim strHex As String, strTmp As String
    Dim I As Long, K As Long
    Dim strarrTwo(15) As String
    Dim strR As String
    
    strarrTwo(0) = "0000"
    strarrTwo(1) = "0001"
    strarrTwo(2) = "0010"
    strarrTwo(3) = "0011"
    strarrTwo(4) = "0100"
    strarrTwo(5) = "0101"
    strarrTwo(6) = "0110"
    strarrTwo(7) = "0111"
    strarrTwo(8) = "1000"
    strarrTwo(9) = "1001"
    strarrTwo(10) = "1010"
    strarrTwo(11) = "1011"
    strarrTwo(12) = "1100"
    strarrTwo(13) = "1101"
    strarrTwo(14) = "1110"
    strarrTwo(15) = "1111"
    
    strHex = Hex(Me.Text1.Text)
    
    K = Len(strHex)
    
    For I = 1 To K
        strTmp = Mid(strHex, I, 1)
        Select Case strTmp
                Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
                    strR = strR & strarrTwo(Val(strTmp))
                Case "A", "B", "C", "D", "E", "F"
                    strR = strR & strarrTwo(Asc(strTmp) - 55)
        End Select
    Next I
    
    GetTwo = strR
End Function

Answer 4

笔误！
重新写一次:
你的意思是：比如一个整数10，其二进制数为：1010，转换成‘1010’字符串吧！给你一个函数（查表法）：
Private Function GetTwo(ByVal strS As String) As String
    Dim strHex As String, strTmp As String
    Dim I As Long, K As Long
    Dim strarrTwo(15) As String
    Dim strR As String
    
    strarrTwo(0) = "0000"
    strarrTwo(1) = "0001"
    strarrTwo(2) = "0010"
    strarrTwo(3) = "0011"
    strarrTwo(4) = "0100"
    strarrTwo(5) = "0101"
    strarrTwo(6) = "0110"
    strarrTwo(7) = "0111"
    strarrTwo(8) = "1000"
    strarrTwo(9) = "1001"
    strarrTwo(10) = "1010"
    strarrTwo(11) = "1011"
    strarrTwo(12) = "1100"
    strarrTwo(13) = "1101"
    strarrTwo(14) = "1110"
    strarrTwo(15) = "1111"
    
    strHex = Hex(strS)
    
    K = Len(strHex)
    
    For I = 1 To K
        strTmp = Mid(strHex, I, 1)
        Select Case strTmp
                Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
                    strR = strR & strarrTwo(Val(strTmp))
                Case "A", "B", "C", "D", "E", "F"
                    strR = strR & strarrTwo(Asc(strTmp) - 55)
        End Select
    Next I
    
    GetTwo = strR
End Function