UC知道VB 循环题解
来源：百度知道 编辑：UC知道 时间：2024/05/24 23:03:34
题目：求级数S=1/(1+1)+2/(2*2)+...+n(1+n*n)的前200项之和（取1位小数，第二位小数四舍五入）
程序代码如下：
Private Sub Form_Load()
Dim s As Integer, n As Integer
Show
s = 0
For n = 1 To 200
s = s + n / (1 + n * n)
n = n + 1
Next n
Print "s="; s
End Sub
请问哪里除了问题呢？
程序代码如下：
Private Sub Form_Load()
Dim s As Integer, n As Integer
Show
s = 0
For n = 1 To 200
s = s + n / (1 + n * n)
n = n + 1
Next n
Print "s="; s
End Sub
请问哪里除了问题呢？
n = n + 1
Next n
不用n=n+1了吧,next n就加1了.
另外这个题还有数据结构方面的问题.一个变量存不下计算过程中的结果,有先构建个数据结构来存.
For n = 1 To 200
s = s + n / (1 + n * n)
n = n + 1 .......这和下面的一样,重了
Next n
对，Integer会溢出