Матричные операции - VB (170576)

Узнай цену своей работы

Формулировка задачи:

Помогите,пожалуйста, дана матрица ,нужно вычислить сумму X1*X3+X3*X5+X5*X7.. где X1- сумма элементов первой строки ,X3-сумма элементов третей строки и тд На Команд 4 ошибку выдает

Решение задачи: «Матричные операции»

textual
Листинг программы
Private Sub Command1_Click()
n = 5: m = 1
ReDim a(n, m)
Randomize (Timer)
For i = 1 To n
  For j = 1 To m
    a(i, j) = Int(Rnd * 10)
    Print a(i, j); vbTab;
  Next j
  Print
Next i
Print s(a)
End Sub
 
Function s(m())
r = UBound(m, 1): c = UBound(m, 2)
s = 0
For i = 1 To r Step 2
  s3 = 0
  For j = 1 To c
     s3 = s3 + m(i, j)
  Next j
  If i > 1 Then s = s + s1 * s3
  s1 = s3
Next i
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы