作业帮 > 数学 > 作业

帮忙 以下程序用于计算1-1/2+1/3-1/4...1/100的值 共有三处错

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/07/15 21:53:02
帮忙 以下程序用于计算1-1/2+1/3-1/4...1/100的值 共有三处错
Private Sub C1_Click()
Dim I As integer
Dim sign As integer
Dim total As integer
sign=1
total=0
for i=1 to 100
sign=sign*(-1)
total=sign*1/I
next i
Text1.text=total
End Sub
帮忙 以下程序用于计算1-1/2+1/3-1/4...1/100的值 共有三处错
Private Sub C1_Click()
Dim I As integer
Dim sign As integer
Dim total As integer
sign=1
total=0
for I=1 to 100 //变量要一致
total=total+sign*1/I //结果要累加
sign=sign*(-1) //符号根据题意是偶数项为负
next i
Text1.text=total
End Su