'Pizza movie Swimboig83...
'input zip and sales amount, output entered data...
'generate a report that shows the total sales per zip code, and the average sales per zip code.
Public Class Form1
  Inherits System.Windows.Forms.Form
  Structure Customer
    Dim Purchase As Double
    Dim Zip As Integer
  End Structure
  Structure ZipStored
    Dim Nbr As Integer
    Dim Zip As Integer
  End Structure
  Dim ZipStore() As ZipStored = {}
  Dim Input() As Customer = {}

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    lboIn.Items.Add("Purchase Amount".PadLeft(20) & "Zip Code".PadLeft(20))
    lboIn.Items.Add("==============".PadLeft(19) & "=======".PadLeft(19))

    lboOut.Items.Add("ZipCode".PadLeft(20) & " Number".PadLeft(20))
    lboOut.Items.Add("======".PadLeft(19) & " =====".PadLeft(19))

  End Sub

  'input zip and display in lboX
  Private Sub btnIn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnIn.Click
    Dim I As Integer
    Dim Pos As Integer

    Pos = UBound(Input) + 1
    ReDim Preserve Input(Pos)

    Input(Pos).Purchase = CDbl(InputBox("Enter purchase amount"))
    Input(Pos).Zip = CInt(InputBox("Enter customer zip"))
    lboIn.Items.Add(Input(Pos).Purchase.ToString.PadLeft(20) & Input(Pos).Zip.ToString.PadLeft(28))
  End Sub


  Private Sub btnCalc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCalc.Click
    'total sales per zip, average sales per zip, zip
    lboOut.Visible = True
    Dim I As Integer
    Dim Pos As Integer
    Pos = UBound(Input) + 1
    Dim ZipStoredLoc As Integer = 0
    Dim Count As Integer = 0
    Array.Sort(Input)           'BROKEN HERE+++++++++++++
    Array.Sort(ZipStore)

    For I = 0 To UBound(Input)
      If (Input(I).Zip) <> ZipStore((Array.BinarySearch(ZipStore, Input(I).Zip))).Zip Then 'Zipstore(gets value if any where zipstore matches Input(I).zip, then puts it in Zipstore Indez so you can use the If statement
        Array.Sort(ZipStore)
        ZipStore(Count).Nbr = ZipStore(Count).Nbr + 1
        ZipStore(Count).Zip = Input(I).Zip
        Count += 1
        Array.Sort(ZipStore)
      ElseIf (Input(I).Zip) = ZipStore((Array.BinarySearch(ZipStore, Input(I).Zip))).Zip Then
        ZipStore(Array.BinarySearch(ZipStore, Input(I).Zip)).Nbr += 1 'adds 1 to the value where zipstore(at index where Input(I) matched Zipstore).Nbr
        Array.Sort(ZipStore)
      End If
    Next
    Array.Sort(ZipStore)
    For I = 0 To UBound(ZipStore)
      lboOut.Items.Add(ZipStore(I).Zip.ToString.PadLeft(20) & ZipStore(I).Nbr.ToString.PadLeft(20))
    Next
  End Sub
End Class