帮忙 以下程序用于计算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
来源:学生作业帮助网 编辑:六六作业网 时间:2025/02/02 00:47:18
帮忙 以下程序用于计算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没有累计;