在VB中如何定义函数以及如何调用它？？

Question

在VB中如何定义函数以及如何调用它？？谢谢大家了

Answer 1

Private Sub Form_Load()
funCC
End SubPublic Function funCC()
MsgBox "dd"
End Function

Answer 2

比如:
private function aaa(a as long) as longend function'如下调用
dim i as long
i=aaa(100)

Answer 3

Private Function 函数名(参数名1 as 类型, 参数名2 as 类型) as 类型
  .......
  .......
End Function调用：
text1.text=function(text1.text)

Answer 4

private function aaa(a as long) as long
aaa=50
end function
'返加一个50

Answer 5

private function Test(byref strTest as string)     strTest=“Hello!”
end function
Private Sub Form_Load()
    dim aa as string
     aa=“HI!”
    aa=test(aa)
    msgbox aa  '显示为“Hello!”
end sub
End Sub