富贵子每月管理:在vb中定义一个带参数的函数如何定义?

来源:百度文库 编辑:中科新闻网 时间:2024/05/10 11:42:27

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer

s = Max(a, b)
MsgBox ("较大的一个数是:" & s)

End Sub

'自定义函数
Private Sub Max(a As Integer, b As Integer)
If a >= b Then
Max = a
Else
Max = b
End If
End Sub

private function 函数名(参数列表)

如:
private Function comparing(int a,int b)