标题: 请vbs高手分析这段vbs程序为何不能求出sum的和 [打印本页]

---

作者: stornager     时间: 2007-4-22 09:54    标题: 请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 ]

---

作者: stornager     时间: 2007-4-22 10:03
本人发了一个无技术含量的帖子...........

[ Last edited by stornager on 2007-5-24 at 11:53 PM ]

---

作者: balinger     时间: 2007-4-22 10:47
Dim sum,n
sum=0
n=Inputbox("Please enter a number. ")
For k=1 to n
sum=sum+k
Next
Msgbox sum

---

作者: baomaboy     时间: 2007-4-22 10:59

Quote:

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”也许这种问题。。。。。唉

---

作者: zh159     时间: 2007-4-22 11:09
For 的循环次数不能参与计算
For sum = 1 to n
sum=sum+1
这里面sum每次计算都是被For sum = 1 to n赋值1 to n，然后再sum+1，所以计算不正确

---

作者: slore     时间: 2007-4-22 11:37

Quote:

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循环的应用当我没说啦。

---

作者: baomaboy     时间: 2007-4-22 13:08

Quote:

Originally posted by slore at 2007-4-22 11:37: 貌似没有语法问题…… [/co ...

只能算是语句没问题， 因为生搬硬套来的。 所以还是不懂语法应用

---

作者: stornager     时间: 2007-4-23 05:08
谢谢各为高手指教,小弟终于搞懂来了.