| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 701 人关注过本帖
标题:关于加法的问题
只看楼主 加入收藏
一叶秋
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2004-4-21
收藏
 问题点数:0 回复次数:5 
关于加法的问题

1+2+5+10+17+26+37+…

求前二十项的和。对吗?

Private Sub Command1_Click() Dim a(20) As Integer a(1) = 1 For i = 2 To 20 a(i) = a(i - 1) + 2 * (i - 1) - 1 Next

Print a(20)

End Sub

搜索更多相关主题的帖子: 加法 
2004-06-17 11:39
pigpigpig
Rank: 1
等 级:新手上路
帖 子:51
专家分:0
注 册:2004-4-18
收藏
得分:0 
print a(20)是第20项的值

没有做不到的,只有想不到的!
2004-06-17 16:02
pigpigpig
Rank: 1
等 级:新手上路
帖 子:51
专家分:0
注 册:2004-4-18
收藏
得分:0 

Private Sub Command1_Click() Dim a(20) As Integer Dim i As Integer Dim sum As Integer sum = 1 a(1) = 1 For i = 2 To 20 a(i) = a(i - 1) + 2 * (i - 1) - 1 sum = sum + a(i) Print sum Next

End Sub


没有做不到的,只有想不到的!
2004-06-17 16:10
段帅龙
Rank: 1
等 级:禁止访问
帖 子:82
专家分:0
注 册:2006-11-5
收藏
得分:0 

都不对啊!你们a(i)表达式都不对啊!
Private Sub Command1_Click()
Dim a(20) As Integer
Dim i As Integer
Dim sum As Integer
sum = 1
a(1) = 1
For i = 2 To 20
a(i) = a(i - 1) + 2 * (i - 1) - 1

sum = sum + a(i)
Print sum
Next

End Sub


剑傲网赚论坛诚聘版主url]http://www.[/url],让你的网络生活从此更加精彩!
2007-04-10 16:47
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
Dim I As Integer, K As Integer

K = 0
For I = 0 To 19
'刚刚错打成3了不好意思
K = K + I ^ 2 + 1
Next
Print K

[此贴子已经被作者于2007-4-10 17:03:28编辑过]


VB QQ群:47715789
2007-04-10 17:01
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 
a(1) = 1
a(i+1) = a(i)+2*i-1

想用高数来对数列求和 发现已经想不起如何做了

2007-04-10 17:50
快速回复:关于加法的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016651 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved