如何用一句话来体现你是程序员的级别?
我以前写过海阳顶端ASP木马,所以在这展现一下VBS技巧吧。
说个最简单的,计算1+2+3……+100之和
文艺青年:
MsgBox Sum(100)Function Sum(Max)On Error Resume NextDim GhostReDim Ghost(Max – 1)Call DoSum(Max, Ghost)Sum = Ghost(0) \ 2 + 1End FunctionSub DoSum(Val, Arr)Arr(0) = Arr(0) + Arr(Val – 1) + ValDoSum Val – 1, ArrEnd Sub二B青年
msgbox(1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+……)
骨灰级程序员:
Dim a(101):Execute(Join(a,"s=s+i:i=i+1:")):MsgBox s
Copyright © 广州京杭网络科技有限公司 2005-2025 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有