中国DOS联盟

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

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

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-07-23 20:03
欢迎新会员 SXY1　 RSS
共 48,023 主题排行 / 350,104 发帖 / 今日 1 篇 / 48,236 会员排行 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 清高手分析这段vbs代码错在哪里??? 查看 853　回复 11
推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 清高手分析这段vbs代码错在哪里??? 发表于 2007-04-21 05:16　·　 中国 湖北 武汉 电信
stornager
中级用户
★★
scriptlover
积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别 男
状态 离线
Option Explicit
Dim r
Const PI=3.14
r=Inputbox("Please enter a num: ")
Function area1()
area1=PI*r^2
Msgbox area1
area1

End function
Function area2()
area2=PI*r^2
Msgbox area2
area2
End Function

[ Last edited by stornager on 2007-5-25 at 12:08 AM ]
第 2 楼 看不明白，估计了一下。 发表于 2007-04-21 05:32　·　 中国 河北 保定 联通
baomaboy
银牌会员
★★★
积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别 男
状态 离线


Option Explicit

Dim r

Const PI=3.14

r=Inputbox("Please enter a num.")

Function area1()

area1=PI*r^2

Msgbox area1

End Function

Function area2()

area2=3.1415*r^2

Msgbox area2

End Function

area1

area2
好多菩提树，好多明镜台。本来好多物，好多的尘埃。
第 3 楼 发表于 2007-04-21 05:36　·　 中国 陕西 西安 电信
slore
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
明明是个Sub
第 4 楼 发表于 2007-04-21 05:38　·　 中国 河北 保定 联通
baomaboy
银牌会员
★★★
积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别 男
状态 离线
影子
好多菩提树，好多明镜台。本来好多物，好多的尘埃。
第 5 楼 发表于 2007-04-21 06:41　·　 中国 湖北 武汉 电信
stornager
中级用户
★★
scriptlover
积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别 男
状态 离线
我测试了一下baomaboy兄的代码,却不能计算area2的面积,为什么这样???
第 6 楼 发表于 2007-04-21 06:55　·　 中国 湖北 武汉 电信
stornager
中级用户
★★
scriptlover
积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别 男
状态 离线
本人真在学习vbs,刚刚上手难免犯错,请slore大力指教.
第 7 楼 发表于 2007-04-21 07:10　·　 中国 湖北 武汉 电信
stornager
中级用户
★★
scriptlover
积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别 男
状态 离线
Option Explicit
Dim r
Const PI=3.14
r=Inputbox("Please enter a num.")
Function area1()
area1=PI*r^2
Msgbox(area1)
Exit Function
PI=3.1415
Call area1()
area1=PI*r^2
Msgbox(area2)
Exit Function
End function
我作了如此修改.运行时没有任何错误,但不能得到area1和area2的值.请vbs高手解答!!
第 8 楼 发表于 2007-04-21 07:35　·　 中国 陕西 西安 电信
slore
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
你的乱78糟的。如何建立自定义函数你先看下格式好么？

Option Explicit
Dim r
r=Inputbox("Please enter a num.")

area1
area2

Function area1()
area1=3.14*r*r
Msgbox area1
End Function

Function area2()
area2=3.1415*r*r
Msgbox area2
End Function
第 9 楼 发表于 2007-04-21 11:09　·　 中国 河北 保定 联通
baomaboy
银牌会员
★★★
积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别 男
状态 离线
Originally posted by stornager at 2007-4-21 06:41:
我测试了一下baomaboy兄的代码,却不能计算area2的面积,为什么这样???


呵呵 我这里可以啊 不知是你的原因还是你电脑的原因
好多菩提树，好多明镜台。本来好多物，好多的尘埃。
第 10 楼 发表于 2007-04-22 04:30　·　 中国 湖北 武汉 电信
stornager
中级用户
★★
scriptlover
积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别 男
状态 离线
谢谢solar兄的指教.你的代码完全正确.
第 11 楼 发表于 2007-05-30 09:22　·　 中国 江苏 泰州 电信
wayzbaby
初级用户
★
积分 30
发帖 14
注册 2006-01-10 16:39
20年会员
UID 48757
状态 离线
area1=PI*r^2
改成 area1=PI*(r^2) 试一试啊!运算的优先级好像是有问题的.
第 12 楼 发表于 2007-05-30 11:17　·　 中国 新疆 乌鲁木齐 电信
zhoushijay
高级用户
★★★
Autowalk
积分 845
发帖 375
注册 2007-03-03 01:58
19年会员
UID 80606
性别 男
状态 离线
建立函数的格式不对
你好，脚本专家！
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a>
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001–2023