华域联盟 vbs vbscript的骨灰级写法计算1到100的和

vbscript的骨灰级写法计算1到100的和

这篇日志完全是看了一篇日志后的启发,原文为:邪恶的eval和new Function。

很少使用new Array的方式来定义数组,没想到new Array有这么一个妙用,通过new Array(n)我们可以创建n个空元素,同时也就在n个元素中间存在n-1个空白,通过join,我们可以将一些东西放在这些空白中间从而组成我们需要的特殊串,这不禁启发了我的灵感,这个特点可以使我不通过循环就可以很容易的实现一个“有规律元素的连续运算”。比如计算1-100的数值的和。以往我们需要从1循环到100然后求和,但利用数组的这个特性我们可以通过简单的一行代码搞定,代码如下:


复制代码 代码如下:

var i=0,sum=eval('0'+new Array(101).join('+(++i)'));

此外可以做很多类似的数学运算,比如以下几个


复制代码 代码如下:

eval('0'+new Array(11).join('+Math.pow(++i,2)')) //计算1-10的平方和

eval('0'+new Array(100/2).join('+(i+=2)')) //计算2+4+6+...100的和

这些我们以往都通过循环进行的计算,现在都可以一行代码巧妙搞定,不得不叹服编程语言隐含的灵巧,编程的世界总有太多的东西等待我们去发现。

把上面的JavaScript代码改成VBS,就是VBS练习题所谓的骨灰级解法:

复制代码 代码如下:

Dim a(101)

Execute(Join(a,"s=s+i:i=i+1:"))

MsgBox s

原文:
http://demon.tw/programming/no-loop-calculate-1-100-sum.html
您可能感兴趣的文章:

本文由 华域联盟 原创撰写:华域联盟 » vbscript的骨灰级写法计算1到100的和

转载请保留出处和原文链接:https://www.cnhackhy.com/16281.htm

本文来自网络,不代表华域联盟立场,转载请注明出处。

作者: sterben

发表回复

联系我们

联系我们

2551209778

在线咨询: QQ交谈

邮箱: [email protected]

工作时间:周一至周五,9:00-17:30,节假日休息

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部