Помогите написать программу на VisualBasic!!!Дана матрица Y(5,5) (элементы матрицы избрать

VBScript подойдет?

Да, подойдет

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 amp; Y(i, j) amp; " "
            If Y(i, j) gt; 0 Then
                K(i) = K(i) + 1
            End If
        Next
        S = S amp; vbNewLine
    Next
    S = S amp; 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 amp; Z(i, j) amp; " "
        Next
        S = S amp; vbNewLine
    Next
    MsgBox (s)
End Sub


Call Zadanie16084380()

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