Question

Hello, I need assistance with my assignment please in Visual Basic.

Starting Out With Visual Basic Seventh Edition Chapter 5 Programming Challenge #1. Sum Of Numbers... page 370

Create an application that displays a form similar to the one shown in Figure 5-44. When the Enter Numbers button is clicked, the application should display the input box shown in Figure 5-45.

The input box asks the user to enter a positive integer value. Notice that the default input value is 10. When to OK button is clickd, the application should display a message box with the sum of all integers from 1 through the value entered by the user, as shown in Figure 5-46. If the user enters a negative value, the application should display an error message. Use the following test data to determine if the application is calculating properly: Value Sum 5 15 10 55 20 210 100 5050

implement the functionality, implement the code, and also make sure you implement the error checking to catch non-numeric data

Thank you

Answer 1

solution;

Dear Student ,
As per the requirement submitted above , kindly find the below solution.
Here a new Windows Forms Application in VB is created using Visual Studio 2017 with name "VB_SumOfNumbers".This application contains a form with name "frmSumofNumbers.vb.".Below are the files associated with form1.

1.frmSumofNumbers.vb[Design]

2.frmSumofNumbers.vb

Public Class frmSumofNumbers 'VB class
'Enter button click
Private Sub btnEnter_Click(sender As Object, e As EventArgs) Handles btnEnter.Click
'asking user to enter positive number
Dim numberStr As String = InputBox("Enter a positive integer value", "Input Needed", 10)
Dim number As Integer 'declaring variable to store number
'checking whether number is numeric or non numeric
If Integer.TryParse(numberStr, number) Then
'when number is numeric,checking whether number is positive or negative
If number > 0 Then
'when positive number is entered
Dim sumofNumbers As Integer = 0 'variable to store sum
'using for loop adding each number from 1 to number
For i = 1 To number
sumofNumbers = sumofNumbers + i 'add i in sumofNumbers
Next
'display sumofNumbers on the messagebox
MessageBox.Show("The sum of numbers 1 through " & number & " is " & sumofNumbers, "Sum of Numbers")
Else
'if negative number is entered
MessageBox.Show("Enter positive number")
End If
Else
'display message if nonnumeric number is entered
MessageBox.Show("Enter numeric Number")
End If
End Sub
'Exit button click
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Application.Exit() 'close application
End Sub
End Class
======================================================
Output : Run application using F5 and will get the screen as shown below
Screen 1 :

Screen 2:Screen when non numeric number is entered

Screen 3:Screen when negative number is entered

Screen 4:Screen showing sum of numbers