标题: 请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
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 的循环次数不能参与计算
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，所以计算不正确
作者: slore
时间: 2007-4-22 11:37
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
Originally posted by slore at 2007-4-22 11:37:
貌似没有语法问题……
只能算是语句没问题， 因为生搬硬套来的。 所以还是不懂语法应用
作者: stornager
时间: 2007-4-23 05:08
谢谢各为高手指教,小弟终于搞懂来了.