作业帮 > 综合 > 作业

VB程序设计 设计程序s=-1+ /3 - /5 + /7 +……+(-1)^n * /(2n-1)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/29 21:09:52
VB程序设计 设计程序s=-1+ /3 - /5 + /7 +……+(-1)^n * /(2n-1)
求s不大于10000时最大的n值
代码如下:
Private Sub Command1_Click()
f = 1
Do
n = n + 1
f = f * n
t = 2 * n - 1
s = s + (-1) ^ n * f / t
If s = 10000 Then
Print n
Exit Sub
End If
Loop Until s > 10000
Print n - 1
End Sub
如果最后一次正好s=10000,那么n值就是n本身,但如果最后一次s>10000,那么n的值就应该是n-1了.
再问: 还是不对。。好吧我不懂= =
再答: 你打错代码了,倒数第五行Exit Sub你写成了End Sub了。