怎么计算出这个2进制数,请教大侠

Question

长度L由两个字节表示
D7  D6  D5  D4  D3  D2  D1 D0
D15 D14 D13 D12 D11 D10 D9 D8 其中 D1 D0 为
     0   1
D2~D15表示数据长度
现在数据长度是十进制的15我该怎么计算出这个长度L的两个字节内容分别是多少

Answer 1

Private Sub Command1_Click()
    Debug.Print D2B(15)
End Sub
'十进制转换到二进制
Private Function D2B(intInput As Integer) As String
    Dim i As Integer
    D2B = ""
    For i = 0 To 15
        D2B = (intInput And (2 ^ i)) / (2 ^ i) & D2B
    Next
End Function