有关BCD码的识别！up有分！

Question

vb中涉及位的操作可能很困难，但是我觉得，也只是觉得，BCD码的作用是用4位的二进制表示1位十进制，那么就可以先将BCD码转换成10进制，在转换成ASCII，不知是否可行。

Answer 1

不太容易说清楚。这里做了两个函数，直接调用就可以了
'由ASCII码转BCD码
Function AscToBCD(ASCII() As Byte) As Byte()
    Dim i As Integer
    Dim bTemp As Byte
    Dim bBCD() As Byte
    Dim bAsc() As Byte
    Dim bA As Byte
    Dim bB As Byte
    Dim intLen As Integer
    
    intLen = UBound(ASCII)
    
    If intLen Mod 2 = 0 Then intLen = intLen + 1
    ReDim bAsc(intLen) As Byte
    ReDim bBCD((intLen + 1) / 2 - 1) As Byte
    
    For i = 0 To UBound(ASCII)
        bAsc(i) = ASCII(i)
    Next
    
    If intLen > i Then bAsc(intLen) = &H0   '对数组不是偶数的补位
    
    For i = 0 To intLen
        If bAsc(i) < Asc("0") Then
            bAsc(i) = Asc("0")
        ElseIf ((bAsc(i) > Asc("9")) And (bAsc(i) < Asc("A"))) Then
            bAsc(i) = Asc("0")
        ElseIf ((bAsc(i) > Asc("F")) And (bAsc(i) < Asc("a"))) Then
            bAsc(i) = Asc("0")
        ElseIf (bAsc(i) > Asc("f")) Then
            bAsc(i) = Asc("0")
        End If
        
        If (bAsc(i) >= Asc("0") And bAsc(i) <= Asc("9")) Then
            bA = bAsc(i) - Asc("0")
        ElseIf (bAsc(i) >= Asc("a") And bAsc(i) <= Asc("z")) Then
            bA = bAsc(i) - Asc("a") + &HA
        Else
            bA = bAsc(i) - Asc("A") + &HA
        End If
        
        i = i + 1
        
        If bAsc(i) < Asc("0") Then
            bAsc(i) = Asc("0")
        ElseIf ((bAsc(i) > Asc("9")) And (bAsc(i) < Asc("A"))) Then
            bAsc(i) = Asc("0")
        ElseIf ((bAsc(i) > Asc("F")) And (bAsc(i) < Asc("a"))) Then
            bAsc(i) = Asc("0")
        ElseIf (bAsc(i) > Asc("f")) Then
            bAsc(i) = Asc("0")
        End If
        
        If (bAsc(i) >= Asc("0") And bAsc(i) <= Asc("9")) Then
            bB = bAsc(i) - Asc("0")
        ElseIf (bAsc(i) >= Asc("a") And bAsc(i) <= Asc("z")) Then
            bB = bAsc(i) - Asc("a") + &HA
        Else
            bB = bAsc(i) - Asc("A") + &HA
        End If
        
        bBCD((i - 1) / 2) = (bA * 16) Xor bB
    Next
    
    AscToBCD = bBCD
End Function

Answer 2

调用BCDToAsc
Private Sub Command1_Click()
    Dim bA(3) As Byte
    Dim bB() As Byte
    Dim i As Integer
    
    bA(0) = Asc("1")
    bA(1) = Asc("0")
    bA(2) = Asc("a")
    bA(3) = Asc("F")
    
    bB = AscToBCD(bA)
    For i = 0 To UBound(bB)
        MsgBox Hex(bB(i))
    Next
End Sub
结果为 &H10 和&HAF

Answer 3

'由BCD转ASCII码
Function BCDToAsc(BCD() As Byte) As Byte()
    Dim i As Integer
    Dim bTemp As Byte
    Dim bAsc() As Byte
    Dim intLen As Integer
    
    intLen = UBound(BCD)
    ReDim bAsc(intLen * 2 + 1) As Byte '重新定义数组上标
    
    For i = 0 To intLen
        bTemp = (BCD(i) / 16) And &HF
        If bTemp > 9 Then
            bAsc(i * 2) = bTemp + Asc("A") - 10
        Else
            bAsc(i * 2) = bTemp + Asc("0")
        End If
        
        bTemp = BCD(i) And &HF
        
        If bTemp > 9 Then
            bAsc(i * 2 + 1) = bTemp + Asc("A") - 10
        Else
            bAsc(i * 2 + 1) = bTemp + Asc("0")
        End If
    Next
    
    BCDToAsc = bAsc
End Function