编写程序 求1+(1+2)+(1+2+3)+……前100项的和……vb

Question

用vb 最好完整一点
Private Sub Command1_Click()
Dim j, n, s As Integer
n = 100
s = 0
For j = 1 To n
s = s + f(j)
Next
Print "S=1＋（1＋2）＋（1＋2＋3）＋…＋（1＋2＋3＋4＋…＋100）=", s
End Sub

Function f(Bybal n As Integer) As Integer
Dim i, t As Integer
s = 0
For i = 1 To n
t = t + i
Next
f = t
End Function------这个是网络找的，输入vb一直有错

Answer 1

Private Sub Form_Click()
Dim i As Long, S As Long
For i = 1 To 100
S = S + CalcSum(i)
Next
Print S
End Sub

Function CalcSum(N As Long)
If N = 1 Then
CalcSum = 1
Else
CalcSum = CalcSum(N - 1) + N
End If
End Function