Help Visual Basic 6.0 Find the Highes and Lowest integer - PINOYDEN

example:
Enter ten integer: 1 2 3 4 5 6 7 8 9 10
Smallest integer: 1
Highest integer: 10
Tnx sa makakatulong

Max and Min functions exists on excel applications, unfortunately it does'nt in vb6.0.
So kelangan po gawa ka ng function for that.

First here is the function for Min:

Function Min(ParamArray avValues() As Variant) As Variant
    Dim vThisItem As Variant, vThisElement As Variant
   
    On Error Resume Next
    For Each vThisItem In avValues
        If IsArray(vThisItem) Then
            For Each vThisElement In vThisItem
                Min = Min(vThisElement, Min)
            Next
        Else
            If vThisItem < Min Then
                If Not IsEmpty(vThisItem) Then
                    Min = vThisItem
                End If
            ElseIf IsEmpty(Min) Then
                Min = vThisItem
            End If
        End If
    Next
    On Error GoTo 0
End Function
Ganito po paggamit nyan,
Example:
   Min(1,3,5,6,2,10)
   -Ang return value nyan ay 1.


Next naman ay ang Max function para sa maximum value.

Function Max(ParamArray avValues() As Variant) As Variant
    Dim vThisItem As Variant, vThisElement As Variant
   
    On Error Resume Next
    For Each vThisItem In avValues
        If IsArray(vThisItem) Then
            For Each vThisElement In vThisItem
                Max = Max(vThisElement, Max)
            Next
        Else
            If vThisItem > Max Then
                If Not IsEmpty(vThisItem) Then
                    Max = vThisItem
                End If
            ElseIf IsEmpty(Max) Then
                Max = vThisItem
            End If
        End If
    Next
    On Error GoTo 0
End Function
Ang usage nya is almost the same gamit ka lang ng max:
Example:
   Max(-1, 3, 5, 20, 12)
 
  -Ang return value naman nyan ay 20..

So hope this helps! Gudluck...