Re: 拜託
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)
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
