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

标签： , , ,

标题: 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回答。

赞赏

微信赞赏支付宝赞赏

相关文章:

  1. AscW函数返回负数的问题
  2. 用VBS屏蔽键盘和鼠标
  3. 用VBS处理二进制文件的实例
  4. VBS伪造HTTP-REFERER（二）
  5. VBS字符串与UTF-16（Unicode）

随机文章:

  1. 为什么用strlcpy取代strncpy
  2. VBS字符串的内部实现
  3. VB编程实现XP风格
  4. PT作弊的几种方法
  5. VB6.0中的“取消 Pentium(tm) FDIV 安全性检查”

这篇文章发布于 2011年05月4日，星期三，22:10，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。

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

  1. 李征宇说道：
    2012年11月12日 15:14

    msgbox 5050

    回复
  2. 五棵松说道：
    2013年11月13日 19:19

    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

    回复

留下回复