Помогите написать программу на VisualBasic!!!
Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы-
числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе-
ство положительных элементов i-той строки.
Если в i-той строке положительных элементов нет, то i-тая строка в матрице
Z должна быть заполнена нулями.

Sub Zadanie16084380()    ' Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы-    ' числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе-    ' ство положительных элементов i-той строки.    ' Если в i-той строке положительных элементов нет, то i-тая строка в матрице    ' Z должна быть заполнена нулями    Const N = 4    Dim Y,Z,K    ReDim Y(N, N), Z(N, N), K(N)    S=""    Randomize    For i = 0 To N        K(i) = 0        For j = 0 To N            Y(i, j) = Int(100 * Rnd) - 50            S = S & Y(i, j) & " "            If Y(i, j) > 0 Then                K(i) = K(i) + 1            End If        Next        S = S & vbNewLine    Next    S = S & vbNewLine    For i = 0 To N        For j = 0 To N            if K(i) = 0 then            Z(i, j) = 0            else            Z(i, j) = Y(i, j) / K(i)            end if            S = S & Z(i, j) & " "        Next        S = S & vbNewLine    Next    MsgBox (s)End SubCall Zadanie16084380()код написан на VBScript