中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-04 06:44

共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » 请vbs高手分析这段vbs程序为何不能求出sum的和

可打印版本　792 / 7

第1楼　stornager	发表于 2007-04-22 09:54
中级用户　发帖 131　积分 328
请vbs高手分析这段vbs程序为何不能求出sum的和 Option Explicit Dim sum,n sum=0 n=Inputbox("Please enter a number: ") For num=1 to n sum=sum+num Next Msgbox sum 上边代码已能求出sum的和!!!!,哈哈!! [ Last edited by stornager on 2007-5-24 at 11:51 PM ]

第2楼　stornager	发表于 2007-04-22 10:03
中级用户　发帖 131　积分 328
本人发了一个无技术含量的帖子........... [ Last edited by stornager on 2007-5-24 at 11:53 PM ]

第3楼　balinger	发表于 2007-04-22 10:47
中级用户　发帖 115　积分 356
Dim sum,n sum=0 n=Inputbox("Please enter a number. ") For k=1 to n sum=sum+k Next Msgbox sum

第4楼　baomaboy	发表于 2007-04-22 10:59
银牌会员　发帖 554　积分 1,513
Originally posted by stornager at 2007-4-22 09:54: Option Explicit Dim sum,n sum=0 n=Inputbox("Please enter a number. ") For sum=1 to n sum=sum+1 Next Msgbox sum :o:o:o 你的问题基本都是和算法有关的问题，但其实却全是语法问题，劝你先看看“VBScript语言参考.chm”也许这种问题。。。。。唉

第5楼　zh159	发表于 2007-04-22 11:09
金牌会员　发帖 1,467　积分 3,687
For 的循环次数不能参与计算 Dim sum,n sum=0 n=Inputbox("Please enter a number. ") For i = 1 to n sum=sum+1 Next Msgbox sum For sum = 1 to n sum=sum+1 这里面sum每次计算都是被For sum = 1 to n赋值1 to n，然后再sum+1，所以计算不正确

第6楼　slore	发表于 2007-04-22 11:37
铂金会员　发帖 2,478　积分 5,212
Originally posted by baomaboy at 2007-4-21 21:59: 你的问题基本都是和算法有关的问题，但其实却全是语法问题，劝你先看看“VBScript语言参考.chm”也许这种问题。。。。。唉貌似没有语法问题…… 如果单纯为了计算那个建议: Dim sum,n n=Inputbox("Please enter a Number. ") sum=(1+n)*n/2 Msgbox sum 如果是FOR循环的应用当我没说啦。

第7楼　baomaboy	发表于 2007-04-22 13:08
银牌会员　发帖 554　积分 1,513
Originally posted by slore at 2007-4-22 11:37: 貌似没有语法问题…… 只能算是语句没问题，因为生搬硬套来的。所以还是不懂语法应用

第8楼　stornager	发表于 2007-04-23 05:08
中级用户　发帖 131　积分 328
谢谢各为高手指教,小弟终于搞懂来了.

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023