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 的循环次数不能参与计算