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

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

1. В одномерном массиве,состоящем из n-целых элементов,вычислить : 1)количество положительных элементов массива 2) сумму элементов массива,размещенных после последнего элемента равного нулю 3)преобразовать массив таким образом,чтобы сначало размещались все элементы,целая часть которых не превышает 1 , а потом все остальные 2. Путем перестановки элементов квадратной вещественной матрицы добиться того,чтобы её максимальный элемент находился в левом верхнем углу,следующий по величине в позиции (2.2),следующий по величине в позиции(3.3) и т.д. заполнив таким образом всю главную диагональ. И найти номер первой из строк,не содержащих ни одного позитивного элемента

Решение задачи: «Вычислить количество положительных элементов массива»

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

                            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
                        