There is still this issue, and I am still unable to fix it. If I add a number for the item Name, the itemsSold(itemsSold.Length) highlights, and if I add a name like "shoe", it is also wrong.
There is still this issue, and I am still unable to fix it. If I add a number for the item Name, the itemsSold(itemsSold.Length) highlights, and if I add a name like "shoe", it is also wrong.
Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
Related questions
Question
There is still this issue, and I am still unable to fix it. If I add a number for the item Name, the itemsSold(itemsSold.Length) highlights, and if I add a name like "shoe", it is also wrong.
![0 references
Private Sub btnSubmit Price_Click(sender
As Object, e As EventArgs) Handles btnSubmitPrice. Click
Dim price As Double = InputBox("Enter Price: ", "Enter a Number")
Dim itemName As String = InputBox("Enter Item Name: ", "Enter a Name")
' Create a new TagSaleItem object with the price and name, then store it in the array and update the statist
Dim newItem As New Tag SaleItem (price, itemName)
ReDim Preserve items Sold (items Sold.Length)
items Sold (items Sold. Length - 1) = newItem
► totalSales + price
totalItems += 1
averageSale Price = totalSales / totalItems
'Display the statistics
lblTotalSales.Text = "Total Sales: " + tota
lblTotalItems.Text = "Total Items: " + tota
lblAverageSale Price.Text = "Average Sale Pr
End Sub
LEX
Exception Thrown
System.NullReferenceException: 'Object reference not set to an
instance of an object.'
Show Call Stack View Details | Copy Details | Start Live Share session
Exception Settings
✔Break when this exception type is thrown
Except when thrown from:
Tag Sale.exe](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2F6401ea27-421d-498c-85f3-4b9d8126b850%2F804cabda-17b7-4fc6-9285-8a98df8a646b%2Fss7ysce_processed.jpeg&w=3840&q=75)
Transcribed Image Text:0 references
Private Sub btnSubmit Price_Click(sender
As Object, e As EventArgs) Handles btnSubmitPrice. Click
Dim price As Double = InputBox("Enter Price: ", "Enter a Number")
Dim itemName As String = InputBox("Enter Item Name: ", "Enter a Name")
' Create a new TagSaleItem object with the price and name, then store it in the array and update the statist
Dim newItem As New Tag SaleItem (price, itemName)
ReDim Preserve items Sold (items Sold.Length)
items Sold (items Sold. Length - 1) = newItem
► totalSales + price
totalItems += 1
averageSale Price = totalSales / totalItems
'Display the statistics
lblTotalSales.Text = "Total Sales: " + tota
lblTotalItems.Text = "Total Items: " + tota
lblAverageSale Price.Text = "Average Sale Pr
End Sub
LEX
Exception Thrown
System.NullReferenceException: 'Object reference not set to an
instance of an object.'
Show Call Stack View Details | Copy Details | Start Live Share session
Exception Settings
✔Break when this exception type is thrown
Except when thrown from:
Tag Sale.exe
Expert Solution
![](/static/compass_v2/shared-icons/check-mark.png)
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
Step by step
Solved in 2 steps
![Blurred answer](/static/compass_v2/solution-images/blurred-answer.jpg)
Follow-up Questions
Read through expert solutions to related follow-up questions below.
Follow-up Question
No matter what I do, entering any sort of text in the 'enter item name' does not work
![O references
Private Sub btnSubmit Price_Click(sender
As Object, e As EventArgs) Handles btnSubmit Price. Click
Dim price As Double = InputBox("Enter Price: ", "Enter a Number")
Dim itemName As String = InputBox("Enter Item Name: " "Enter a Name")
I
' Create a new TagSaleItem object with the price and name, then store it in the array and update the statistics
Dim newItem As New TagSaleItem(price, itemName)
ReDim Preserve itemsSold (items Sold.Length)
items Sold (items Sold. Length - 1) = newItem
totalSales += price
totalItems += 1
averageSale Price = totalSales / totalItems
Display the statistics
lblTotalSales.Text = "Total Sales: " + totalSales.ToString()
lblTotalItems.Text = "Total Items: " + totalItems.ToString()
lblAverageSale Price.Text = "Average Sale Price: " + average Sale Price.ToString()
End Sub](https://content.bartleby.com/qna-images/question/6401ea27-421d-498c-85f3-4b9d8126b850/a933f911-07f7-468b-8b87-97bd5cf7f79a/xrgwdtc_thumbnail.jpeg)
Transcribed Image Text:O references
Private Sub btnSubmit Price_Click(sender
As Object, e As EventArgs) Handles btnSubmit Price. Click
Dim price As Double = InputBox("Enter Price: ", "Enter a Number")
Dim itemName As String = InputBox("Enter Item Name: " "Enter a Name")
I
' Create a new TagSaleItem object with the price and name, then store it in the array and update the statistics
Dim newItem As New TagSaleItem(price, itemName)
ReDim Preserve itemsSold (items Sold.Length)
items Sold (items Sold. Length - 1) = newItem
totalSales += price
totalItems += 1
averageSale Price = totalSales / totalItems
Display the statistics
lblTotalSales.Text = "Total Sales: " + totalSales.ToString()
lblTotalItems.Text = "Total Items: " + totalItems.ToString()
lblAverageSale Price.Text = "Average Sale Price: " + average Sale Price.ToString()
End Sub
Solution
Knowledge Booster
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.Recommended textbooks for you
![Database System Concepts](https://www.bartleby.com/isbn_cover_images/9780078022159/9780078022159_smallCoverImage.jpg)
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
![Starting Out with Python (4th Edition)](https://www.bartleby.com/isbn_cover_images/9780134444321/9780134444321_smallCoverImage.gif)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
![Digital Fundamentals (11th Edition)](https://www.bartleby.com/isbn_cover_images/9780132737968/9780132737968_smallCoverImage.gif)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
![Database System Concepts](https://www.bartleby.com/isbn_cover_images/9780078022159/9780078022159_smallCoverImage.jpg)
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
![Starting Out with Python (4th Edition)](https://www.bartleby.com/isbn_cover_images/9780134444321/9780134444321_smallCoverImage.gif)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
![Digital Fundamentals (11th Edition)](https://www.bartleby.com/isbn_cover_images/9780132737968/9780132737968_smallCoverImage.gif)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
![C How to Program (8th Edition)](https://www.bartleby.com/isbn_cover_images/9780133976892/9780133976892_smallCoverImage.gif)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
![Database Systems: Design, Implementation, & Manag…](https://www.bartleby.com/isbn_cover_images/9781337627900/9781337627900_smallCoverImage.gif)
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
![Programmable Logic Controllers](https://www.bartleby.com/isbn_cover_images/9780073373843/9780073373843_smallCoverImage.gif)
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education