如何将一个integer值转换成二进制后反转存到数组dataB(159)中
发布网友
发布时间:2022-05-02 12:58
我来回答
共1个回答
热心网友
时间:2023-10-06 04:49
你这个还是挺复杂的,有问题可再问我。
逐行手敲,亲测可用。
Private Sub Command1_Click()
Dim data(9) As Integer
Dim dataB(159) As Integer
data(0) = -17592 '按举例
Dim i, a, b As Integer
i = 0
a = 0
Dim j As String
If data(i) < 0 Then
j = Dec_to_Bin((data(i) + 65536))
Else
j = Dec_to_Bin(data(i))
End If
For b = 1 To Len(j)
dataB(a) = Mid(j, (Len(j) - b + 1), 1)
a = a + 1
Next
Print j
Dim m As Integer
For m = LBound(dataB) To Len(j)-1 'UBound(dataB)
Print "dataB数组第" & m & "个数为:" & dataB(m)
Next
End Sub
Public Function Bin_to_Dec(ByVal Bin As String) As Long '二进制to十进制
Dim i As Long
For i = 1 To Len(Bin)
Bin_to_Dec = Bin_to_Dec * 2 + Val(Mid$(Bin, i, 1))
Next
End Function追问请问可否加q详聊