Question

帮我解决一下这三道题的vb程序，而且有关这三题会出哪些相关问题





Answer 1

第一个图
Private Sub Command1_Click()
dim i%，n%
n=0
for i=100 to 200
if i mod 3 =0 then
n=n+1
print i;
if n mod 10 =0 then print
end if
next

End Sub
第二图
Private Sub Command1_Click()
Dim i%, s!, f!
s = 0
n = 1
Do
f = 1
For i = 1 To n
f = f / i
Next
s = s + f
n = n + 1
Loop Until f < 0.0001
Print s
End Sub
第三图

看不清

追问

谢谢，还有后面两个帮我解决一下

追答

Private Sub Command1_Click()
Dim i%, s!, f!
s = 0
n = 1
Do
f = 1
For i = 1 To n
f = f / i
Next
s = s + f
n = n + 1
Loop Until f < 0.0001
Print s
End Sub
第三图

看不清

注意事项 多要注意付初值 特别是第二图的 n 和 f

追问

这是第二个图吗？

追答

是的

追问

还有这道题

帮我解决那上面的图，

谢谢^ω^

追答

Private Sub Command1_click()
Dim i%,s!,n%
S=0
n=10
For i =1 to n
s=s+1/i+1
next
print s

end sub