Матричные операции - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д