The file Numbers.txt contains a list of integers. Write a program that displays the number of integers in the file and their sum. See the figure below for a possible outcome.

The figure below shows the file contents which were used to create the above outcome. You can create this file using Notepad.
Suggested Control Names and Attributes:
| Name Property | Text Property | Control Type | Notes |
| frmSumOfNumbers | Numbers | Form | Holds Controls |
| btnDisplay | Display Values | Button | Triggers event to display output |
| lstValues | ListBox | Displays number of integers and their sum |
Write the Code:
' Project: Sum of Numbers
' Description: This program reads a text file containing numbers and populates the data into a
' temporary array of strings. That array is then transferred into another array of integers so
' that it can be manipulated. When the user clicks "Display Values" button, the program displays
' the total number of integers in the list and the sum of those numbers.
Public Class frmSumOfNumbers
' Declare global variables
Dim tempNumbers() As String = IO.File.ReadAllLines("numbers.txt")
Dim numbersCount As Integer = tempNumbers.Count
Dim numbers(numbersCount - 1) As Integer
Private Sub frmSumOfNumbers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Transfers values from temp string array into array of integers for manipulation
For i As Integer = 0 To numbers.Count - 1
numbers(i) = CInt(tempNumbers(i))
Next
End Sub
Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
lstValues.Items.Add("Number of integers in the file: " & numbersCount)
lstValues.Items.Add("Sum of integers in the file: " & CStr(CalculateSum()))
End Sub
Function CalculateSum() As Integer
Dim sum As Integer = 0
For i As Integer = 0 To numbers.Count - 1
sum += numbers(i)
Next
Return sum
End Function
End Class
