在vb中定义一个带参数的函数如何定义？

Question

在vb中定义一个带参数的函数如何定义？

Answer 1

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