标题: VBS练习题——计算1到100的和
作者: Demon
链接: https://demon.tw/programming/vbs-1-100-sum.html
版权: 本博客的所有文章,都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。
上小学的时候,你一定听过高斯的故事:
高斯用很短的时间计算出了小学老师布置的任务:对自然数从1到100的求和。他所使用的方法是:对50对构造成和101的数列求和(1+100,2+99,3+98……),同时得到结果:5050。这一年,高斯9岁。
但是,在这里,假设你不知道高斯公式,请你用VBS计算计算1到100的和。我知道你肯定会不屑一顾,但是,加上一些限制条件,你是否还能想出答案?
- 新手级:可以使用循环语句
- 高手级:不可以使用循环语句
- 骨灰级:不可以使用循环语句,也不可以使用条件语句,更不可以手工从1敲到100
如果你知道答案,可以到http://vbs.demon.tw/topic.php?id=16回答。
赞赏微信赞赏支付宝赞赏
随机文章:
msgbox 5050
MsgBox Sum(100)
Function Sum(Max)
On Error Resume Next
Dim Ghost
ReDim Ghost(Max – 1)
Call DoSum(Max, Ghost)
Sum = Ghost(0) \ 2 + 1
End Function
Sub DoSum(Val, Arr)
Arr(0) = Arr(0) + Arr(Val – 1) + Val
DoSum Val – 1, Arr
End Sub