Question

Visual Studio and Visual Basic program

b. Serendipity Booksellers has a book club that awards points to its customers based on the number of books purchased each month. The points are awarded as follows: If a customer purchases no books, he or she earns 0 points. If a customer purchases 1 book, he or she earns 5 points. If a customer purchases 2 book, he or she earns 15 points. If a customer purchases 3 book, he or she earns 30 points. If a customer purchases 4 or more books, he or she earns 60 points. Create a VB application that lets the user enter the number of books that he or she has purchased this month and displays the number of points awarded. If the user fails to enter numeric values, display appropriate error message and do not attempt to perform an calculations.

Answer 1

VB Window application code

============================================================================================

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As String
Dim quantity As Integer
Label2.Text = ""
str = TextBox1.Text

If Integer.TryParse(TextBox1.Text, quantity) Then
If quantity = 0 Then
Label2.Text = "You have earned 0 points"
ElseIf quantity = 1 Then
Label2.Text = "You have earned 5 points"
ElseIf quantity = 2 Then
Label2.Text = "You have earned 15 points"
ElseIf quantity = 3 Then
Label2.Text = "You have earned 30 points"
Else
Label2.Text = "You have earned 60 points"

End If

Else
MessageBox.Show("The quantity entered is not numeric. Please add a numeric quantity(Inetger only).")
End If

End Sub
End Class

============================================================================================

output

Ouick Launch (Ctri+O) Y D Ve W Booksloint (Running) Microsoft Visual Studio Filc Edit Vicw Project Build Debug Team Tools Test Window Help Analyze Sign in 2- Debug No Application Insights Events. ny CPU Continue- w BooksPoint.vshost.e Liforycle Events Threads Y Stack Frama: Proccss (14920)V Form1 vb xForm1vb IDesignl ReoksPoint Form Diagnastic Tocls VB Click d Select Toals Zaom In Zoom OutReset View Diagnostics sessian: 6 seconds 20s 10s ty) Then Events oints" II Enter Number of Books abr GC Snapshot Private Bytes 11 Process Memory (MB) oints 10 10 points Point Calculate 0 15 points" CPU (% af all pracessors) 16 100 points .. 0 26 The quantity entered is not numeric. Please add a numeric quantityInetger only. 21 Events Memory Usage CPU Usage 22 MessageRox.Show("The quantity entered is not numer Search Events OK End If lime Duration Ihread Event 25 26 27 End clas Autos ax Frnar list Entre Solution Name alue Type 0 Errors O Messages Build Intellisense Search Error L P A OWarmings Code Description Call Stack Breakpoints Exception Sattings Command Window Immediate Window Output Error List Autos Locals Watch 1 Ready Ln 13 Col 37 Ch 37 INC Publish 10:12 A Type here to search ENG 27-06-2019

Ouick Launch (Ctri+O) Y D Ve W Booksloint (Running) Microsoft Visual Studio Filc Edit Vicw Projcct Build Debug Team Tools Test Window Help Analyze Sign in 2. Debug No Application Insights Events. ny CPU Continue Proccess (14920) w BooksPoint.vshost.e Liforycle Events Thread Y Stack Frama: Form1 vb x Form1vb Design = BooksPoint Form Diagnastic Tocls VB Click aam InG Zoom QutReset View d Select Toals Diagnostics sessian: 21 seconds 20s 10s y) Then Events oints" II Enter Number of Books GC Snapshot Private Bytes 11 Process Memory (MB) oints" 10 10 points Point Calculate 0 15 CPU (% af all processors) points 16 100 100 points" You have eaned 15points 0 26 21 22 Events Memory Usage CPU Usage MessageBox.Show("The quantity entered End If not numeric. Please add numeric quantity (Tnetger only) Search Events lime Duration Ihread Event 25 26 27 End clas Autos X Frrar list Entire Solution O Messages Build Intellisense Name alue Type 0 Errors Search Error L P OWarnings Code Description Call Stack Breakpoints Exception Sattings Command Window Immediate Window Output Error List Autos Locals Watch 1 Ready Ln 13 Col 37 Ch 37 INC Publish 10:13 A Type here to search ENG 27-06-2013