Hi, I am basically a novice in using vb express and am stuck trying to apply 'bubble' sorting to multivariable array. Here is my code for array with n rows and 2 columns:
Anybody can help this frustrated newbie?Code:Public Class Form1 Public theArray(n, 2) As Integer Public n As Integer Public arraySize As Integer Private Sub bubble() 'Attempt to bubble sort – does not work’ Dim k As Integer, j As Integer, temp As Integer For k = 0 To 1 Step 1 For j = 0 To n - 1 Step 1 If (theArray(j, k) > theArray(j + 1, k)) Then temp = theArray(j + 1, k) theArray(j + 1, k) = theArray(j, k) theArray(j, k) = temp Else End If Next j Next k End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click bubble() 'Looping to add all array entires into a listbox' Dim i As Integer Dim j As Integer For i = 0 To 1 Step 1 For j = 0 To n Step 1 ListBox2.Items.Add(theArray(j, i)) Next Next Dim time As String 'Attempt to time the bubble sort – not sure it is working appropriately' time = Microsoft.VisualBasic.DateAndTime.Timer Label2.Text = "Time: " & time & " seconds" End Sub End Class
thanks


Reply With Quote