有加分：编写程序

来源：百度知道 编辑：UC知道 时间：2024/05/25 12:29:17
1、S=1/2+1/(2*2)+1/(2*2*2)+......+1/(2^n)
1)求该数列前100项的和
2)求出多少项后余下的部分的和小于0.00001

2、应该在式子3（）*8256=（）3*6528中填上一个数字，等式才成立
[注： 3（）和（）3是一个数]

这三道题哪位好心的哥们帮我编出来。

第一题:
Private Sub Command1_Click()
Dim s, i As Double, k As Double
k = 1
i = 1
Do While i <= 100
k = k * 2
s = s + 1 / k
i = i + 1
Loop
Print "前一百项的和是"; s
End Sub
第2题：
Private Sub Command1_Click()
Dim s, i As Double, k As Double, n
k = 1
i = 1
Do
k = k * 2
s = s + 1 / k
i = i + 1
n = 1 - s
Loop Until n <= 0.00001
Print i

End Sub
第3题又点不行