Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 31.01.2011, 05:20   #1 (permalink)
Sparky
Новичок
 
Регистрация: 31.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Массиви в VBA

Ребята помогите в решении задачи на 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
За ранние благодарен
Sparky вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:31.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.