functional silos:vb.net中"索引超出了数组界限"
来源:百度文库 编辑:神马品牌网 时间:2024/10/04 05:53:12
Module Mod_min_max
Function min(ByVal ParamArray varray() As Single) As Single
Dim i As Integer
min = varray(0)
For i = 1 To varray.Length - 1
If varray(i) < min Then
min = varray(i)
End If
Next
End Function
Function max(ByVal ParamArray varray() As Single) As Single
Dim i As Integer
max = varray(0)
For i = 1 To varray.Length - 1
If varray(i) > min() Then
max = varray(i)
End If
Next
End Function
End Module
Function min(ByVal ParamArray varray() As Single) As Single
Dim i As Integer
min = varray(0)
For i = 1 To varray.Length - 1
If varray(i) < min Then
min = varray(i)
End If
Next
End Function
Function max(ByVal ParamArray varray() As Single) As Single
Dim i As Integer
max = varray(0)
For i = 1 To varray.Length - 1
If varray(i) > min() Then
max = varray(i)
End If
Next
End Function
End Module
你在 max 函数中的这句
If varray(i) > min() Then
错了,应该是 > max Then
你写成 min()
就会误调用 min() 函数,但是没有参数,结果执行 min() 中的 min = varray(0) 时就会产生错误。