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

zcy85611

1. Function SumTheNumber(nNumber)
   
2. dim s,a
   
3. for a=1 to nNumber step 1
   
4. s=s+a
   
5. next
   
6. MsgBox "The Result is "&s,,"Result"
   
7. End Function
   
8. 
   
9. dim nResult
   
10. nResult=SumTheNumber(inputbox("Input a number","Input the number"))

复制代码

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

1. Function SumTheNumber(nNumber)
   
2. dim s,a
   
3. for a=1 to nNumber step 1
   
4. s=s+a
   
5. next
   
6. End Function
   
7. 
   
8. dim nResult
   
9. nResult=SumTheNumber(inputbox("Input a number","Input the number"))
   
10. MsgBox "The Result is "&nResult,,"Result"

复制代码

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

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

fastslz

1. Function SumTheNumber(nNumber)
   
2. dim s,a
   
3. for a=1 to nNumber step 1
   
4. s=s+a
   
5. next
   
6. SumTheNumber=s
   
7. End Function
   
8. 
   
9. dim nResult
   
10. nResult=SumTheNumber(inputbox("Input a number","Input the number"))
    
11. MsgBox "The Result is "&nResult,,"Result"

复制代码

zqz0012005

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

1. hh script56.chm::/html/vsstmFunction.htm

复制代码

注意以下部分

Function name ()
name = expression
End Function

zcy85611

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

Batcher

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

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

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

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