Обработка массивов - VisualBasic.NET

[HeadHeavy22]

Доброго времени суток! Прошу помощи с задачей про массивы!
Пожалуйста, укажите на ошибки и недочёты и, по возможности, подскажите как исправить.
Заранее спасибо!

Задача:
Даны массивы А(5) и В(5), состоящие из положительных элементов.
Найти сумму среднего геометрического значения элементов массива А и
среднего арифметического значения элементов массива В.

Option Explicit
Public Sub Задание4()
Dim A(5), B(5) As Single
Dim i As Integer
Dim arif, geom, sum As Single
Dim x, y As String
x = "A(5): "
y = "B(5): "
geom = 1
arif = 0
For i = 0 To 5
A(i) = Int(Rnd * 10 + i)
B(i) = Int(Rnd * 10 + i)
x = x & A(i) & " "
y = y & B(i) & " "
arif = arif + B(i)
geom = geom * A(i)
Next i
geom = geom ^ (1 / 6)
arif = arif / 6
sum = geom + arif
MsgBox x & Chr(10) & Chr(13) & _
y & Chr(10) & Chr(13) & _
"Ср. геом. элементов массива A: " & geom & Chr(10) & Chr(13) & _
"Ср. ариф. элементов массива B: " & arif & Chr(10) & Chr(13) & _
"Искомая сумма: " & sum, vbInformation, "Задание 4. Обработка массивов"
End Sub

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.