中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-09-25 08:34 		共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,274 会员排行
DOS批处理 & 脚本技术（批处理室） » 清高手分析这段vbs代码错在哪里???
可打印版本 　959 / 11
第1楼　stornager 发表于 2007-04-21 05:16
中级用户　发帖 131　积分 328
清高手分析这段vbs代码错在哪里???
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楼　baomaboy 发表于 2007-04-21 05:32
银牌会员　发帖 554　积分 1,513
看不明白，估计了一下。
第3楼　slore 发表于 2007-04-21 05:36
铂金会员　发帖 2,478　积分 5,212
明明是个Sub
第4楼　baomaboy 发表于 2007-04-21 05:38
银牌会员　发帖 554　积分 1,513
影子
第5楼　stornager 发表于 2007-04-21 06:41
中级用户　发帖 131　积分 328
我测试了一下baomaboy兄的代码,却不能计算area2的面积,为什么这样???
第6楼　stornager 发表于 2007-04-21 06:55
中级用户　发帖 131　积分 328
本人真在学习vbs,刚刚上手难免犯错,请slore大力指教.
第7楼　stornager 发表于 2007-04-21 07:10
中级用户　发帖 131　积分 328
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楼　slore 发表于 2007-04-21 07:35
铂金会员　发帖 2,478　积分 5,212
你的乱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楼　baomaboy 发表于 2007-04-21 11:09
银牌会员　发帖 554　积分 1,513
Originally posted by stornager at 2007-4-21 06:41:
我测试了一下baomaboy兄的代码,却不能计算area2的面积,为什么这样???


呵呵 我这里可以啊 不知是你的原因还是你电脑的原因
第10楼　stornager 发表于 2007-04-22 04:30
中级用户　发帖 131　积分 328
谢谢solar兄的指教.你的代码完全正确.
第11楼　wayzbaby 发表于 2007-05-30 09:22
初级用户　发帖 14　积分 30
area1=PI*r^2
改成 area1=PI*(r^2) 试一试啊!运算的优先级好像是有问题的.
第12楼　zhoushijay 发表于 2007-05-30 11:17
高级用户　发帖 375　积分 845
建立函数的格式不对
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023