两道循环部分的习题怎么做？（上一贴的补充）

您所在位置：社区首页 — Visual Basic讨论区 — 两道循环部分的习题怎么做？（上一贴的补充）

回帖发新帖刷新版面

主题：两道循环部分的习题怎么做？（上一贴的补充）

wulei0301 [专家分：0] 发布于 2010-12-04 22:10:00

我在循环这一部分有两道习题做不出来，希望朋友们帮帮忙，谢谢了！

本帖地址： http://bbs.pfan.cn/post/357487.html

回复列表（共2个回复）

沙发

一江秋水 [专家分：9680] 发布于 2010-12-05 11:20:00

Private Sub Command1_Click()
Dim N As Long, S As Single, A As Single
For N = 1 To Val(Text1)
A = A + (-1) ^ (N - 1) / (2 * N - 1)
Next
S = 4 * A
Debug.Print S
End Sub

板凳

wulei0301 [专家分：0] 发布于 2010-12-05 23:09:00

谢谢了

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：两道循环部分的习题怎么做？（上一贴的补充）

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：两道循环部分的习题怎么做？（上一贴的补充）

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）