Question

How to find the maximum repeating item in a list with VB.NET

Answer 1

Imports System
Imports System.Linq
Imports System.Collections.Generic

Public Class Program
	Public Shared Sub Main()
        Dim lst As List(Of String) = New List(Of String)()
		
		lst.Add("vb.net")
        lst.Add("c")
        lst.Add("c++")
        lst.Add("c")
		lst.Add("vb.net")
        lst.Add("java")
        lst.Add("c#")
		lst.Add("vb.net")
		
        Dim maxRepeated As String = lst.GroupBy(Function(s) s) _
			                        .OrderByDescending(Function(s) s.Count()) _
				                    .First().Key
				
        Console.Write(maxRepeated)
    End Sub
End Class
		
		
		

' run:
'
' vb.net
'

 

70+ SQL courses for beginners and professionals