Вычислить количество положительных элементов массива

Private Sub Command1_Click()
Form1.Cls
Dim n%, pos%, sum%, last_nul%
n = InputBox("Введите n", , 10)
ReDim mas(n), t(n)
pos = 0
sum = 0
last_nul = 0
j = 0
k = n - 1
Print "Исходный массив:"
For i = 0 To n - 1
    mas(i) = Fix(Rnd * 20) - 5
    Print mas(i)
    If mas(i) > 0 Then pos = pos + 1
    If mas(i) = 0 Then last_nul = i
    If mas(i) < 2 Then
        t(j) = mas(i)
        j = j + 1
    Else
        t(k) = mas(i)
        k = k - 1
    End If
Next
Print "Количество положительных элементов " & pos
 
If last_nul = 0 Then
    Print "Нет нулевых элементов"
Else
    For i = last_nul To n - 1
        sum = sum + mas(i)
    Next
    Print "Сумма элементов " & sum
End If
 
mas = t
Print "Преобразованный массив:"
For i = 0 To n - 1
    Print mas(i)
Next
End Sub

Private Sub Command1_Click()
Form1.Cls
Dim n%
n = InputBox("Введите n", , 6)
ReDim mas(n, n), mas_t(n * n)
 
Print "Исходный массив:"
For i = 0 To n - 1
    t = ""
    For j = 0 To n - 1
        mas(i, j) = Fix(Rnd * 50) - 20
        mas_t(i * n + j) = mas(i, j)
        t = t & mas(i, j) & vbTab
    Next
    Print t
Next
 
For i = 0 To (n - 1) * (n - 1)
    For j = 0 To (n - 1) * (n - 1) - 1 - i
        If mas_t(j) < mas_t(j + 1) Then
            t = mas_t(j)
            mas_t(j) = mas_t(j + 1)
            mas_t(j + 1) = t
        End If
    Next j
Next i
 
For k = 0 To n - 1
Print mas_t(k)
    For i = 0 To n - 1
        For j = 0 To n - 1
            If mas(i, j) = mas_t(k) And Not i = j Then
                mas(i, j) = mas(k, k)
                mas(k, k) = mas_t(k)
                GoTo st
            End If
        Next
    Next
st:
Next
 
Print "Преобразованный массив:"
For i = 0 To n - 1
    t = ""
    For j = 0 To n - 1
        t = t & mas(i, j) & vbTab
    Next
    Print t
Next
End Sub