中国DOS联盟

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 ]

本人发了一个无技术含量的帖子...........

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

Dim sum,n
sum=0
n=Inputbox("Please enter a number. ")
For k=1 to n
sum=sum+k
Next
Msgbox sum

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

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，所以计算不正确

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

Originally posted by slore at 2007-4-22 11:37:



貌似没有语法问题……




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

谢谢各为高手指教,小弟终于搞懂来了.