以下函数的功能是：将一个(0～255)之间十进制数转换为二进制数，例如：将十进制数7转换为二进制数00000111，请填空。
Private Function Dtob(decade As String) As String
Dim binary As String
binary=""
n=Val(decade)
For i=1 To 8
binary= (14)
n=n\2
Next i
Dtob= (15)
End Function

岩屑录井中储集层符合率的计算公式是：储集层符合率＝电测渗透层数/综合图储集层数100％。