Вычислить и вывести среднее арифметическое значение элементов заданного массива - VB

Формулировка задачи:

VB 6.0. Задания простые но не для меня 1.Вычислить и вывести среднее арифметическое значение элементов заданного массива А16 (10). 2. Вычислить и вывести среднее квадратическое нечетных элементов массива В (12). 3. Поменять местами максимальный и минимальный элементы массива L (10). Вывести исходный и преобразованный массивы.

Решение задачи: «Вычислить и вывести среднее арифметическое значение элементов заданного массива»

textual
                            Листинг программы 
                        

                            Option Base 1
Private Sub Command1_Click()
Dim i As Integer, A16(10) As Integer, Asr As Single, Sa As Integer
Dim B(12) As Integer, Sb As Integer, Bsr As Single, Bot1 As Single, Bot2 As Single, Bkv As Long
Dim L(10) As Integer, Lmax As Integer, Lmin As Integer, imax As Integer, imin As Integer, LL As Integer
List1.Clear
Randomize
Sa = 0
For i = 1 To 10
    A16(i) = 100 * Rnd()
    List1.AddItem (A16(i))
    Sa = Sa + A16(i)
Next
Asr = Sa / 10
Label1 = "Средеее значение = " & Asr
List2.Clear
Sb = 0: Bkv = 0
For i = 1 To 12
    B(i) = 100 * Rnd()
    List2.AddItem (B(i))
    If i Mod 2 = 1 Then
        Sb = Sb + B(i)
        Bkv = Bkv + B(i) ^ 2
    End If
Next i
Bsr = Sb / 6
Bot1 = Sqr(Bkv / 6)
Bkv = 0
For i = 1 To 12
    If i Mod 2 = 1 Then Bkv = Bkv + (B(i) - Bsr) ^ 2
Next i
Bot2 = Sqr(Bkv / 6)
Label2 = "Среднее значение = " & Bsr & Chr(13) & "Ср.квадратичное значение = " & Bot1 & Chr(13) & "Ср.квадратичное отклонение = " & Bot2
List3.Clear
For i = 1 To 10
    L(i) = 100 * Rnd()
    List3.AddItem (L(i))
    If i = 1 Then
        Lmax = L(1): Lmin = L(1): imax = 1: imin = 1
        Else
        If L(i) > Lmax Then
            Lmax = L(i)
            imax = i
            Else
            If L(i) < Lmin Then
                Lmin = L(i)
                imin = i
            End If
        End If
    End If
Next i
L(imax) = Lmin
L(imin) = Lmax
List4.Clear
For i = 1 To 10
    List4.AddItem (L(i))
Next i
End Sub
                        