Welcome to collectivesolver - Programming & Software Q&A. A website you can trust. All programs tested and works. Contact: aviboots(AT)netvision.net.il
GreenGeeks Web Hosting - Faster, Scalable & Eco-Friendly

BlueHost Web Hosting

Ecommerce Software - Best Ecommerce Platform Made for You - Free Trial

Ecommerce Software - Best Ecommerce Platform Made for You - Free Trial

getflywheel wordpress hosting


Distribute your Resume to 500+ Job Boards & Recruiters


8,090 questions

11,268 answers

573 users

How to implement selection sort in VB.NET

1 Answer

0 votes
Module Module1

    Sub Main()

        Dim arr(20 - 1) As Integer

        Randomize()
        For i As Integer = 0 To arr.Length - 1
            arr(i) = Int(Rnd() * 1000) + 1
        Next

        SelectionSort(arr)

        For Each number In arr
            Console.WriteLine(number)
        Next

    End Sub

    Public Sub SelectionSort(ByRef arr As Integer())
        Dim min As Integer

        For i As Integer = 0 To arr.Length - 2
            min = i

            For j As Integer = i + 1 To arr.Length - 1
                If arr(j) < arr(min) Then
                    min = j
                End If
            Next

            Dim tmp As Integer = arr(min)
            arr(min) = arr(i)
            arr(i) = tmp
        Next
    End Sub

End Module

' run:
' 
' 41
' 97
' 102
' 160
' 194
' 230
' 237
' 474
' 497
' 529
' 547
' 548
' 583
' 589
' 716
' 719
' 796
' 806
' 877
' 890

 




answered May 12 by avibootz
...