31.01.2011, 05:20 | #1 (permalink) |
Новичок
Регистрация: 31.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массиви в VBA
Что в нем надо добавить, чтобы он заработал. Сама задача 24. Построить вектор В, каждый элемент которого равен сумме строк матрицы G(m,m), деленной на элемент главной диагонали этой же строки. Код:
Sub Массив() Dim g(), b(), n As Integer, m As Integer, i As Integer, j As Integer m = Val(InputBox("Введите m")) ReDim g(1 To m, 1 To m), b(1 To m) Randomize Cells(1, 1) = "G(i,j)" Cells(2 + i, 1) = "B(i)" For i = 1 To m For j = 1 To m Sum = Sum + g(i, j) Next b(i) = Sum / g(i, i) Sum = 0 Next End Sub |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|