int fun2(int n)
{
    unsigned char *p;
    p = (unsigned char *)&n;
    return table[p[0]] + table[p[1]] + table[p[2]] + table[p[3]];
}
对于这个程序，我分析时也说了，按理来说应该是时间最少的，编译后只有 mov 和 add 指令。
对于C来说，可 unsigned char 可以直接从long(C里面是 int ）转成byte（C里是 Char )数组。
对VB6而说，要么使用除法慢慢算，要么调用API函数复制内存，开销超大。所以 VB6 在这里就出现很奇怪的事。
至于9楼的算法，我还要晚上慢慢琢磨一下。

cs=cs and (cs-1)
弄清楚了意思了。
减掉1后，
有二种情况，一种是末位为1，一种是末位为0的。
1、末位为1的，减1后，末位变0，其他位不变，AND后，清掉了末位1。
2、末位为0的，减1后，最后一个1变成0，这之后的0都变成1，与原数AND后，这位及后面位也全部清为0了。这种情况下，实际是统计了这位的1。
循环。
是效率高很多。

循环调用10000000次，计时间
方法一用时：0.2890625
方法四用时：61.69531
方法六用时：0.203125  （9楼方法，本楼代码）

Public Function CountOne6(cs As Long) As Long
Dim k As Long
Dim j As Long
k = cs
j = 0
Do While k > 0
        k = k And (k - 1)
        j = j + 1
Loop
CountOne6 = j
End Function

[此贴子已经被作者于2021-9-13 18:41编辑过]

这个对我来说太高大上了

高版本VB支持位移应该还可优化

感觉太复杂了,不怎么理解!