maximum of positive values

Question

hi friend i need to find the maximum of negative value for example if 1123459888 then i need the value of 345 can anyone help me

Kirtan Patel · Answer

MAX of Positive Values Private Sub Button1_Click( ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button1.Click Dim Array() As Integer = { 1123459888 } Dim max As Integer max = Array(0) For Each i As Integer In Array If i > max Then max = i End If Next MsgBox( Max is : & max) End Sub

paul daniel · Answer

Dim i As Integer Dim MaxIntegersIndex As Integer Public Function MaxValOfIntArray(ByRef TheArray As Variant) As Integer 'This function gives max value of int array without sorting an array Dim i As Integer Dim MaxIntegersIndex As Integer MaxIntegersIndex = 0 For i = 1 To UBound(TheArray) If TheArray(i) > TheArray(MaxIntegersIndex) Then MaxIntegersIndex = i End If Next 'index of max value is MaxValOfIntArray MaxValOfIntArray = TheArray(MaxIntegersIndex) End Function