vb 自定义函数，求平均数的自定义函数，像sum（）求和那样的自定义函数，怎么写代码？ 30
3个回答
展开全部
Private Function average(ByRef arrNums() As Double)
Dim ArrSize As Long
Dim i As Long
Dim sum As Double
ArrSize = UBound(arrNums)
sum = 0
For i = 0 To ArrSize Step 1
sum = sum + arrNums(i)
Next
average = sum / ArrSize
End Function
'mybe it will be good
把要求平均值的数据组成一个数组，然后传入这个函里，就可以得到变均值了。
Dim ArrSize As Long
Dim i As Long
Dim sum As Double
ArrSize = UBound(arrNums)
sum = 0
For i = 0 To ArrSize Step 1
sum = sum + arrNums(i)
Next
average = sum / ArrSize
End Function
'mybe it will be good
把要求平均值的数据组成一个数组，然后传入这个函里，就可以得到变均值了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<html>
<head>
<title>vb 自定义函数</title>
<script language="vbscript">
<!--
msgbox"小子
-->
</scripr>
</head>
<body>
</body>
</html>
<head>
<title>vb 自定义函数</title>
<script language="vbscript">
<!--
msgbox"小子
-->
</scripr>
</head>
<body>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Function myfunc(byval a as double, byval b as double)
myfunc=(a+b)/2
End Function
myfunc=(a+b)/2
End Function
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
