帮忙 以下程序用于计算1-1/2+1/3-1/4...1/100的值 共有三处错Private Sub C1_Click()Dim I As integerDim sign As integerDim total As integersign=1total=0for i=1 to 100 sign=sign*(-1) total=sign*1/Inext iText1.text=totalEnd Sub

帮忙 以下程序用于计算1-1/2+1/3-1/4...1/100的值 共有三处错Private Sub C1_Click()Dim I As integerDim sign As integerDim total As integersign=1total=0for i=1 to 100 sign=sign*(-1) total=sign*1/Inext iText1.text=totalEnd 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
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 integerDim sign As integerDim total As integersign=1total=0for i=1 to 100 sign=sign*(-1) total=sign*1/Inext iText1.text=totalEnd Sub
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 Sub

第一 i没有申明；
第二 I没有赋值；
第三 total没有累计；