Задача с матрици на microsoft visual basic for appilcation (excel)

[Nikolay Yonkov Golemanov]

Здравейте, 

имам затруднение със следната задача:

Дадена е матрицата X(M,N) съставена от реални елементи. Ако матрицата е квадратна, намерете скалрното произведенеие на главния диагонал с елементите на ред K (K<=N).

Благодаря предварително! 

[as9993]

Кое точно те затруднява?

[Nikolay Yonkov Golemanov]

Кое точно те затруднява?

скалрното произведенеие на главния диагонал с елементите на ред K (K<=N).

[as9993]

Главния диагонал предполагам е ясно какво е. 

Не съм писал на Visual Basic и за това мога да разпиша самия алгоритъм, а ти ще трябва да си напишеш програмата.

Предполагаме, че самата матрица е въведена в променливата A.

1. Провери дали матрицата A е квадратна, ако да-отиди в 2., ако не-прекъсни.

2. Намери главния диагонал на матрицата A и го запази в променлива diag

3. Въвежда се реда, който потребителя иска за сметката, проверява се дали условието (K

4. Пресмята се diag*всички елементи на матрицата A лежащи на дадения ред

5. Извежда се на екрана.

[Nikolay Yonkov Golemanov]

Може ли някой да напише програмата, защото някои неща по точките не ги разбирам, а и нещата които сме учели се разминават със задачата. Ето какво съм написал и до къде съм стигнал 

Sub skalarno_proizvedenie()

Dim Z() As Double

Dim M As Integer, N As Integer

Dim i As Integer, j As Integer

    

' danni ot Excel -> Sheet1

Dim W As Worksheet

Set W = Application.Worksheets("Sheet1")

    W.Activate

    M = 5: N = 5

 ReDim Z(1 To M, 1 To N)

    For i = 1 To M

       For j = 1 To N

          Z(i, j) = W.Cells(i, j)

       Next

    Next

et1: M = InputBox("m=")

     N = InputBox("n=")

If M = N Then

    GoTo et2

 Else

    GoTo et1

End If

et2: Dim diag As Double

        For i = 1 To M

           For j = 1 To N

              If i = j Then

 

 

 

 

 

End Sub

 

 

 

Мисля че езика е чисто С