Download code

Jump to: navigation, search

Back to Insertion_sort_(Visual_Basic_.NET)

Download for Windows: single file, zip

Download for UNIX: single file, zip, tar.gz, tar.bz2

InsertionSort.vb

 1 ' The authors of this work have released all rights to it and placed it
 2 ' in the public domain under the Creative Commons CC0 1.0 waiver
 3 ' (http://creativecommons.org/publicdomain/zero/1.0/).
 4 ' 
 5 ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 6 ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 7 ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 8 ' IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 9 ' CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
10 ' TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
11 ' SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
12 ' 
13 ' Retrieved from: http://en.literateprograms.org/Insertion_sort_(Visual_Basic_.NET)?oldid=18496
14 
15 Module InsertionSort
16 
17     Sub InsertionSort(ByRef a() As Integer)
18         Dim i As Integer
19         For i = 0 To a.Length - 1
20             Dim j As Integer, v As Integer = a(i)
21 	    For j = i - 1 To 0 Step -1
22 	        If a(j) <= v Then Exit For
23 	        a(j + 1) = a(j)
24 	    Next
25 	    a(j + 1) = v
26         Next
27     End Sub
28 
29     Sub Main()
30         Dim a() As Integer = {5, 1, 9, 3, 2}
31         Dim i as Integer
32         InsertionSort(a)
33         For i = 0 To a.Length - 1
34 	    Console.WriteLine(a(i))
35 	Next
36         For i = 1 To a.Length - 1
37 	    If a(i - 1) > a(i) Then
38 	        Console.WriteLine("ERROR")
39 	    End If
40 	Next
41     End Sub
42 
43 End Module
44 


hijacker
hijacker
hijacker
hijacker