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

Question

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

Answer 1

Private Sub Command1_Click()Dim a As Integer, b As Integer, s As Integers = Max(a, b)MsgBox ("较大的一个数是：" & s)End Sub'自定义函数Private Sub Max(a As Integer, b As Integer)If a >= b ThenMax = aElseMax = bEnd IfEnd Sub