7,765
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
熊孩子开学喽 2009-10-14
- 打赏
- 举报
太简单了:
MsgBox "1+2+4+7+11+16+22+29 =" & 1+2+4+7+11+16+22+29
MsgBox "1+2+4+7+11+16+22+29 =" & 1+2+4+7+11+16+22+29
砸死牛顿的苹果 2009-10-12
- 打赏
- 举报
打错1个字~
sum(k1:k7)=(8^3+5*8)/6+8=92
==>
sum(k1:k8)=(8^3+5*8)/6+8=92
sum(k1:k7)=(8^3+5*8)/6+8=92
==>
sum(k1:k8)=(8^3+5*8)/6+8=92
砸死牛顿的苹果 2009-10-12
- 打赏
- 举报
kn=n(n-1)/2+1
==>
sum(k1:kn)
=(n+1)n(n-1)/6+n
=(n^3+5n)/6
LZ 一共给了8个数
sum(k1:k7)=(8^3+5*8)/6+8=92
==>
sum(k1:kn)
=(n+1)n(n-1)/6+n
=(n^3+5n)/6
LZ 一共给了8个数
sum(k1:k7)=(8^3+5*8)/6+8=92
神马都能聊 2009-10-12
- 打赏
- 举报
[Quote=引用 5 楼 syssz 的回复:]
VB codePrivateSub Form_Load()
MsgBox1+2+4+7+11+16+22+29End Sub
[/Quote]
顶这个，还循环、递归？
楼主只问算结果。
VB codePrivateSub Form_Load()
MsgBox1+2+4+7+11+16+22+29End Sub
[/Quote]
顶这个，还循环、递归？
楼主只问算结果。
砸死牛顿的苹果 2009-10-12
- 打赏
- 举报
==>
sum(k1:k8)=(8^3+5*8)/6=92
sum(k1:k8)=(8^3+5*8)/6=92
砸死牛顿的苹果 2009-10-12
- 打赏
- 举报
当然只要结果 6岁的孩子就会了
只是题目刚好这么有规律 就不妨举一反三 推导一番
只是题目刚好这么有规律 就不妨举一反三 推导一番
linc_M 2009-10-11
- 打赏
- 举报
貌似某黑客网站入门题~~原题还要对每个数进行判断然后递归等等~~~~~
LittlePig 2009-10-10
- 打赏
- 举报
小学奥数题？
cBirdNO1NO1 2009-10-09
- 打赏
- 举报
推出通项公式a(n)=n(n-1)/2+1
或用递归：a(n+1)=a(n)+n,a(1)=1
或用递归：a(n+1)=a(n)+n,a(1)=1
threenewbee 2009-10-09
- 打赏
- 举报
立即窗口里面输入
? 1+2+4+7+11+16+22+29
回车。
? 1+2+4+7+11+16+22+29
回车。
孤独剑_LPZ 2009-10-07
- 打赏
- 举报
[Quote=引用 5 楼 syssz 的回复:]
VB codePrivateSub Form_Load()
MsgBox1+2+4+7+11+16+22+29End Sub
[/Quote]
结果简单，关键是找到规律，写出好的算法. 你的题目不应当是求结果，而应是求算法
VB codePrivateSub Form_Load()
MsgBox1+2+4+7+11+16+22+29End Sub
[/Quote]
结果简单，关键是找到规律，写出好的算法. 你的题目不应当是求结果，而应是求算法
chinaboyzyq 2009-10-07
- 打赏
- 举报
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer
a = 29
For i = 7 To 0 Step -1
b = b + a
a = a - i
Next
Debug.Print b
End Sub
CONGCONG1105 2009-10-07
- 打赏
- 举报
数学问题啊
booksoon 2009-10-07
- 打赏
- 举报
题目简单,却体现了一个很深刻的思想:迭代~~~
帝企鹅已被占用 2009-10-07
- 打赏
- 举报
把每个数减1，就容易了
SYSSZ 2009-10-07
- 打赏
- 举报
Private Sub Form_Load()
MsgBox 1 + 2 + 4 + 7 + 11 + 16 + 22 + 29
End Sub
rmini 2009-10-07
- 打赏
- 举报
楼主是出公务员考试试题的？？？？？？？？？？
chinaboyzyq 2009-10-07
- 打赏
- 举报
'这样也行，上一个也行，自己选着用吧！
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer
a = 1
For i = 0 To 7
a = a + i
b = b + a
Next
Debug.Print b
End Sub
无·法 2009-10-06
- 打赏
- 举报
Dim i%, j, s%
i = -1
j = 1
Do
i = i + 1
j = j + i
If j > 29 Then Exit Do
s = s + j
Loop
MsgBox sgetemail 2009-10-06
- 打赏
- 举报
太难，闪
