Put a watch on intTotal and you will see it is being "double dipped", i.e. when the numericUpDown1 is set to 1, intTotal is 1. When you click on the nad again, thus it is 2, intTotal = 1 + 2, i.e. 3.
You could tidy the calculation up by pointing all the nad ValueChanged events to the same handler:
Private Sub nad1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nad1.ValueChanged, nad6.ValueChanged, nad5.ValueChanged, nad4.ValueChanged, nad3.ValueChanged, nad2.ValueChanged
Dim total As Integer
Dim average As Double
total = nad1.Value + nad2.Value + nad3.Value + nad4.Value + nad5.Value + nad6.Value
average = total / 6
TextBox1.Text=
String.Format("{0}", average)
End Sub
HTH
Enter your message below
Sign in or Join us (it's free).