applba

数学青年

result=(100+1)*100/2
msgbox result
复制代码

神奇青年

Dim result
GetSum(100)
MsgBox result

Sub GetSum(max)
	If Not IsNumeric(max) Then max=100
	result=result+max
	max=max-1
	If max<1 Then Exit Sub
	GetSum(max)
End Sub
复制代码

applba

回复 3# Hello123World

分析一下该段代码：

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

他定义一个了一个一维数组，所有元素的值都是Empty。
Join(a,"s=s+i:i=i+1:")连接后带得到的字符串就是 "s=s+i:i=i+1:s=s+i:i=i+1:s=s+i:i=i+1:……"
然后再excute一下上面的字符串就ok了～

applba

回复 2# CrLf


    有没有办法把4楼的递归sub改成递归Function。