fastslz

Function SumTheNumber(nNumber)
dim s,a
for a=1 to nNumber step 1
s=s+a
next
SumTheNumber=s
End Function

dim nResult
nResult=SumTheNumber(inputbox("Input a number","Input the number"))
MsgBox "The Result is "&nResult,,"Result"
复制代码