создание массива и решения задач

[alexey55ru]

помогите пожалуйста сделать задачу по информатике, задали в институте, а я не понимаю. вот условия

разработать приложение с формой для решения задач:

1. в матрице А(N,N) вычислить среднее арифметическое отрицательных элементов в каждом нечетном столбце.

2. в матрице вычислить произведение нечетных элементов в 3 четверти.

запускать приложение кнопкой с листа excel.

на форме предусмотреть ввод размера массива, кнопки формирования массива, решения задач, отчистки и выхода.

вывод исходной матрицы производить на рабочий лист excel, а результаты решения задач выводить на лист excel и форму.


!!! так же есть небольшой исходник: 11.rar, но ума не хватает доработать. помогите пожалуйста

[doober]

Замените коды кнопок в файле.

Private Sub CommandButton1_Click()
    Dim i, j As Integer
    N = ScrollBar1.Value
    ReDim A(N, N)
    For i = 1 To N Step 1
        For j = 1 To N Step 1
            Randomize
            A(i, j) = Int(Rnd * 100 - 50)
            Cells(i + 7, j + 2) = A(i, j)
            Randomize
        Next j
    Next i
End Sub
' среднее
Private Sub CommandButton5_Click()
    Dim AVG, i, j As Integer
    For i = 1 To N Step 1
        If (i Mod 2) <> 0 Then
           AVG = 0
            For j = 1 To N Step 1
                
                  AVG = AVG + A(j, i)
              
            Next j
        ListBox2.AddItem "Столбец  " & i & " - " & AVG / N
        Cells(5, 1 + i) = "Столбец  " & i & " - " & AVG / N
        End If
    Next i
End Sub

2. в матрице вычислить произведение нечетных элементов в 3 четверти.

Я знаю верхнюю,нижнюю,левую,правую.
С третьей не знаком

[alexey55ru]

Огромное Вам спасибо, Вы очень помогли!

[alexey55ru]

Столкнулся с проблемой уже все сделал, а программа не считает. может кто помочь разобраться, она очень короткая1234.rar

[doober]

Ваш код.

Private Sub CommandButton1_Click()
    Dim i, j As Integer
    N = ScrollBar1.Value
    ReDim A(N, N)
    For i = 1 To N Step 1
        For j = 1 To N Step 1
            Randomize
            Cells(i + 7, j + 2) = Int(Rnd * 100 - 50)
        Next j
    Next i
End Sub

Мой из поста выше.

Сообщение от doober

Замените коды кнопок в файле.

Private Sub CommandButton1_Click()
    Dim i, j As Integer
    N = ScrollBar1.Value
    ReDim A(N, N)
    For i = 1 To N Step 1
        For j = 1 To N Step 1
            Randomize
            A(i, j) = Int(Rnd * 100 - 50)
            Cells(i + 7, j + 2) = A(i, j)
            Randomize
        Next j
    Next i
End Sub

Игра,найти 2 отличия.
И все заработает.
Вы заполняете лист,массив нет.

[alexey55ru]

Извините, упустил этот момент. Большое спасибо Вам