VF编程——寻求高手。速度要快急用，答对送30分

Question

用程序实现S=1+5+12+22+35+51......加50次
提示：规律是5-1=4，12-5=7，22-12=10，......
1‘4’7‘10’13‘16’......

记住是加50次。

Answer 1

m=1
n=3
s=1
i=1
for j=1 to 49
m=m+n
s=s+m
i=i+s
endfor
?i

结果应该是对的吧 63750
还有想问的是:
1+5+12+22+35...+3725
数是50个吧不是加号是50次吧

Answer 2

Option Explicit
Private i, j, l, m, n As Double
Private Ldata(50)

Private Sub Command1_Click()
n = 0
For i = 1 To 50 Step 1
Ldata(i - 1) = 3 * i - 2
List1.AddItem 3 * i - 2
Next
For l = 1 To 50 Step 1
n = n + Hdata(l)
Text1.Text = n
Next
End Sub

Function Hdata(ByVal j As Integer) As Integer
m = 0
For i = 0 To j - 1 Step 1
m = m + Ldata(i)
Next
Hdata = m
End Function

VF本人不太熟悉，这个你可以参考一下。