凑十法:1+9 2+8 3+7 4+6 5+5
因此结果等于:10+(2+8)+(6+4)-(3+7)-5-9+1=7
这种方法没有涉及到负数
(-1)x5+11=6
7
1+2-3+4-5+6-7+8-9+10=
0-1-1-1+10=10-3=7
负的1006
=1+449+1000=1450
90
因为:1、先只看数,第一行1个,第二行3个,第三行5个,同理可知:第n行1+(n-1)*2所以第十行为19个数
2、金字塔的最后一个数是行数的平方!可知:第十行最后一个数为:100
综合1、2、可知第10行从左边数第9个数是90
考虑符号,奇数位—,偶数为+,所以为+90
故第10行从左边数第9个数是90
注意看我在你出问题的地方加了注释:
-----------------------------
Dim i, sum, a, n As Short
i = 1 : a = 2 : sum = 0 : n = 10
Do
sum = sum - i '这句基本等于没执行
sum = a + i '因为这里用a+1的值覆盖了sum
i += 2
a += 2
Loop While i <= 10
MsgBox("答案是:" & sum, , "回复")
==========================================
我在你的基础上修改简化的:
Dim i, sum, a As Short
i = 2 : a = 1 : sum = 1
Do
sum = sum + (a * i)
i = i + 1
a = -a
Loop While i <= 10
MsgBox("答案是:" & sum, , "回复")