Re: 拜託

[BearWu (B.r)]

　　I   |    J   |     K    |         Sum
        |        |          |
    1   |   1~1  |    1*1   |         1*1                    k 又等於 1
        |        |          |
    2   |   1~2  |    1*2   |      1*1 + 1*2                 k 又等於 1
        |        |          |
    3   |   1~3  |   1*2*3  |    1*1 + 1*2 +1*2*3            k 又等於 1
        |        |          |
    4   |   1~4  |  1*2*3*4 |   1*1 + 1*2 + 1*2*3 + 1*2*3*4  k 又等於 1

    以此類推

: Private Sub Form_Activate()
:  Sum=0
:  K=1
:    For I=1 to 10
:      For J=1 to I
   ＠     K=K*J
:      Next J
:      Sum=Sum + K
:      K=1

       每次執行完後　k都要變成1  以讓　＠　每次都從　1　開始乘

:    Next I
:  Print"1!+2!+.....+10!的總和為";Sum
: End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.113.169.150
※ 編輯: BearWu          來自: 59.113.169.150       (04/18 23:24)