哪位朋友举手之劳帮个忙

Question

点击：http://topic.csdn.net/u/20090425/08/7bc8e6e6-e561-4ba8-aba2-7744de121f25.html?seed=1840709925回个＂路过＂就行．谢谢．

Answer 1

呵呵。昨天看到珠珠认真作答一个0分的技术帖，感觉有点惭愧。决定以后即使0分，如果知道的话，也回答。可惜我太菜了，能回答得很少。另外，你怎么不去回一下这个帖啊？http://topic.csdn.net/u/20090425/08/7bc8e6e6-e561-4ba8-aba2-7744de121f25.html是请你回这个链接里的帖，而不是这个0分的帖哦。

Answer 2

之所以需要帮忙，是因为CSDN不允许同一个ID连续发言3次，而我已经发了3次言了，可还有些问题要讨论。所以得请别的朋友给断一下，这样我好继续发言。

Answer 3

Function UnsignedAdd (ByVal Start As Long, ByVal Incr As Long) As Long
    Const SignBit As Long = &H80000000
    UnsignedAdd=(Start Xor SignBit) + Incr Xor SignBit
End FunctionFunction UnsignedAdd (ByVal Start As Long, ByVal Incr As Long) As Long
    Const SignBit As Long = &H80000000
    UnsignedAdd=(Start Xor SignBit) + Incr Xor SignBit
End Function

Answer 4

 
Dim uintA As Long, uintB As Long
Dim lngSub As Long, lngSum As LonglngSub = uintA - uintB
lngSum = uintA + uintB