VB.Net Programming Solutions

Array | VB.Net | Calculate Average, Above and Below Average Calories

Vb.Net Programming Solutions

1. Detailed Question

Calories Count UIOpen the Calories Solution.sln file contained in the VB2021\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.

2. Problem

Calculate

  • Average of Array
  • Number of Above Average Elements
  • The Number of Below Average Elements
  • Number of  Average Elements

an Array of VB .Net in Visual Studio Desktop Forms Application.

3. Solution Code

Dim intCalories() As Integer = {2, 1, 5, 4, 9, 13, 16}

Dim Average As Double = Math.Round(intCalories.Average())

Dim avgBelow As Integer = 0
Dim avgAbove As Integer = 0
Dim avgEqual As Integer = 0

Dim Total As Integer = intCalories.Count()

For i As Integer = 0 To Total - 1
    If intCalories(i) < Average Then
        avgBelow += 1
    ElseIf intCalories(i) > Average Then
        avgAbove += 1
    Else
        avgEqual += 1
    End If
Next

lblAvg.Text = average.ToString()
lblAboveAvg.Text = avgAbove.ToString()
lblAtAvg.Text = avgEqual.ToString()
lblBelowAvg.Text = avgBelow.ToString()

4. Algorithm of Solution

Step 1

Calculate the average of Array using Average() function and applied Round.Math() to get round off.

Dim Average As Double = Math.Round(intCalories.Average())
Step 2

Declared and initialized 3 variables avgBelow avgAbove avgEqual equal to zero.

Dim avgBelow As Integer = 0
Dim avgAbove As Integer = 0
Dim avgEqual As Integer = 0
Step 3

Count the elements of Array using .Count() function.

Dim Total As Integer = intCalories.Count()
Step 4

Applied For Loop with IF condition to check each index of array either its equal, above or bellow the average.

For i As Integer = 0 To Total - 1
    If intCalories(i) Is Average Then
        avgBelow += 1
    ElseIf intCalories(i) > Average Then
        avgAbove += 1
    Else
        avgEqual += 1
    End If
Next
Step 5

Set values of avgBelow, avgAbove, and avgEqual to the respective textboxes.

lblAvg.Text = average.ToString() 
lblAboveAvg.Text = avgAbove.ToString() 
lblAtAvg.Text = avgEqual.ToString() 
lblBelowAvg.Text = avgBelow.ToString()

Calories Count

5. Download Complete Visual Studio Project

[su_button url=”https://mega.nz/file/Yu4DRQzC#d_Ctrz-pSHTFEkMcfsYSrIRgkPGYjJJ-4Yx3jaKpR9c” target=”blank” style=”flat” background=”#0195b0″ size=”8″ center=”yes” icon=”icon: cloud-download” title=”Download”]Download Complete Visual Studio Project[/su_button]

About the author

Syed Moin Ali

Hello My Name is Syed Moin Ali and I am the founder of PC Learnings Here on this blog I write about Blogging, SEO, Internet Tricks, Social Networking Site, and Make Money

We Need Your Support