Question

在VB中如何调用子程序啊？

例如，Public Sub max(a As Integer, b As Integer)
Dim t
t = IIf(a > b, a, b)

End Sub

Private Sub Value_Change(x As Integer, ByVal y As Integer)
Dim x, y, z, c, d, e
x = InputBox("x:")
y = InputBox("Y")
z = InputBox("z")
c = max(x, y)
d = max(c, z)
Print "max is d="; d
End Sub
高手帮忙看看有什么问题啊

Answer 1

Private Function max(a As Integer, b As Integer) as integer
max= IIf(a > b, a, b)
End Sub