|
- Clea
- ?js1(10),js2(20)
- &&方法1
- Function js1(N)
- Private s,i
- s=0
- For i=1 To 20
- s=s+js(i)
- Endfor
- Return s
- Endfunc
- &&方法2
- Function js2(N)
- Private s,i
- s=0
- For i=1 To N
- s=s+(N-i+1)*i
- Endfor
- Return s
- ENDFUNC
- &&计算1+2+3+...n的各
- Function js(N)
- Private s,i
- s=0
- For i=1 To N
- s=i+s
- Endfor
- Return s
- Endfunc
复制代码 运行得出结果。
结果是1540 |
|