用VB计算S=1+2^2+2^3+…+2^10的代码

用VB计算S=1+2^2+2^3+…+2^10的代码

Private Sub Command1_Click()
Dim i,j,t
Dim sum
sum = 1
For i = 2 To 10
t = 1
For j = 1 To i
t = t * 2
Next j
sum = sum + t
Next i
Print sum
End Sub