Подсчет количества элементов вектора Q - VB

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

Помогите написать код для задачи со структурой "Накопление". В общем, нужно написать программу, позволяющую подсчитать количество элементов вектора Q, значения которых превосходят минимальное значение вектора S. Размерность векторов произвольная

Решение задачи: «Подсчет количества элементов вектора Q»

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

                            Option Explicit
 
Private Sub Command1_Click()
    Dim S, Q, i As Integer, St As String
    Dim minS As Integer, n As Integer
    S = Array(8, 7, 9, 4, 5, 6, 7, 8, 5, 6, 9, 4)
    Q = Array(1, 4, 2, 4, 8, 2, 1, 1, 6, 2, 4, 8, 3, 7, 2, 2, 1, 9, 6)
    minS = S(0)
    St = "Вектор S :" & vbCrLf
    For i = 0 To UBound(S)
        If minS > S(i) Then minS = S(i)
        St = St & CStr(S(i)) & ",  "
    Next i
    St = St & vbCrLf & vbCrLf & "Вектор Q :" & vbCrLf
    For i = 0 To UBound(Q)
        If minS < Q(i) Then n = n + 1
        St = St & CStr(Q(i)) & ",  "
    Next i
    St = St & vbCrLf & vbCrLf & "Минимальный элемент вектора S:    " & minS & vbCrLf
    St = St & vbCrLf & vbCrLf & "Количество элементов вектора Q значения " & _
                     "которых превышают минимальное значение вектора S:     " & n
    MsgBox St
End Sub
                        