VB求s=1+2/(1+2)+3/(1+2+3)+4/(1+2+3+4)+.+100/(1+2+3+.+100)的值我用VB求这个式子的值:列了一个式子Private Sub Command1_Click()s = 1: i = 1: s1 = 1For i = 1 To 100s1 = s1 + 1s = s + (i + 1) / (s1 + i + 1)Next iLabel2 = sEnd Sub问一
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 07:29:31
![VB求s=1+2/(1+2)+3/(1+2+3)+4/(1+2+3+4)+.+100/(1+2+3+.+100)的值我用VB求这个式子的值:列了一个式子Private Sub Command1_Click()s = 1: i = 1: s1 = 1For i = 1 To 100s1 = s1 + 1s = s + (i + 1) / (s1 + i + 1)Next iLabel2 = sEnd Sub问一](/uploads/image/z/7223972-68-2.jpg?t=VB%E6%B1%82s%3D1%2B2%2F%281%2B2%29%2B3%2F%281%2B2%2B3%29%2B4%2F%281%2B2%2B3%2B4%29%2B.%2B100%2F%281%2B2%2B3%2B.%2B100%29%E7%9A%84%E5%80%BC%E6%88%91%E7%94%A8VB%E6%B1%82%E8%BF%99%E4%B8%AA%E5%BC%8F%E5%AD%90%E7%9A%84%E5%80%BC%EF%BC%9A%E5%88%97%E4%BA%86%E4%B8%80%E4%B8%AA%E5%BC%8F%E5%AD%90Private+Sub+Command1_Click%28%29s+%3D+1%3A+i+%3D+1%3A+s1+%3D+1For+i+%3D+1+To+100s1+%3D+s1+%2B+1s+%3D+s+%2B+%28i+%2B+1%29+%2F+%28s1+%2B+i+%2B+1%29Next+iLabel2+%3D+sEnd+Sub%E9%97%AE%E4%B8%80)
VB求s=1+2/(1+2)+3/(1+2+3)+4/(1+2+3+4)+.+100/(1+2+3+.+100)的值我用VB求这个式子的值:列了一个式子Private Sub Command1_Click()s = 1: i = 1: s1 = 1For i = 1 To 100s1 = s1 + 1s = s + (i + 1) / (s1 + i + 1)Next iLabel2 = sEnd Sub问一
VB求s=1+2/(1+2)+3/(1+2+3)+4/(1+2+3+4)+.+100/(1+2+3+.+100)的值
我用VB求这个式子的值:列了一个式子
Private Sub Command1_Click()
s = 1: i = 1: s1 = 1
For i = 1 To 100
s1 = s1 + 1
s = s + (i + 1) / (s1 + i + 1)
Next i
Label2 = s
End Sub
问一下错了吗?错在哪里了?
VB求s=1+2/(1+2)+3/(1+2+3)+4/(1+2+3+4)+.+100/(1+2+3+.+100)的值我用VB求这个式子的值:列了一个式子Private Sub Command1_Click()s = 1: i = 1: s1 = 1For i = 1 To 100s1 = s1 + 1s = s + (i + 1) / (s1 + i + 1)Next iLabel2 = sEnd Sub问一
你的程序的问题先从第一次循环开始看i=1
s1=s1+1 '执行完成s1=2
s = s + (i + 1) / (s1 + i + 1) '执行完成s=1+2/(2+1+1) 这明显与题意相差太多了.
改动如下
s = 1: i = 1: s1 = 0
For i = 1 To 100
s1 = s1 + i
s = s + i / s1
Next i
Label2 = s