查人人中国名人网吉林医药学院最好专业:vb编程小问题急求高手解答
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/09 10:33:34
如下程序求sum=2/1+5/2+11/5+23/11+.....的前n项和。
可是运行说下标越界。急求原因。
Private Sub Command1_Click()
Dim sum As Long
Dim i, n As Integer
Dim a() As Integer
a(1) = 2
sum = 0
For i = 1 To n
i = i + 1
a(i) = (2 * a(i - 1) + 1) / a(i - 1)
sum = sum + a(i)
Next i
sum = sum + a(1)
Text1.Text = sum
End Sub
谢谢！
可是运行说下标越界。急求原因。
Private Sub Command1_Click()
Dim sum As Long
Dim i, n As Integer
Dim a() As Integer
a(1) = 2
sum = 0
For i = 1 To n
i = i + 1
a(i) = (2 * a(i - 1) + 1) / a(i - 1)
sum = sum + a(i)
Next i
sum = sum + a(1)
Text1.Text = sum
End Sub
谢谢！
你试一试下面的代码，求前101项的和
Private Sub Command1_Click()
Dim sum As Double
Dim i As Integer
Dim a(0 To 100) As Double
a(0) = 2
sum = 0
For i = 1 To 100
a(i) = 2 * a(i - 1) + 1
sum = sum + a(i) / a(i - 1)
Next i
sum = sum + 2
Text1.Text = sum
End Sub
运行结果：202.876643261219