杭州交通信息网成都新远望手机报价:VF编程——寻求高手。速度要快急用，答对送30分
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 13:42:03
用程序实现S=1+5+12+22+35+51......加50次
提示：规律是5-1=4，12-5=7，22-12=10，......
1‘4’7‘10’13‘16’......
记住是加50次。
提示：规律是5-1=4，12-5=7，22-12=10，......
1‘4’7‘10’13‘16’......
记住是加50次。
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次吧
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本人不太熟悉，这个你可以参考一下。