Private Sub btnCompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute.Click
 
 
 
        Try
 
            Dim Num As Integer = Convert.ToInt32(txtNumber.Text)
            Dim MyArray As Integer()
            Dim Sum As Integer
            Dim Average As Double
 
 
            MyArray = New Integer(200) {}
 
            For I = 0 To MyArray.GetUpperBound(0)
 
                MyArray(I) = I * 2
 
            Next
 
 
 
            For I = 0 To MyArray.GetUpperBound(0)
 
                Sum = Sum + MyArray(I)
 
            Next
 
 
            Average = Sum / MyArray.GetUpperBound(0)
 
 
            If Num > 199 Then
                MessageBox.Show("Please enter a number less than 200")
                txtNumber.Clear()
            Else
 
                MessageBox.Show("The Sum of Array Numbers is" & Sum & "and the Average is" & Average)
            End If
 
 
 
        Catch formatExceptionParameter As FormatException
 
            If txtNumber.Text = String.Empty Then
 
                MessageBox.Show("Please enter a number less than 200.")
 
            Else
 
                MessageBox.Show("Invalid character. Please type in a number less than 200.", "Invalid Number Format", _
                                MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
 
        Catch OtherEx As Exception
 
            MessageBox.Show("There was a technical error, please email customer service for further assistance", "Unknown Error", _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        End Try
 
 
    End Sub

Average = Sum / MyArray.GetUpperBound(0)

Average = Sum / (MyArray.GetUpperBound(0) + 1)