week 6

' Name:         Sales Express Project
' Purpose:      Displays the average sales amount
' Programmer:   <your name> on <current date>

Option Explicit On
Option Strict On
Option Infer Off

Public Class frmMain
    Dim strOut As String
    Dim intItems As Integer
    Dim intToEnd As Integer
    Dim strInputSales As String
    Dim decSales As Decimal
    Dim intNumSales As Integer
    Dim decTotalSales As Decimal
    Dim decAvgSales As Decimal


    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click

        intItems = 1
        IntToEnd = CInt(strInputSales)
        intItems = 0

        For intItems = 0 To intToEnd
            intItems += 1

            strInputSales = InputBox("Enter a sales amount." & ControlChars.NewLine & "Click cancel or leave blank to end.")
            decSales = CDec(InputBox("Enter a sales amount." & ControlChars.NewLine & "Click cancel or leave blank to end."))
            intNumSales = CInt(CDec(InputBox("Enter a sales amount." & ControlChars.NewLine & "Click cancel or leave blank to end.")))
            decTotalSales = CDec(InputBox("Enter a sales amount." & ControlChars.NewLine & "Click cancel or leave blank to end."))
            decAvgSales = CDec(InputBox("Enter a sales amount." & ControlChars.NewLine & "Click cancel or leave blank to end."))

            strOut += (strInputSales & ControlChars.NewLine)
            strOut += (decSales & ControlChars.NewLine)
            strOut += (intNumSales & ControlChars.NewLine)
            strOut += (decTotalSales & ControlChars.NewLine)
            strOut += (decAvgSales & ControlChars.NewLine)

            txtList.Text = strOut
        Next intItems
        If intItems > 0 Then
            decAvgSales = decTotalSales / intNumSales
            lblAvg.Text = decAvgSales.ToString("C2")
        Else
            lblAvg.Text = "N/A"
        End If


    End Sub
End Class