中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-08-04 05:46
欢迎新会员 hello8888666　 RSS
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请vbs高手分析这段vbs程序为何不能求出sum的和 查看 790　回复 7
推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 请vbs高手分析这段vbs程序为何不能求出sum的和 发表于 2007-04-22 09:54　·　 中国 湖北 武汉 电信
stornager
中级用户
★★
scriptlover
积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别 男
状态 离线
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 楼 发表于 2007-04-22 10:03　·　 中国 湖北 武汉 电信
stornager
中级用户
★★
scriptlover
积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别 男
状态 离线
本人发了一个无技术含量的帖子...........

[ Last edited by stornager on 2007-5-24 at 11:53 PM ]
第 3 楼 发表于 2007-04-22 10:47　·　 中国 福建 福州 连江县 电信
balinger
中级用户
★★
积分 356
发帖 115
注册 2004-07-27 00:00
22年会员
UID 29114
性别 男
状态 离线
Dim sum,n
sum=0
n=Inputbox("Please enter a number. ")
For k=1 to n
sum=sum+k
Next
Msgbox sum
第 4 楼 发表于 2007-04-22 10:59　·　 中国 河北 保定 联通
baomaboy
银牌会员
★★★
积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别 男
状态 离线
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 楼 发表于 2007-04-22 11:09　·　 中国 广西 玉林 博白县 电信
zh159
金牌会员
★★★★
积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210
状态 离线
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 楼 发表于 2007-04-22 11:37　·　 中国 陕西 西安 电信
slore
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
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 楼 发表于 2007-04-22 13:08　·　 中国 河北 保定 联通
baomaboy
银牌会员
★★★
积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别 男
状态 离线
Originally posted by slore at 2007-4-22 11:37:



貌似没有语法问题……




只能算是语句没问题， 因为生搬硬套来的。 所以还是不懂语法应用
好多菩提树，好多明镜台。本来好多物，好多的尘埃。
第 8 楼 发表于 2007-04-23 05:08　·　 中国 湖北 武汉 电信
stornager
中级用户
★★
scriptlover
积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别 男
状态 离线
谢谢各为高手指教,小弟终于搞懂来了.
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 - 简版 ]

Sponsored by ifanr Inc | © 2001–2023