Question

vb如何计算一个字节有几个位为1？

一个无符号32位变量，怎么vb计算有几个位为1？不要使用属性和方法，有没有直接的函数？

Answer 1

用下这个吧!可以完成的你的要求
Function GetBY(k As Long) As Integer
Static BasicB(1 To 32) As Long, LoadOK As Boolean
Dim i As Integer, j As Integer
If LoadOK = False Then
For i = 1 To 31
BasicB(i) = 2 ^ (i - 1)
Next
BasicB(32) = &H80000000
End If
For i = 1 To 32
If k And BasicB(i) Then j = j + 1
Next
GetBY = j
End Function

Answer 2

没有直接的函数，自己写一个吧