- 积分
- 7303
- 最后登录
- 2023-8-23
- 精华
- 1
- 阅读权限
- 255
- 主题
- 72
- UID
- 2266471
- 帖子
- 13626
- PB币
- 100289
- 威望
- 308
- 贡献
- 1
- 技术
- 52
- 活跃
- 7534
我这是在哪
- UID
- 2266471
- 帖子
- 13626
- PB币
- 100289
- 贡献
- 1
- 技术
- 52
- 活跃
- 7534
|
发表于 2012-11-22 14:57:41
IP属地广西
|显示全部楼层
本帖最后由 shiniv 于 2012-11-22 15:21 编辑
乱蒙的- Dim n,i As Integer
- Dim sum As Single
- n = Val(InputBox("请输入N的值:"))
- sum = 1
- For i = 2 To 2 * n Step 2
- s = s + 1 / i
- Next i
复制代码 下面的这个完全不懂语法。。
应该 大概 貌似是这个的把。。
自己琢磨吧 -_-!!- Dim a, b As Integer
- Dim sum As Single
- a = Val(TextBox8.Text)
- b = Val(TextBox7.Text)
- sum = 1
- For c = a To b
- sum = sum + (-1)^(c-1)*(1/2^c)
- c = a + 1
- Next c
- Label13.Text = sum
复制代码 |
|