Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 1 of 1
Thread: Help with selection sort program
11-03-2004, 05:55 PM #1
- Join Date
- Apr 2004
- Thanked 0 Times in 0 Posts
Help with selection sort program
Ok, so here's the deal. I'm sitting in VB class right now, and I desperately need a program to take in students names from a database, sort them via selection sort and print them out into a list box. My teacher is on crack or something and will not explain anything to us, and so I am here.
Here is the code I have so far (I'm sure it makes no sense to you, but please try Lol)
Dim sr As IO.StreamReader = IO.File.OpenText("S:/data.txt") Dim grade(25) As String Dim test1(25), test2(25), average(25) As Double Dim L, R, i, a(), j, SMALL, temp As Long Dim studentName(25) As String Private Sub cmdCompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCompute.Click For i = L To R - 2 SMALL = i For j = i + 1 To R If studentName(a(j)) < studentName(a(SMALL)) Then SMALL = j End If Next j temp = a(i) a(i) = a(SMALL) a(SMALL) = temp Next i For i = 0 To R average(i) = test1(i) + test2(i) studentName(i) = sr.ReadLine test1(i) = CDbl(sr.ReadLine) test2(i) = CDbl(sr.ReadLine) With lstResults.Items .Add(studentName(i)) End With Next Select Case (grade(j)) Case Is >= 90 grade(j) = "A" Case Is >= 80 grade(j) = "B" Case Is >= 70 grade(j) = "C" Case Is >= 60 grade(j) = "D" Case Is >= 0 grade(j) = "F" End Select sr.Close() End Sub