VBA Excel: Поиск радиуса и диаметра

[drillbox]

Здравствуйте. Я сделал задание и не знаю, правильно ли оно сделано. Можете посмотреть?

Есть 20 чисел в столбце эксель. Найти радиус и диаметр множества
Радиус - это  расстояние от среднего значения до самого дальнего от центра элемента ряда.
Диаметр - это самое большое расстояние между всеми парами во множестве.

Мой код:

Спойлер

Private Sub CLDM_Click() ' - поиск диаметра
Dim MN As Integer
Dim MX As Integer

MN = WorksheetFunction.min(Range("A2:A21"))
MX = WorksheetFunction.Max(Range("A2:A21"))
Cells(23, 6) = Abs(MX - MN)
End Sub

Private Sub CLRD_Click() '  - поиск радиуса
Dim avr As Integer, MN As Double, MX As Double
Dim i As Integer
For i = 1 To 20
avr = avr + Cells(i + 1, 1)
Next i
avr = avr / 20

MN = WorksheetFunction.min(Range("A2:A21"))
MX = WorksheetFunction.Max(Range("A2:A21"))
If Abs(avr - MN) >= Abs(avr - MX) Then
Cells(22, 6) = Abs(avr - MN)
Else
Cells(22, 6) = Abs(avr - MX)

End If
End Sub

[свернуть]

[вложение удалено администратором]

[drillbox]

Здравствуйте, я выяснил, что задание сделано правильно.