Question

******The posted solution does not work. I have coded everything exactly the way the solution is posted here, but does not work. PLEASE HELP! These are the form element names I used.

Form elements ListBox Textbox1(Sales) Textbox2(Report) Button1(Add to totals) Button2(Create report) Button3(Exit) salesIDListBox salesTextBox reportTextbox addButton reportButton exitButton

Case Projects - JM Sales, pg. 501 JM Sales employs five salespeople. The sales manager wants an application that allows him to enter any number of sales amounts for each of the five salespeople. The application should accumulate the sales amounts in a one-dimensional array. The application should also display a report similar to the one shown in Figure 9-39. The report contains each salesperson’s ID and total sales. It also contains the total company sales. Use the following names for the solution and project, respectively: JM Sales Solution and JM Sales Project. Change the form file’s name to Main Form.vb. You can either create your own interface or create the one shown in Figure 9-39. The text box that displays the report has its BorderStyle property set to Fixed3D, its Font property set to Courier New 10pt, its MultiLine and ReadOnly properties set to True, and its ScrollBars property set to Vertical.

Answer 1

Code

Public Class Form1
Dim ids() As Integer = {101, 112, 203, 301, 302}
Dim sales(5) As Integer
Private Sub exitButton_Click(sender As Object, e As EventArgs) Handles exitButton.Click
Me.Close()
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i As Integer = 0 To 4
salesIDListBox.Items.Add(ids(i))
sales(i) = 0
Next

End Sub

Private Sub addButton_Click(sender As Object, e As EventArgs) Handles addButton.Click
Dim index As Integer
Dim sales_value As Integer
index = salesIDListBox.SelectedIndex
sales_value = Convert.ToInt32(salesTextBox.Text)
sales(index) += sales_value
End Sub

Private Sub reportButton_Click(sender As Object, e As EventArgs) Handles reportButton.Click
Dim total_sales As Integer = 0
Dim str As String = ""
Dim format As String = "{0,6} {1,6}"
For i As Integer = 0 To 4
total_sales += sales(i)
str += String.Format(format, ids(i), sales(i).ToString("0,0", Globalization.CultureInfo.InvariantCulture)) + vbCrLf
Next

str += vbCrLf & vbCrLf & String.Format(format, "Total", "$" + total_sales.ToString("0,0", Globalization.CultureInfo.InvariantCulture)) + vbCrLf
reportTextBox.Text = str

End Sub
End Class

outputs

Photos phpWu4ahB.png Add to Share See all photos S2 Edit & Create JM Sales IM Sales X Sales ID: Sales: 101 112 203 301 302 Salea ID: Sales: [750여 | 101 Add to Totals 117 203 301 302 Sales totals: 101 7,500 112 5,690 203 1,340 Sales toEals: Create Report 301 9,000 Exit 302 7, 600 Total: $31, 130 18:58 O Type here to search DC ENG 06-07-2019

Photos phpWu4ahB.png Share See all photos Add to S2 Edit & Create JM Sales IM Sales X Sales ID: Sales: 101 112 203 301 302 Sales ID Sales: 9000 Add to Totals 101 112 203 301 302 Sales totals: 101 7,500 112 5,690 203 1,340 Sales totals: Create Report 301 9,000 302 600 ,ר Exit Total: $31, 130 18:58 O Type here to search DC ENG 06-07-2019

Photos phpWu4ahB.png Share See all photos Add to S2 Edit & Create JM Sales IM Sales X Sales ID: Sales: 101 112 203 301 302 Sales ID: Sales: 7600 101 Add to Totals 112 203 301 302 Sales totals: 101 7,500 112 5,690 203 1,340 Sales totals: Create Report 301 9,000 302 600 ,ר Exit Total: $31, 130 18:58 O Type here to search DC ENG 06-07-2019

Photos phpWu4ahB.png Add to Share See all photos S2 Edit & Create JM Sales IM Sales X Sales ID: Sales: 101 112 203 301 302 Sales ID: Sales: 7600 Add to Totals 101 112 203 301 302 Sales totals: 101 7,500 112 5,690 203 1,340 Sales totals: Create Report 301 9,000 302 7,600 Exit 112 , 690 203 1,340 301 , 000 Total: $31, 130 , 600 302 Total 31,130 18:59 O Type here to search DC ENG 06-07-2019

If you have any query regarding the code please ask me in the comment i am here for help you. Please do not direct thumbs down just ask if you have any query. And if you like my work then please appreciates with up vote. Thank You.