诛仙4清状态的法宝:请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 应该有一个返回值