Определение среднего арифметического и среднего геометрического - VB

Private Sub Command3_Click()
Dim A(1 To 7) As Single, B As Integer, i As Integer
B = 0
For i = 1 To 7
A(i) = InputBox("Введите элементы массива=>", "Ввод", i)
Print A(i)
B = (B + A(1) + A(2) + A(3) + A(4) + A(5) + A(6) + A(7)) / 7
Next i
Print "Средне-арифметическое элементов массива="; B
End Sub
 
Private Sub Command5_Click()
Dim B(1 To 8) As Integer, C As Integer, j As Integer, r As Integer
C = 1
For j = 1 To 8
B(j) = InputBox("Введите элементы массива=>", "Ввод", j)
Print B(j)
If B(j) > 0 Then r = Sqr(C * B(1) * B(2) * B(3) * B(4) * B(5) * B(6) * B(7) + B(8))
Next j
Print "Средне-геометрическое положительных элементов массива="; r
End Sub