[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

  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. dim nResult
  9. 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. dim nResult
  8. nResult=SumTheNumber(inputbox("Input a number","Input the number"))
  9. MsgBox "The Result is "&nResult,,"Result"
复制代码
就无法显示出结果来,想请教一下这是为什么,谢谢!

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

评分人数

    • Batcher: 感谢主动给标题标注[已解决]字样PB + 2

回复 4楼 的帖子

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

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

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

3、如果你是在别人的提示下自己写出了代码,请把自己的方法贴出来跟大家分享一下,也许他人可以帮你指出代码中的不足之处、告诉你如何提高执行效率等,有交流才能更快地进步。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

谢谢各位的解答,弄懂了!

TOP

拜托先看教程或手册。
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
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

  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. dim nResult
  9. nResult=SumTheNumber(inputbox("Input a number","Input the number"))
  10. MsgBox "The Result is "&nResult,,"Result"
复制代码

TOP

返回列表