[已解决]关于VBS中Function的迷惑

zcy85611

Function SumTheNumber(nNumber)
dim s,a
for a=1 to nNumber step 1
s=s+a
next
MsgBox "The Result is "&s,,"Result"
End Function

dim nResult
nResult=SumTheNumber(inputbox("Input a number","Input the number"))
复制代码

Wmi教程里面写到，function是返回数值的，但是我只有在function中使用msgbox的时候才能显示出结果，如果把代码写成这样

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

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

就无法显示出结果来，想请教一下这是为什么，谢谢！

[ 本帖最后由 zcy85611 于 2009-3-10 13:00 编辑 ]

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"
复制代码

zqz0012005

拜托先看教程或手册。
Windows脚本技术（script56.chm）http://www.bathome.net/thread-1985-1-1.html

hh script56.chm::/html/vsstmFunction.htm
复制代码

注意以下部分

Function name ()
name = expression
End Function

zcy85611

谢谢各位的解答，弄懂了！

Batcher

如果有人帮你解决了问题，建议进行以下操作：

1、修改帖子标题以示结贴，在标题最前面注明：【已结】，主动结贴者将收到Batcher给予的积分奖励。

2、给竭尽全力帮你的人、正确回答问题的人加分（你自己的积分不会减少）以示感谢，虽然大家来论坛是为了学习而不是为了积分，但加分聊表谢意总是或多或少能够让花费了时间和精力无私帮助你的人略感欣慰。

3、如果你是在别人的提示下自己写出了代码，请把自己的方法贴出来跟大家分享一下，也许他人可以帮你指出代码中的不足之处、告诉你如何提高执行效率等，有交流才能更快地进步。