BubbleSort and create file

Added BubbleSort Algorithms in vb and python and algorithm to create a text file on vb

Author: ysfemritte

Create File/CreateFile.vb

@@ -0,0 +1,18 @@
+Imports System.IO
+Imports System.Text
+
+Module Module1
+
+    Sub Main()
+        Dim path As String = "c:\temp\MyTest.txt"
+
+        ' Creates (or overwrites) the file in the directory "c:\temp\MyTest.txt".
+        Dim fs As FileStream = File.Create(path)
+
+        ' Add text to the file.
+        Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")
+        fs.Write(info, 0, info.Length)
+        fs.Close()
+    End Sub
+
+End Module

Sorting Algorithm/BubbleSort.cpp renamed to Sorting Algorithm/BubbleSort/BubbleSort.cpp

@@ -0,0 +1,7 @@
+def BubbleSort(lst):  
+    lst = list(lst) #copy collection to list   
+    for passesLeft in range(len(lst)-1, 0, -1):  
+        for i in range(passesLeft):  
+            if lst[i] < lst[i + 1]:  
+               lst[i], lst[i + 1] = lst[i + 1], lst[i]  
+    return lst

Sorting Algorithm/BubbleSort/BubbleSort.py

@@ -0,0 +1,20 @@
+Module Module1
+        Sub Bubblesort(Array() as Integer, Length as Integer)  
+        Dim I As Integer  
+        Dim J As Integer  
+        Dim Temp As Integer  
+        Dim Length As Integer  
+        Dim Array() As String = {}  
+      
+        For I = Length - 1 To 1 Step -1 'the last element on the array does not get sorted.    
+            For J = 0 To I - 1  
+                If Array(J) > Array(J + 1) Then  ' Compare neighboring elements    
+                    Temp = Array(J)  
+                    Array(J) = Array(J + 1)  
+                    Array(J + 1) = Temp  
+      
+                End If  
+            Next  
+        Next  
+    End Sub  
+End Module