Question

How to find the second biggest number in array in VB.NET

Answer 1

Imports System

Public Class SecondBiggestNumberArray
    Public Shared Sub SetRandomNumbersInArray(ByVal arr As Integer())
        Dim rnd As Random = New Random()
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1
            arr(i) = rnd.Next(1, 100)
            Console.Write("{0} ", arr(i))
        Next
    End Sub

    Public Shared Function FindSecondBiggestNumberArray(ByVal arr As Integer()) As Integer
        Dim max, before_max As Integer
        Dim size As Integer = arr.Length

		max = Integer.MinValue
		before_max = max

        For i As Integer = 0 To size - 1
            If arr(i) > max Then
                before_max = max
                max = arr(i)
            Else

                If arr(i) > before_max Then
                    before_max = arr(i)
                End If
            End If
        Next

        Return before_max
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer(9) {}

        SetRandomNumbersInArray(arr)

		Console.WriteLine(Environment.NewLine & "Second Biggest Number = {0}", FindSecondBiggestNumberArray(arr))
    End Sub
End Class



' run:
'
' 48 74 14 99 40 4 92 58 19 66 
' Second Biggest Number = 92
' 

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class SecondBiggestNumberArray
    Public Shared Sub SetRandomNumbersInArray(ByVal arr As Integer())
        Dim rnd As Random = New Random()
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1
            arr(i) = rnd.Next(1, 100)
            Console.Write("{0} ", arr(i))
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer(9) {}
        
		SetRandomNumbersInArray(arr)
        
		Array.Sort(arr)
        
		Console.WriteLine(Environment.NewLine & "Second Biggest Number = {0}", arr(arr.Length - 2))
    End Sub
End Class



' run:
'
' 63 73 22 83 1 46 19 44 10 10 
' Second Biggest Number = 73
' 

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System
Imports System.Linq

Public Class SecondBiggestNumberArray
    Public Shared Sub SetRandomNumbersInArray(ByVal arr As Integer())
        Dim rnd As Random = New Random()
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1
            arr(i) = rnd.Next(1, 100)
            Console.Write("{0} ", arr(i))
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer(9) {}
        
		SetRandomNumbersInArray(arr)
        
		Dim secondLargest As Integer = arr.OrderByDescending(Function(n) n).Distinct().Skip(1).First()
	
        Console.WriteLine(Environment.NewLine & "The second largest number is: " & secondLargest)
    End Sub
End Class



' run:
'
' 11 60 85 15 13 63 4 30 90 21 
' The second largest number is: 85
' 

 

70+ SQL courses for beginners and professionals