Ad
Code
Diff
  • 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 Single
    • Return 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