标题: 清高手分析这段vbs代码错在哪里??? [打印本页]
作者: stornager 时间: 2007-4-21 05:16 标题: 清高手分析这段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 ]
作者: baomaboy 时间: 2007-4-21 05:32 标题: 看不明白，估计了一下。
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
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
作者: slore 时间: 2007-4-21 05:36
明明是个Sub
作者: baomaboy 时间: 2007-4-21 05:38
影子
作者: stornager 时间: 2007-4-21 06:41
我测试了一下baomaboy兄的代码,却不能计算area2的面积,为什么这样???
作者: stornager 时间: 2007-4-21 06:55
本人真在学习vbs,刚刚上手难免犯错,请slore大力指教.
作者: stornager 时间: 2007-4-21 07:10
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高手解答!!
作者: slore 时间: 2007-4-21 07:35
你的乱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
作者: baomaboy 时间: 2007-4-21 11:09
| Quote: | |
|
呵呵 我这里可以啊 不知是你的原因还是你电脑的原因
作者: stornager 时间: 2007-4-22 04:30
谢谢solar兄的指教.你的代码完全正确.
作者: wayzbaby 时间: 2007-5-30 09:22
area1=PI*r^2
改成 area1=PI*(r^2) 试一试啊!运算的优先级好像是有问题的.
作者: zhoushijay 时间: 2007-5-30 11:17
建立函数的格式不对