Ошибка пв программе

[aiktz]

надо вычислить среднее арифметич эелементов массива на VB. вот только почему то моя программа ошибается примерно на 0.5...скажие плиз где ошибка?

Private Sub Command1_Click()
Dim i As Long
Dim Sum As Long
Const n = 5
Dim a(0 To n) As Long

Randomize
For i = 1 To n
a(i) = Int(Rnd * 10)

Text1.SelText = Str(a(i)) + " "

Next i

 
For i = 1 To n
Sum = Sum + a(i)
Next i
 
Text2.SelText = Sum / (n + 1)

End Sub