作者BearWu (B.r)
看板Visual_Basic
标题Re: 拜托
时间Tue Apr 18 23:23:24 2006
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)