Question

求1+2+4+7+11+16+22+29+37+46的值一个算法

Answer 1

Private Sub Command1_Click()

Dim a As Integer,sum As Integer

a = 1

For i = 0 To 9

a = a + i

sum = sum + a

Next i

Print sum

End Su