Помогите написать программу на 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 Sub

Call Zadanie16084380 ()

код написан на VBScript