Question

Open the Calories Solution.sln file contained in the VB2017\Chap08\Calories Solution folder. Open the Code Editor window and locate the btnDisplay_Click procedure. The procedure declares and initializes a one-dimensional array named intCalories. The array stores the numbers of daily calories consumed. The procedure should calculate and display the average number of calories consumed; use the Math.Round method to round the average to an integer. (You learned about the Math.Round method in Chapter 6.) The procedure should also display the number of days in which the daily calories were greater than the average, the number of days in which the daily calories were the same as the average, and the number of days in which the daily calories were less than the average. Code the procedure. Save the solution and then start and test the application.

'Note this is done in Visual Basic.

Conditions:

Three Option Statements Must be used in the beginning of the code which are:

Option Explicit On
Option Strict On
Option Infer Off

It must be done in Visual Basic Windows Forms App.

Answer 1

VB Windom form code

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

Option Explicit On
Option Strict On
Option Infer Off
Public Class Form1

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click

'declares and initializes a one-dimensional array named intCalories
Dim intCalories() As Integer = {23, 45, 12, 45, 11, 56, 34, 11, 9, 8, 67, 56, 2, 5}
Dim avg As Double
Dim sum As Integer
Dim sum1, sum2, sum3 As Integer

sum = 0

'find sum of calories
For i As Integer = 0 To intCalories.Length() - 1
sum = sum + intCalories(i)
Next
'find avg of calories
avg = sum / intCalories.Length() - 1
' round the average to an integer
avg = Math.Round(avg)

sum1 = 0
sum2 = 0
sum3 = 0
For i As Integer = 0 To intCalories.Length() - 1

If (intCalories(i) < avg) Then
sum1 = sum1 + 1
ElseIf (intCalories(i) = avg) Then
sum2 = sum2 + 1
Else
sum3 = sum3 + 1

End If
Next
Label1.Text = "The number of days in which the daily calories were less than the average: " + sum1.ToString()
Label2.Text = "The number of days in which the daily calories were the same as the average: " + sum2.ToString()
Label3.Text = "Thenumber of days in which the daily calories were greater than the average: " + sum3.ToString()

End Sub
End Class

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

Output

Ouick Launch (Ctri+O) Y DCalories Sclution (Running) Microsoft Visual Studio Filc Edit Vicw Project Ruild Dcbug Team Tools Test Analyze Window Help Sign in 2- Debug Any CPU No Application Insights Events. Continue (17464) Calories Solution vshost.as Lifocycle EventsThroad Stack Frama Proccss (12564) Main Thread play Click . Form1 vb xForm x Diaqrastic Toels Calaries Solutis Select Toals Zaam In 7oom Qut Click Reset View 2 Diagnostics session: 2 seconds 2. 20s 10s Calculat Events Process Memory (MB) GC Snapshot Private Bytes 20 29 20 The number of dava in which the daly caloriea were less than he average: 8 32 CPU (% af all pracessors) По 100 The number of days in which the daly calories were the same as the average: 0 .. 0 37 Thenumber of days in which the daly calories were greater than the average: 6 38 Events Memory Usage CPU Usage Search Events were less than the average: were the same as the average: " were grealer than the average: "+sum3 sum1.To 1 lime Duration Ihread Event 43 sum2. 43 110 % 4 Autos x Frror list Entire Solution OO Messages Name alur Гуре 0 Errors Search Eror Lis P- OWarnings Code Description Call Stack Brcakpoints Exception Sattings Command Window Immediate Window Output Error List Autos Locals Watch 1 Ready Ln 43 Col 19 Ch 19 IN- Publish 0225 M OType here to search ENG 18-07-2013