Question

How to find the maximum repeating number in array with VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function MaxRepertingElement(ByVal array As Integer()) As Integer
        Dim size As Integer = array.Length

        For i As Integer = 0 To size - 1
            array(array(i) Mod size) += size
           ' array[i] % size = 3 4 8 3 8 2 3 9 4 4 4 7 7 7 4 
    	   ' array = [3, 4, 23, 48, 83, 2, 3, 54, 34, 19, 4, 7, 7, 7, 4] 
        Next

        Dim max_element As Integer = Integer.MinValue
        Dim repeating As Integer = 0

        For i As Integer = 0 To size - 1
            If array(i) > max_element Then
                max_element = array(i)
                repeating = i
            End If
        Next

        Return repeating
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim array As Integer() = New Integer() {3, 4, 8, 3, 8, 2, 3, 9, 4, 4, 4, 7, 7, 7, 4}

        Console.Write(MaxRepertingElement(array))
    End Sub
End Class

 
 
 
 
' run:
'
' 4
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Linq

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim array As Integer() = New Integer() {3, 4, 8, 3, 8, 2, 3, 9, 4, 4, 4, 7, 7, 7, 4}
		
		Dim max_reperting_number As Integer = array.GroupBy(Function(n) n).OrderByDescending(Function(n) n.Count()).First().Key
				
        Console.Write(max_reperting_number)
    End Sub
End Class


 
 
 
 
' run:
'
' 4
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System
Imports System.Linq

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim array As Integer() = New Integer() {3, 4, 8, 3, 8, 2, 3, 9, 4, 4, 4, 7, 7, 7, 4}
		
		Dim max_reperting_number As Integer = array.GroupBy(Function(n) n) _
			                                  .OrderByDescending(Function(n) n.Count()) _
										      .First().Key
				
        Console.Write(max_reperting_number)
    End Sub
End Class


 
 
 
 
' run:
'
' 4
'

 

70+ SQL courses for beginners and professionals