1＋2＋2的2次方＋2的3次方＋……＋2的99次方

1＋2＋2的2次方＋2的3次方＋……＋2的99次方

=1*（1-2的100次方）/（1-2）
=2的100次方-1

2^100-1

Private Sub cmdQ_Click()
'1＋2＋2的2次方＋2的3次方＋……＋2的99次方
Dim xN, xASum As Integer
xSum = 1
For xN = 1 To 99
xSum = xSum + (2 ^ xN)
Next
MsgBox "1＋2＋2的2次方＋2的3次方＋……＋2的99次方=" & xSum
End Sub
哥们,给分啊.

2的一百次方-2的一次方（就是2啦）（我觉得是这个）
反正提高班的老师这样讲的