如果存在如下过程: Private Function FMaxla() As Integer) Dim First As Integer,Last As Integer,i As Integer First=LBound(a) Last=UBound(a) Max=a(First) For i=First To Last If a(i)>Max Then Max=a(i) Next i FMax=
主观题
如果存在如下过程: Private Function FMaxla() As Integer) Dim First As Integer,Last As Integer,i As Integer First=LBound(a) Last=UBound(a) Max=a(First) For i=First To Last If a(i)>Max Then Max=a(i) Next i FMax=