all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Selection-sort/VBA/sorting-algorithms-selection-sort.vba
+++ b/Task/Sorting-algorithms-Selection-sort/VBA/sorting-algorithms-selection-sort.vba
@ -0,0 +1,18 @@
+sub swap( byref a, byref b)
+	dim tmp
+	tmp = a
+	a = b
+	b = tmp
+end sub
+
+function selectionSort (a)
+	for i = 0 to ubound(a)
+	k = i
+		for j=i+1 to ubound(a)
+			if a(j) < a(i) then
+				swap a(i), a(j)
+			end if
+		next
+	next
+	selectionSort = a
+end function