不理解这个代码的算法

不理解这个代码的算法！
不理解这个代码的算法！


题目要求是：
本金1000，利息0.05，假设所有的利息都累计存储，计算并显示10年之内每年的年终总数，使用下面的公式：
         
            a   =   p(1+r)^n

p代表本金
r代表利率
n代表年数
a代表第n年的年终总数
代码是这样写的：

Module   Module1

        Sub   Main()
                Dim   principle   As   Integer   =   1000
                Dim   rate   As   Double   =   0.05
                Dim   sum   As   Double
                Dim   year   As   Integer   =   0
                Dim   output   As   String

                output   =   "年数 "   &   vbTab   &   "当年本金+利息 "   &   vbCrLf
                For   year   =   1   To   10
               
                                sum   =   principle   *   (1   +   rate)^   year '对这一行的法，我不明白！

                        output   =   output   &   year   &   vbTab   &   sum   &   vbCrLf

                Next
                Console.WriteLine(output)
                Console.ReadLine()
         
        End   Sub

End   Module

对于上面我不明白算法的那一行，我认为应该这么写：
sum   =   principle   +   principle   *   (rate^   year)
但是似乎结果不对，可是它写的算法我怎么弄也不明白。
关键就在“假设所有的利息都累计存储”这句话上

期待明白的人给解决
先谢谢各位

[解决办法]
你这么算,是不对的,本金单独出来,没有算利息啊,后面的利息部分也不对.你这样算年数存的越多,总金额反而越少了.
本来的那个公式就是高中政治政治书上计算复利的公式啊,楼主不理解么?看来政治经济学没学好啊,呵呵.
“假设所有的利息都累计存储”的意思就是每一年产生的利息都计入下一年的本金中计算利息.
故:
第一年: 本金 p 利息 r
第二年: 本金 p+r=p(1+r) 利息 (p+r)*r
第三年: 本金 p+r+(p+r)r=p(1+r)^2 利息 p(1+r)^2*r
·
·
·
第n年的本金即是第n-1年的总金额a
故：
第n年的总金为a = p(1+r)^n,题中已经给出了啊,呵呵.
这样说,楼主明白了没?