dress和clothes:vb.net中"索引超出了数组界限"

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 03:47:28
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

你在 max 函数中的这句

If varray(i) > min() Then

错了,应该是 > max Then
你写成 min()
就会误调用 min() 函数,但是没有参数,结果执行 min() 中的 min = varray(0) 时就会产生错误。