Sortmethod project (PowerPoint sortVBNET)

Public Class frmSortMethod

Inherits System.Windows.Forms.Form

Dim numArray(4) As Integer

Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click

Dim i As Integer

For i = 0 To 4

numArray(i) = InputBox("Enter Number", "Sort")

lstEnter.Items.Add(numArray(i))

Next

End Sub

Private Sub btnSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSort.Click

Dim i As Integer

Array.Sort(numArray)

For i = 0 To 4

lstSort.Items.Add(numArray(i))

Next

End Sub

End Class

Bubblesort project

Public Class frmBubble

Inherits System.Windows.Forms.Form

Dim numArray(4) As Integer

Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click

Dim i As Integer

For i = 0 To 4

numArray(i) = InputBox("Enter Number", "Sort")

lstEnter.Items.Add(numArray(i))

Next

End Sub

Private Sub btnSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSort.Click

Dim i As Integer

Dim endPt As Integer = 4

Dim flipCt As Integer = 9

Dim sub1 As Integer

Dim sub2 As Integer

Dim holdSlot As String

Do Until endPt = 0 Or flipCt = 0

sub1 = 0

sub2 = 1

flipCt = 0

Do Until sub2 > endPt

If numArray(sub1) > numArray(sub2) Then

holdSlot = numArray(sub1)

numArray(sub1) = numArray(sub2)

numArray(sub2) = holdSlot

flipCt = flipCt + 1

End If

sub1 = sub1 + 1

sub2 = sub2 + 1

Loop

endPt = endPt - 1

Loop

For i = 0 To 4

lstSort.Items.Add(numArray(i))

Next

End Sub

End Class

Arraysort project

Public Class frmSortedTotals

Inherits System.Windows.Forms.Form

Private Sub btnReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReturn.Click

Me.Close()

End Sub

Private Sub btnSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSort.Click

Dim endPt As Integer = 5

Dim flipCt As Integer = 9

Dim holdDeptNo As Integer

Dim holdDeptTot As Decimal

Dim sub1 As Integer

Dim sub2 As Integer

Dim i As Integer

Dim wkLine As String

Do Until endPt = 0 Or flipCt = 0

sub1 = 0

sub2 = 1

flipCt = 0

Do Until sub2 > endPt

If deptArray(sub1).deptTot > deptArray(sub2).deptTot Then

holdDeptNo = deptArray(sub1).deptNo

holdDeptTot = deptArray(sub1).deptTot

deptArray(sub1).deptNo = deptArray(sub2).deptNo

deptArray(sub1).deptTot = deptArray(sub2).deptTot

deptArray(sub2).deptNo = holdDeptNo

deptArray(sub2).deptTot = holdDeptTot

flipCt = flipCt + 1

End If

sub1 = sub1 + 1

sub2 = sub2 + 1

Loop

endPt = endPt - 1

Loop

For i = 0 To 5

wkLine = "The total for Dept # " & deptArray(i).deptNo & _

" is " & FormatCurrency(deptArray(i).deptTot)

lstTotals.Items.Add(wkLine)

Next

End Sub

End Class