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

Надо реализовать ф-цию, возвращающую результат умножения всех чётных чисел прописанных во входном векторе функ - VBA

19.04.2017, 12:38. Просмотров 130. Ответов 2
Метки нет (Все метки)

Написал набросок, но код не пашет(. Пишет, что ошибка в 7 строке, но я не знаю как её исправить.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Function chetniysum(Massiv As Range)
Dim i As Integer, Count As Integer
Count = 1
arr = Massiv.Value
For i = LBound(arr, 1) To UBound(arr, 1)
  For j = LBound(arr, 2) To UBound(arr, 2)
   if val(arr(i,j)) % 2 == 0 Then Count = Count * val(arr(i,j))
  Next j
 Next i
chetniysum Count
End Function

http://www.cyberforum.ru/cpp-beginners/thread698954.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2017, 12:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Надо реализовать ф-цию, возвращающую результат умножения всех чётных чисел прописанных во входном векторе функ (VBA):

Cоставить программу, которая содержит рекурсивную функ-цию Combin2(N, K) целого типа, находящую C(N, K) – число сочетаний из N эле-ментов по K
помогите составить программу, которая содержит рекурсивную функ-цию Combin2(N,...

Реализовать функцию UnSpace(s), возвращающую строку, полученную удалением из исходной всех лишних пробелов
Реализовать функцию UnSpace(s), возвращающую строку, полученную удалением из...

Результат умножения чисел. Проверить код
дано два целых числа через пробел, результат одно целое число, результат...

Указать номера всех одинаковых чисел в векторе
Сформировать вектор В(N) и матрицу М(m,n): (можно Вi,j определить с помощью...

Как создать динамичное id? Просто надо создать третию матрицу где будет результат умножения двух матриц
<script type="text/javascript"> var p=document.getElementById('p'); var...

2
Vlad999
2753 / 1685 / 497
Регистрация: 02.11.2012
Сообщений: 4,200
19.04.2017, 13:35 #2
Лучший ответ Сообщение было отмечено UDK как решение

Решение

1. что за ==
2. val(arr(i,j)) % 2 что этим вы хотели посчитать?

Добавлено через 16 минут
так?
Visual Basic
1
2
3
4
5
6
7
8
9
10
Public Function chetniysum(Massiv As Range)
Dim s, arr()
arr = Massiv.Value
For Each s In arr
  If IsNumeric(s) Then 'проверяем евляется ли числом
     If s > 0 Then chetniysum = IIf(chetniysum, chetniysum, 1) * s
  End If
Next
chetniysum = IIf(chetniysum, chetniysum, "-")
End Function
1
UDK
0 / 0 / 1
Регистрация: 05.11.2016
Сообщений: 46
19.04.2017, 19:22  [ТС] #3
Да, спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2017, 19:22
Привет! Вот еще темы с решениями:

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

Циклы - надо найти произведение двух чисел, не используя умножения (*)
надо умножить два числа допустим 'а' и 'н' с помошью цикла for не используя...

Подсчитать разницу между суммой всех чётных и суммой всех нечётных элементов массива целых чисел
подсчитать разницу между суммой всех чётных и суммой всех нечётных элементов...

Элементарное использование функций сложения и умножения чисел: выдается некорректный результат
Жуткий нуб, посему если получился быдлокод не пинайте слишком сильно =)....


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

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

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