How to access nested array value?

How to write a average in visual basic array?

• Option Explicit On Option Strict On Module MinMax Sub Main() ' Declare a named constant for array size here Const MAX_NUMS As Integer = 10 ' Declare array here Dim numbers() As Integer = {33, 12, -6, 1001, 57, -1, 999, 365, 921, 724} 'Dim num1 As Integer 'Dim num2 As Integer ' Use this integer variable as your loop index Dim loopIndex As Integer = 0 ' Use this variable to store the number input by user Dim value As Integer ' String version of number input by user Dim valueString As String ' Use these variables to store the minimim and maximum values Dim min As Integer Dim max As Integer ' Use these variables to store the total and the average Dim total As Double Dim average As Double ' Write a loop to get values from user and assign to array For loopIndex = 0 To MAX_NUMS - 1 valueString = InputBox$("Enter a value: ") value = Convert.ToInt32(valueString) ' Assign value to array numbers(loopIndex) = value Next loopIndex ' Assign the first element in the array to be the minimum and the maximum min = numbers(0) max = numbers(0) ' Start out your total with the value of the first element in the array total = numbers(0) ' Write a loop here to access array values starting with numbers(1) 'For loopIndex = 0 To MAX_NUMS - 1 ' loopIndex(0) + MAX_NUMS = max ' loopIndex(0) - MAX_NUMS = min ' Next loopIndex ' Within the loop test for minimum and maximum values For loopIndex = 0 To MAX_NUMS - 1 If numbers(loopIndex) > max Then max = numbers(loopIndex) If numbers(loopIndex) < min Then min = numbers(loopIndex) total = total + numbers(loopIndex) Next loopIndex ' Also accumulate a total of all values ' Calculate the average of the 10 values average = total / MAX_NUMS ' Print the values stored in the numbers array ' Print the maximum value, minimum value, and average System.Console.WriteLine("Maximum value: " & max) System.Console.WriteLine("Minimum value: " & min) System.Console.WriteLine("Average = " & average) End Sub End Module How do I write the average for this code? The average formula I have => average = total / MAX_NUMS which keeps getting giving me 413.8 instead of 410.5. Please help me.

• Answer:

  Try this trick to get the average of the numbers in the array numbers. It produces 410.5 Imports System.Runtime.CompilerServices Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Declare array here Dim numbers() As Integer = {33, 12, -6, 1001, 57, -1, 999, 365, 921, 724} Dim avgNumbers = numbers.Average MsgBox(avgNumbers) End Sub End Class TexMav