How to average numbers from an array?

[DePonce]

Private Sub btnDisplay_Clic k(sender As Object, e As System.EventArg s) Handles btnDisplay.Clic k
' calculates average score and displays the result

Dim intScores() As Integer = {88, 72, 99, 20, 66, 95, 99, 100, 72, 88, 78, 45, 57, 89, 85, 78, 75, 88, 72, 88}

This is the beginning of the programming, but I don't know how to continue to achieve the end result. I need to find the total and display the average score of the array in a message box.

[C CSR]

1) Get the length of the array.
2) Total the array values.
3) Divide the Total Value by the Array length.

Present results in msgbox; Do you need help with that part of the code?

[DePonce]

1) Get the length of the array.
2) Total the array values.
3) Divide the Total Value by the Array length.

Present results in msgbox; Do you need help with that part of the code?

My problem is the coding, I am confuse on how to word the codes to obtain the result

[C CSR]

Using Access Basic:

Sub avgarray1()
Dim varData As Variant
varData = Array(1, 2, 3, 4, 5) 'zero based
x = 0
 For i = 0 To UBound(varData)
   x = x + varData(i)
Next

y = UBound(varData) + 1 'gives length of array
varDataAvg = x / y

Debug.Print "Totaled values in array varData = " & x
Debug.Print "Length of array varData = & y"
Debug.Print "Average value in array = " & varDataAvg

End Sub

See if this works.

[C CSR]

Simple message box:

myMsg = MsgBox("Results = " & varDataAvg, vbOKOnly, "Example")

[C CSR]

Your VB variation:

Dim myIntArray() As Integer = {1, 2, 3, 4, 5}

Everything else worked in VB 2008 (I wasn't set up for that before)

[C CSR]

You also need the code below, and put "Interaction.Ms gBox" instead of just "msgbox" in the previous code.

Public Shared Function MsgBox ( _
    Prompt As Object, _
    Buttons As MsgBoxStyle, _
    Title As Object _
) As MsgBoxResult

I'm a little behind on the real deal. Thanks for the exercise.

[DePonce]

You also need the code below, and put "Interaction.Ms gBox" instead of just "msgbox" in the previous code.

Public Shared Function MsgBox ( _
    Prompt As Object, _
    Buttons As MsgBoxStyle, _
    Title As Object _
) As MsgBoxResult

I'm a little behind on the real deal. Thanks for the exercise.

Thanks you, for some reason on my VIsual Basic those codes do not work. Maybe I am doing something wrong. I will keep trying to see what I am doing wrong and fix it.
Thanks again

[DePonce]

Your VB variation:

Dim myIntArray() As Integer = {1, 2, 3, 4, 5}

Everything else worked in VB 2008 (I wasn't set up for that before)

I have VB 2010 and it not took that codes. Still I can't get the display box to get the sum of all numbers and get the average.

[C CSR]

I hope I didn't mix you up because the very first code I sent was not what you needed. I used almost all of it, except:

1} I replaced 1 line the declaration of the array with #6.

2) I changed the msgbox line from from #5 and added the "Interactio n" word.

3) I also added at the top of my module the code in #7.

I only have the 2008 Express version on this machine and to save time all I did was run it as a Console aplication. And I apologize because I'm rusty and because I haven't been building things in there real recently.

Somebody Else Needs to HELP US ON THIS, PLEASE.

[danp129]

        Dim intScores() As Integer = {88, 72, 99, 20, 66, 95, 99, 100, 72, 88, 78, 45, 57, 89, 85, 78, 75, 88, 72, 88}
        MsgBox(intScores.Average.ToString)
        MsgBox(intScores.Sum.ToString)

[C CSR]

Thank you danp129.!
I knew there was a shortcut out there somewhere. My bad.