崇祯通宝价格:请VB高手用浅显易懂的语言讲下该怎么使用Function,最好在举个简单的例子

函数，有进有出。
函数过程，就像一个搅拌机一样，将胡萝卜和菠菜放进去，开始搅拌。最后可以倒出胡萝卜和菠菜的混合汁。
参数，就是胡萝卜和菠菜；过程就是搅拌；返回值就是混合汁。

简单例子：

Function sum(a as Integer,b as Integer) as Integer
sum=a+b
End Function

msgbox sum(3,6)

sum就是搅拌机，a是胡萝卜,b是菠菜,加法(+)就是搅拌这个动作了，最后返回值是9，9就是输出的东西（混合汁）。
于是,sum(3,4)返回7，sum(10,4)返回14
sum(3,4)和sum(10,4)都是数字来的，正如萝卜和萝卜汁都是物质。

function factor(byval n as long) as long
dim i as long
fact=1

for i=1 to n
fact=fact*i
next i

factor=fact

end function

调用:

private sub command1_click()

m=factor(5)
print "5的阶乘为:" & m

end sub

以上是求5的阶乘.

下例定义了两个函数aa,bb:

aa将代入的数扩大100倍，bb将代入的数扩大200倍

则：aa(1)+bb(2) 的结果为：1*100+2*200=500

Private Sub Command1_Click()
MsgBox aa(1) + bb(2)
End Sub

Function aa(x)
aa = x * 100
End Function

Function bb(x)
bb = x * 200
End Function

private function 量身高()
...
量身高 = 50
end function
“量身高”是一个动作并且量完身高以后需要提供一个身高的返回值，这种情况下使用function

用call
例如你的function名字是 FunctionName
那语法就是 call FunctionName
另外 function 应该有一个返回值