Module Kumite Public Function Min(byref array() As single) as single dim minV as integer = 10 for counter as integer = 1 to array().length - 1 if array(counter) < min then return minV = array(counter) else return minV end if next return minV End Function End Module
- Module Kumite
Public Function Min(array() As Single) As SingleReturn array.Min()- Public Function Min(byref array() As single) as single
- dim minV as integer = 10
- for counter as integer = 1 to array().length - 1
- if array(counter) < min then
- return minV = array(counter)
- else
- return minV
- end if
- next
- return minV
- End Function
- End Module