VBS练习题——计算1到100的和

标签: , , ,

上小学的时候,你一定听过高斯的故事:

高斯用很短的时间计算出了小学老师布置的任务:对自然数从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回答。

随机文章:

  1. 隐藏Nginx和PHP版本号
  2. PT作弊分析
  3. WMI工具:WMI Code Creator v1.0
  4. PT流量作弊工具之mRatio
  5. VBS中也有Vector

2 条评论 发表在“VBS练习题——计算1到100的和”上

  1. 李征宇说道:

    msgbox 5050

  2. 五棵松说道:

    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

留下回复