单项选择题

以下过程的功能是从数组中寻找最大值：
Private Sub FindMax(a() As Integer, ByRef Max As Integer)
Dim s As Integer, f As Integer
Dim i As Integer
s = LBound(a)
f = UBound(a)
Max =a(s)
For i = s To f
If a(i) ＞ Max Then Max = a(i)
Next
End Sub
以下关于上述过程的叙述中，错误的是( )。