Imports System

Imports System.IO

Imports System.Collections.Generic

Imports System.Linq

Imports System.Text

Imports System.Threading.Tasks

Imports System.Threading

Imports System.Diagnostics

Imports System.Data

Imports System.IO.MemoryMappedFiles

​

Public Class Program

​

    Public Shared Sub Main()

        Dim numbers As Integer() = New Integer() {1, 1, 3, 4}

        Dim a = getAllTotalNumber(numbers)

    End Sub

​

    Public Shared  Function getAllTotalNumber(byval number As Integer()) As integer()

     Dim DistinctNumber = number.Distinct().Count()

       ' Dim a = DistinctNumber.Count()

        'Console.WriteLine(DistinctNumber)

        Dim arr() As String

        Dim txtAllTotal1 = "All Total "

        Dim ProcedureList As New List(Of String)

        For i = 0 To DistinctNumber - 1

            If i = 0        

                Dim no = txtAllTotal1 + ""

                ReDim Preserve arr(i)   

                arr(i) = no

                'Console.WriteLine(no)

            Else

                Dim no = txtAllTotal1 + CStr(i)

                ReDim Preserve arr(i)               

                arr(i) = no

            End If

        'Console.WriteLine(arr(i))      

        ProcedureList.Add(arr(i))       

        Next

    Dim myArray() As String = ProcedureList.ToArray()

    return myArray()

End Function

​

​

End Class

​