Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Evan
0 / 0 / 0
Регистрация: 27.09.2009
Сообщений: 23
#1

В одномерном массиве вывести сумму чисел каждого столбца - VBA

29.09.2009, 08:55. Просмотров 809. Ответов 4
Метки нет (Все метки)

Нужно вывести двумерный массив это выполнено !
и ещё нужно в однамерном массиве вывести сумму чисел каждого столбца
Это у меня что то не получилось
Надеюсь на помощь =)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
sub макро ()
dim g(5) as double
dim c(5,5) as double
dim i as integer
dim о as integer
dim s as string
for i = 1 to 2
for о = 1 to 2 
c(i,j) = inputbox ('введите элемент','ввод массива',' ')
next j
next i 
selection.typetext '2-мерный массив'
selection.paragraph
for i = 1 to 2
for j = 1 to 2
selection.typetext c(i,j) & chr(9)
next j
selection.typeparagraph
next i
if (c(i,j)>0) and (c(i,j)) mod 2=0
then c(i,j) = i+j
else c(i,j) = g(i-i)
selection.typetext
for i= 0 to 4
selection.typetext g(i) & chr(9)
next i
selection.typeparagraph
end sub

http://www.cyberforum.ru/basic/thread14335.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.09.2009, 08:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В одномерном массиве вывести сумму чисел каждого столбца (VBA):

В заданном двумерном массиве размером M N переместить нулевые элементы каждого столбца в конец столбца
Ребят помогите плиииз.. В заданном двумерном массиве размером M N переместить...

Найти суммы четных элементов каждого столбца матрицы В(М, N), и запомнить их в массиве А
Найти суммы четных элементов каждого столбца матрицы В(М, N), и запомнить их в...

Определить сумму элементов каждого столбца матрицы
Помогите, пожалуйста, с решением данной задачи Взять матрицу M x N. Определить...

Вычислить сумму элементов для каждого столбца
Здравствуйте, помогите, пожалуйста, решить задачу для контрольной. Заполнить...

Вычислить сумму элементов каждого столбца двухмерного массива
помогите пожалуйста

4
Toxa33rus
3814 / 878 / 120
Регистрация: 16.04.2009
Сообщений: 1,766
29.09.2009, 10:21 #2
Цитата Сообщение от Evan Посмотреть сообщение
нужно в однамерном массиве вывести сумму чисел каждого столбца
А это как? Если одномерный массив представить как строку то выводить надо сам массив, а если как столбец то просто сумму всех чисел.
0
Evan
0 / 0 / 0
Регистрация: 27.09.2009
Сообщений: 23
29.09.2009, 17:59  [ТС] #3
просто как строку надо вывести =)
сумму каждого столбца который ты ввёл
в 2-мерном массиве
0
Toxa33rus
3814 / 878 / 120
Регистрация: 16.04.2009
Сообщений: 1,766
29.09.2009, 20:13 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
For i=0 to 5
  summa=0
  For j=0 to 5
    summa=summa + c(j,i)
  Next j
  g(i)=summa
Next i
1
Evan
0 / 0 / 0
Регистрация: 27.09.2009
Сообщений: 23
29.09.2009, 20:47  [ТС] #5
спасибо большое =))
0
29.09.2009, 20:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.09.2009, 20:47
Привет! Вот еще темы с решениями:

Определить количество и сумму отрицательных элементов каждого столбца матрицы
Помогите пожалуйста, нужен код VBA для определения количества и суммы...

Вычислить количество ненулевых элементов в одномерном массиве из n чисел
Составьте программу на языке VBA, которая вычисляет количество ...

В одномерном массиве определить сумму нечетных и отрицательных элементов (подскажите, что не так)
Я не разбираюсь в программировании, помогите, пожалуйста. Здесь что-то не...

Как создать функцию для вычисление сумму элементов в одномерном массиве vba?
Как создать функцию для вычисление сумму элементов в одномерном массиве vba?...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru