Определить максимальное, минимальное и среднее значения в массиве случайных чисел - VB (171183)

Private Sub Form_Load()
    Me.AutoRedraw = True
    Randomize Timer
    ReDim A(1 To 20)
    Print "Исходный массив:"
    For i = 1 To 20
        A(i) = Int(Rnd * 100)
        Print A(i); ", ";
        If i = 1 Then
            min = A(1)
            max = A(1)
            S = 0
        End If
        If min > A(i) Then min = A(i)
        If max < A(i) Then max = A(i)
        S = S + A(i)
    Next i
    Print
    S = S / 20
    Print "Минимальное: "; min
    Print "Максимальное: "; max
    Print "Среднее: "; S
End Sub