富贵子每月管理:在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)